Positioning to an option in a dropdown

[paulcarey]

How do I position a dropdown to a defined option.

I have a dropdown that is populated from a table.

I can get the id or text variable for the dropdown items from a querystring.

Sections of my code looks like this so far

Any ideas?

Paul

<%
dim ID
dim iSystem
dim sSystem

ID = request.querystring(&quot;KBID&quot

set OrigRs = Server.CreateObject(&quot;ADODB.recordset&quot
sqlOrig=&quot;Select * FROM tblKnowledgeBase WHERE KBID =&quot; & ID
OrigRs.Open sqlOrig, conn

iSystem = OrigRs.fields(&quot;KBSystemId&quot
sSystem = OrigRs.fields(&quot;KBSystem&quot

OrigRs.close
%>

<form method=&quot;POST&quot; action=&quot;KBUpdate.asp&quot;>
<table width=&quot;612&quot;>

<td width=&quot;217&quot;>
<font size=&quot;2&quot;>
<%
'SYSTEM DROPDOWN
set rs = Server.CreateObject(&quot;ADODB.recordset&quot
sqlSystem=&quot;Select KBSystemID, KBSystem from tblKnowledgeBaseSystem ORDER BY KBSystem&quot;
rs.Open sqlSystem, conn
%>
System</font>
</td>
<td width=&quot;470&quot;>

<Select Name = &quot;KBSystemID&quot; size=&quot;1&quot;>
<%
If not(rs.EOF AND rs.BOF) Then
rs.MoveFirst
Do until rs.EOF
Response.Write &quot;<option value=&quot; & rs(&quot;KBSystemID&quot & &quot;>&quot; & rs(&quot;KBSystem&quot & &quot;</option>&quot;
rs.MoveNext
Loop
End If
rs.close
%>
</select>
</td>

 

[vbkris]

If not(rs.EOF AND rs.BOF) Then
rs.MoveFirst
Do until rs.EOF
sel=&quot;&quot;
if ID=cstr(rs(&quot;KBSystemID&quot) then
sel=&quot;selected&quot;
end if
Response.Write &quot;<option value=&quot; & rs(&quot;KBSystemID&quot & &quot; &quot;&sel&&quot;>&quot; & rs(&quot;KBSystem&quot & &quot;</option>&quot;
rs.MoveNext
Loop
End If


Known is handfull, Unknown is worldfull

 

[paulcarey]

Thanks for that but no joy though

 

[vbkris]

meaning????

Known is handfull, Unknown is worldfull

 

[paulcarey]

meaning????

No errors, no result

 

[FesterSXS]

try converting both to Int instead before comparing...

If CInt(ID) = CInt(rs("KBSystemID")) Then
  sel = "SELECTED"
End If

Tony

http://www.SpiraxSarco.com/cad

 

[vbkris]

er what do u mane by no joy? what was the error?

Known is handfull, Unknown is worldfull

 

[paulcarey]

Thank you FesterSXS that seemed to do it!

vbKris,
I meant didnt work but didnt throw an error