Ver Mensaje Individual
  #5 (permalink)  
Antiguo 31/03/2011, 06:42
reygoncl
 
Fecha de Ingreso: marzo-2011
Mensajes: 5
Antigüedad: 13 años
Puntos: 0
Respuesta: Cargar y Luego recuperar el valor

el problema que al cargar la pagina se me pierden los datos ingresados anteriormente.

Sub 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"
'response.write" " &sql2
'response.write scamion
'response.end
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
If scamion = (rs2("CodigoCamion"))then
aux3 = rs2("DescripcionCamion")
Response.Write "<option value='" & rs2("CodigoCamion") & "' selected>" & aux3 & "</option>" & vbCrLf
Else
Response.Write "<option value='" & rs2("CodigoCamion") & "'>" & rs2("DescripcionCamion") &"</option>" & vbCrLf
End If
rs2.MoveNext
Loop
Response.Write "</select>"
rs2.Close
cx2.Close
Set rs2 = Nothing
Set cx2 = Nothing
' Tipo = TipoCamion.Value


End Sub

Response.Write "" & vbCrLf
Response.Write " function id_TipCamion()" & vbCrLf
Response.Write " {" & vbCrLf
Response.Write " var oForm = document.FormObs;" & vbCrLf
Response.Write " var Tipo =document.FormObs.scamion[ document.FormObs.scamion.selectedIndex ].value;" & vbCrLf
Response.Write " location.href = 'Exit_DespachoOrdenCompraBodegaCentral.asp?lUsuari oID=" & lUsuarioID & "CodBodega="& lBodega &"&EmpId="& IdEmpresa & "&Folio="& Folio &"&NroDoc="& NroDocumento &"&FechaDocRec="& sFechaInicio & "&lidOC="& lNumeroOc & "&NumGuiaDes="& NumGuiaDes & "&Param="& Parametro & "&scamion=' + document.FormObs.scamion[ document.FormObs.scamion.selectedIndex ].value;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "</script>"

gracias