Parameter arrays used to select records via an intranet

[arh]

When I create a parameter field that allows multiple discrete values to be entered. How do I assign these entered values to the parameter array in the parameters collection within an Active Server Page

I'm using the following ASP code:


set ParamDefCollection = Session("oRpt&quot.Parameterfields

'this creates the parameter collection
set session("Param&quot =ParamDefCollection

'this creates the parameter
set MyParam1 =session("Param&quot.item(1)

'this sets it's value
call MyParam1.SetCurrentValue(Cdate("xxxx&quot,10)

How do you set multiple values for the one parameter?

 

[FowlerConsulting]

This code took me MANY hours to proof, but I will share for FREE ;-)

For each Item in objParamCollection

	response.write(&quot;<b>&quot; & Item.ParameterFieldName & &quot;</b><br>&quot; & vbcrlf)
	response.write(Item.Prompt & &quot;<br>&quot; & vbcrlf)
	
	if Item.NumberOfDefaultValues > 1 then 
		'Pick list
		if Item.EnableMultipleValues = True then
			'LIST combo box
			response.write(&quot;<select name=&quot; & Item.ParameterFieldName & &quot; size=5 multiple>&quot; & vbcrlf)
		else
			'We normal combo box
			response.write(&quot;<select name=&quot; & Item.ParameterFieldName & &quot;>&quot; & vbcrlf)
		end if

		'Get Table and field name from parameter name
		strTable = Item.ParameterFieldName
		While (Right(strTable, 1) <> &quot;.&quot; And Len(strTable) <> 0)                      
			intLen = Len(strTable) - 1                                                  
			strTable = Left(strTable, intLen)
			strField = Right(Item.ParameterFieldName, len(Item.ParameterFieldName)-intLen)
		Wend   
		strTable = Left(strTable, intLen-1)
		if session(&quot;bDebug&quot;) = TRUE then Response.Write (strTable & &quot;<br>&quot; & strField & &quot;<br>&quot;)
		
		'Fetch field values based on parameter name.
		strSQL = &quot;select DISTINCT &quot; & strField & &quot; from &quot; & strTable
		if session(&quot;bDebug&quot;) = TRUE then Response.write (strSQL)
		set objRS = server.createobject(&quot;ADODB.Recordset&quot;)
		objRS.Open strSQL, objConn
		
		Do While Not objRS.EOF
			response.write(&quot;<option>&quot; & objRS(strField) & &quot;</option>&quot; & vbcrlf)
			objRS.MoveNext 
		Loop
		response.write(&quot;</select><br><br>&quot; & vbcrlf)
		
		'Clean Up
		objRS.Close
		set objRS = nothing
	else
		'Text
		if Item.MaximumValue > 50  or Item.MaximumValue < 1 then 
			response.write(&quot;<input type=TEXT name=&quot; & Item.ParameterFieldName & &quot; value='&quot; & Item.DefaultValue & &quot;' size=50><br><br>&quot; & vbcrlf)
		else 
			response.write(&quot;<input type=TEXT name=&quot; & Item.ParameterFieldName & &quot; value='&quot; & Item.DefaultValue & &quot;' size=&quot; & Item.MaximumValue & &quot; maxlength=&quot; & Item.MaximumValue & &quot;><br><br>&quot; & vbcrlf)
		end if
	end if
	
next

Steven Fowler

http://www.fowlerconsulting.com

e-Business Intelligence Experts^TM

We specialize in:
Crystal Report Authoring
Seagate Info Deployment
Data-warehouse and Data-mart Development
Infrastructure Planning
Seagate Crystal Report and Info Training

 

[MalcolmW]

If your not going to be using a table for these values, then

http://support.seagatesoftware.com/library/kbase/articles/c2005825.asp

has some help - also for free