Thread: combo maker

Hi All,

I'm trying to use the code from samples for dynamic combo maker but having a small issue.

I'm only getting one drop down list and it doesn't have any data in it....

can you see what I'm missing?

Code:

sub comboMaker(varSQL, varID, varField, varSelected)	
' This sub creates a generic combo box with values from a table
	set rsDD = GetRS(varSQL)
	set obj = nothing
	do while not rsDD.eof
		response.Write("<option value=""" & rsDD(varID) & """")
		if varSelected <> "" then
			if cstr(rsDD(varID)) = cstr(varSelected) then
				response.Write(" selected ")
			end if
		end if 
		response.Write(">" & rsDD(varField) & "</option>" & vbCrLf)
		rsDD.MoveNext
	loop
end sub

this is what i have:

Code:

<tr>
<td><%
strSQL = "SELECT RegionID, RegionName FROM vwReg_Dist ORDER BY RegionName"
response.Write("<select name=""MyRegName"">" & vbCrLf)
response.Write(vbTab & "<option value="""">Select ....</option>" & vbCrLf)
Call comboMaker(strSQL, RegionID, RegionName, request("MyRegName"))
response.Write("</select>")
%>
</td>
</tr>

I'd like to try to use this because I don't want to have to reload my page.

Looks like you might need to add quotes around some of the parameters your passing to the function...

Code:

Call comboMaker(strSQL, "RegionID", "RegionName", "request(""MyRegName"")")

Not sure about the last one but give it a try.

Thanks Peeps....I still must be doing something wrong...still only getting the Select .... in the dropdown.

I'll keep trying.....and check back.

Hiya B,

no i don't think i have getRS defined.

output shows this error:

Code:

<font face="Arial" size=2>
<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a000d'</font>
<p>
<font face="Arial" size=2>Type mismatch: 'GetRS'</font>
<p>

not sure about the line in above post, i just used it becuz it was in the code sample.

Thanks Peeps,
making some progress...
this is the source output now...but on my screen i have the dropdown list with only Select .... still....all region names are not in a list its just output ....no errors that i can see but not like i expected either.

Code:

<tr>
<td><select name="MyRegName">
	<option value="">Select ....</option>
<select name="MyRegName">
<option value="">Select</option>
<option value="1">Africa</option>
<option value="1">Africa</option>
<option value="1">Africa</option>
<option value="1">Africa</option>
<option value="1">Africa</option>
<option value="1">Africa</option>
<option value="1">Africa</option>
<option value="1">Africa</option>
<option value="2">Asia Pacific</option>
<option value="2">Asia Pacific</option>
<option value="2">Asia Pacific</option>
<option value="2">Asia Pacific</option>
<option value="2">Asia Pacific</option>
<option value="2">Asia Pacific</option>
<option value="2">Asia Pacific</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="3">Eurasia</option>
<option value="6">Latin America</option>
<option value="6">Latin America</option>
<option value="6">Latin America</option>
</select></select>
</td>
</tr>