ไม่แน่ใจตอบโจทย์มั้ย ดูตัวอย่างแล้วไปปรับปรุงนะ
<%
Set rs=conn.Execute("Select * From Category Where CatLive=True Order By CatName_t")
Response.Write("<option value= '0' Selected> ค้นทั้งหมด</option>")
Do While Not rs.Eof
If rs("CatID") = cid Then
Response.Write("<option value='"&rs("CatID")&"' Selected>"&rs("CatName_t")&"</option>")
Else
Response.Write("<option value='"&rs("CatID")&"'>"&rs("CatName_t")&"</option>")
End If
rs.MoveNext
loop
rs.Close
set rs = nothing
%>