Default valg i dropdown box som skal kunne ændres

lstaus = Rs("status")
while not rs.EOF
If Rs("status")  = lstatus Then
Response.write "<option value=""" & Rs("ID") & """ selected>" & Rs(status") "</option>"
else
Response.write "<option value=""" & Rs("ID") & """>" & Rs(status") "</option>"
End if
rs.movenext
wend

lstatus = Rs("status")
while not rs.EOF
If Rs("status")  = lstatus Then
Response.write "<option value=""" & Rs("ID") & """ selected>" & Rs("status") & "</option>"
else
Response.write "<option value=""" & Rs("ID") & """>" & Rs("status") & "</option>"
End if
rs.movenext
wend

sådan...

jeg får følgende fejl:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.

ja jeg kan ikke gætte dine felt navne i databasen....? jeg aner ikke hvad dit status felt hedder i databasen...

hæhæ
jeg har lavet det således:
<%
strProdsted = "select prmethod FROM pub p, ad a WHERE p.adno = a.adno AND p.adno='"&get_adno&"'"
Set rsProdsted = CreateObject("ADODB.Recordset")
rsProdsted.open strProdsted, dbOracle
%>

<%
lstatus = rsProdsted("prmethod")
while not rsProdsted.EOF
If rsProdsted("prmethod")  = lstatus Then
Response.write "<option value=""" & rsProdsted("adno") & """ selected>" & rsProdsted("prmethod") & "</option>"
else
Response.write "<option value=""" & rsProdsted("adno") & """>" & rsProdsted("prmethod") & "</option>"
End if
rsProdsted.movenext
wend
%>

lukker