<%
combo = "<select name='combo' id='select' onchange = 'getvalue()'>
<option value=''>None</OPTION>"
sqlwrk = "SELECT `dataid`, `data` FROM `yourtable`"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.Eof Then
datawrk = rswrk.GetRows
rowswrk = UBound(datawrk, 2)
For rowcntwrk = 0 To rowswrk
combo = combo & "<option value='" & datawrk(0, rowcntwrk) & "'"
If CStr(datawrk(0, rowcntwrk)&"") = CStr(comboid&"") Then
combo = combo & " selected"
End If
combo = combo & ">" & datawrk(1, rowcntwrk) & datawrk(2, rowcntwrk) & "</option>"
Next
End If
rswrk.Close
Set rswrk = Nothing
combo = combo & "</select>"
Response.Write combo
%>