seria algo asi?
Código ASP:
Ver originalSub MostrarTipoCamion()
Dim rs2, cx2
Dim SQL2
Dim aux3
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set cx2 = Server.CreateObject("ADODB.Connection")
cx2.Open Application("Inv")
SQL2 = " SELECT * "
SQL2 = SQL2 & " FROM Exit_TipoCamionFlete"
SQL2 = SQL2 & " order by DescripcionCamion"
scamion = request.form("scamion")
if scamion= "" then scamion = 0
rs2.open SQL2 ,cx2
Response.Write "<select name=""scamion"" onchange=""javascript:id_TipCamion();"" >"
Response.Write "<option value=0>Seleccionar</option>"
Do While Not rs2.EOF
tmpCC = rs2("CodigoCamion")
aux3 = rs2("DescripcionCamion")
selected = ""
if isnull(tmpCC) then tmpCC= -1
if not isnumeric(tmpCC) then tmpCC= -1
If cdbl(scamion) = cdbl(tmpCC) then selected = "selected"
Response.Write "<option value=""" & tmpCC & """ "& selected &">" &_
server.htmlencode(aux3) & "</option>"
rs2.MoveNext
response.flush
Loop
Response.Write "</select>"
rs2.Close
cx2.Close
Set rs2 = Nothing
Set cx2 = Nothing
End Sub
creo que te hacia falta
scamion = request.form("scamion") scamion es el nombre de la variable que le envia el navegador; cambie unas cosas para que funcionara mejor.
no abuses del response.write porque el server tarda mas en escribir
seria mejior que utilizaras %>HTML<% o <%=variable%>