Cargar y Luego recuperar el valor

[reygoncl]

Amigos:
Soy novato en esta programación y mi problema es cargar datos de un DB a un combo box y luego en cualquier momento seleccionar algun dato de ese combobox para generar alguna accion.

muchas gracias

[Julcar]

el primer paso es crear un algoritmo, más aun si eres novato te ayudará bastante crearte un diagrama de flujo que contenga el funcionamiento de tu aplicacion.

de lo que puedo leerte te voy haciendo un algoritmo basico:

Código ASP:

Conectamos a la base de datos
|_ Cargamos los datos en un combobox
    |_ Usuario selecciona un item del combobox
        |_ Generamos una accion en el servidor
 

[reygoncl]

Muchas gracias por la respuesta, el paso 1 y 2 estan listos, lo que no se es como gatillar un evento al seleccionar alguna opcion desde del combobox, como por ejemplo tomar el valor del item e ir a buscar alguna informacion y llenar algunos edit en la pantalla.

muchas gracias

[Joch_pa]

Con el evento onchange del <select>

osea

Código HTML:

<select name="cbo1" id="cbo1" onchange="document.form[0].submit();">
 ....
</select>
 

en el evento onchange puedes decirle que llame una funcion de javascript o vbscript (se ejecuta del lado del cliente) yo le puse que enviara el form al servidor, para ahi procesar la respuesta, (como en el asp le pondria cbo1=request.form("cbo1"))

[reygoncl]

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

[Joch_pa]

seria algo asi?

Código ASP:

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"
 
    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%>