Ver Mensaje Individual
  #6 (permalink)  
Antiguo 31/03/2011, 18:26
Avatar de Joch_pa
Joch_pa
 
Fecha de Ingreso: octubre-2009
Ubicación: Pachuca De Soto, Hidalgo, Mexico, Mexico
Mensajes: 122
Antigüedad: 15 años, 2 meses
Puntos: 7
Respuesta: Cargar y Luego recuperar el valor

seria algo asi?

Código ASP:
Ver original
  1. Sub MostrarTipoCamion()
  2.     Dim rs2, cx2
  3.     Dim SQL2
  4.     Dim aux3
  5.     Set rs2 = Server.CreateObject("ADODB.Recordset")
  6.     Set cx2 = Server.CreateObject("ADODB.Connection")
  7.     cx2.Open Application("Inv")
  8.     SQL2 = " SELECT * "
  9.     SQL2 = SQL2 & " FROM Exit_TipoCamionFlete"
  10.     SQL2 = SQL2 & " order by DescripcionCamion"
  11.  
  12.     scamion = request.form("scamion")
  13.     if scamion= "" then scamion = 0
  14.     rs2.open SQL2 ,cx2
  15.     Response.Write "<select name=""scamion"" onchange=""javascript:id_TipCamion();"" >"
  16.     Response.Write "<option value=0>Seleccionar</option>"
  17.  
  18.     Do While Not rs2.EOF
  19.         tmpCC = rs2("CodigoCamion")
  20.         aux3 = rs2("DescripcionCamion")
  21.         selected  = ""
  22.  
  23.         if isnull(tmpCC) then tmpCC= -1
  24.         if not isnumeric(tmpCC) then tmpCC= -1
  25.         If cdbl(scamion) = cdbl(tmpCC) then selected = "selected"
  26.  
  27.         Response.Write "<option value=""" & tmpCC & """ "& selected &">" &_
  28.                                   server.htmlencode(aux3) & "</option>"
  29.  
  30.         rs2.MoveNext
  31.         response.flush
  32.     Loop
  33.     Response.Write "</select>"
  34.  
  35.     rs2.Close
  36.     cx2.Close
  37.     Set rs2 = Nothing
  38.     Set cx2 = Nothing
  39.  
  40. 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%>