ayuda con formularios

Tengo un formulario con list desplegable, y los datos se

acuerdo a una consulta en una base de datos...al darle

enviar...como obtengo, los datos de acuerdo a lo

desplegable..???

se que es mediante request.form=("variable") pero este

quiero colocar en una consulta para que me despliegue la

datos de acuerdo a lo seleccionado...espero y me

Este es mi codigo en donde presenta el form con la lista

<form method="POST" action="prueba.asp">
<p>Ver información de oficinas:</p>
<select name="opciones" size="1">
<%
dim oConn, result, sql
'Abre la conexión con la base de datos a través de una

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};

Server.MapPath("\criveronet\db\foraneo.mdb"))


'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM oficina"
Set result = oConn.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

'Imprimimos los contenidos del listbox
response.write "<option value='" & result("ID_OFICINA")

result("OFICINA") & "</option>"

'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
oConn.Close
Set oConn = Nothing
%>
</select>
<input type="submit" value="Enviar">
</form>



Y en este otro deseo capturar la variable correspondiente

seleccionado de la lista deplgable

<%
Option Explicit
Response.Expires = -1000

Dim oConn
Dim oRS
Dim sSQL
Dim sColor
dim datos

Response.Write("<font size=2 face=arial>")
Response.Write("Foraneos<br>")
Response.Write("Ejemplo utilizando base de datos

datos=Request.Form("?")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};

Server.MapPath("\criveronet\db\foraneo.mdb"))

sSQL = "SELECT astesa.[SIN ASTESA], asegurado.ASEGURADO,

ramo.RAMO, status.STATUS FROM status INNER JOIN (ramo

(oficina INNER JOIN (causa INNER JOIN (asegurado INNER

asegurado.ID_ASEG = astesa.aseguradoId_) ON

astesa.causaId_) ON oficina.ID_OFICINA =

ramo.ID_RAMO = astesa.ramoId_) ON status.ID_STATUS =

WHERE (((oficina.[OFICINA ASTESA])='aqui va la consulta

los datos de acuerdo al combo'))

Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=3 cellpadding=3

style='font-family:arial; font-size:10pt;'>")
Response.Write("<tr bgcolor=black

Response.Write("<td>asegurado</td>")
Response.Write("<td>causa</td>")
Response.Write("<td>ramo</td>")
Response.Write("<td>status</td></tr>")


sColor = "white"

Do While NOT oRS.EOF

If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("sin astesa").Value

Response.Write("<td>" & oRS("asegurado").Value

Response.Write("<td>" & oRS("causa").Value

Response.Write("<td>" & oRS("ramo").Value

Response.Write("<td>" & oRS("status").Value

oRS.MoveNext

Loop

Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing

%>

.

Tengo un formulario con list desplegable, y los datos se obtienen de
acuerdo a una consulta en una base de datos...al darle click para
enviar...como obtengo, los datos de acuerdo a lo seleccionado en list
desplegable..???

se que es mediante request.form=("variable") pero este valor tambien lo
quiero colocar en una consulta para que me despliegue la pagina y los
datos de acuerdo a lo seleccionado...espero y me entienda

Este es mi codigo en donde presenta el form con la lista desplegable

<form method="POST" action="prueba.asp">
<p>Ver información de oficinas:</p>
<select name="opciones" size="1">
<%
dim oConn, result, sql
'Abre la conexión con la base de datos a través de una conexión ODBC
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\criveronet\db\foraneo.mdb"))


'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM oficina"
Set result = oConn.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

'Imprimimos los contenidos del listbox
response.write "<option value='" & result("ID_OFICINA") & "'>" &
result("OFICINA") & "</option>"

'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
oConn.Close
Set oConn = Nothing
%>
</select>
<input type="submit" value="Enviar">
</form>



Y en este otro deseo capturar la variable correspondiente al dato
seleccionado de la lista deplgable

<%
Option Explicit
Response.Expires = -1000

Dim oConn
Dim oRS
Dim sSQL
Dim sColor
dim datos

Response.Write("<font size=2 face=arial>")
Response.Write("Foraneos<br>")
Response.Write("Ejemplo utilizando base de datos foraneo<br><br>")

datos=Request.Form("?")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\criveronet\db\foraneo.mdb"))

sSQL = "SELECT astesa.[SIN ASTESA], asegurado.ASEGURADO, causa.CAUSA,
ramo.RAMO, status.STATUS FROM status INNER JOIN (ramo INNER JOIN
(oficina INNER JOIN (causa INNER JOIN (asegurado INNER JOIN astesa ON
asegurado.ID_ASEG = astesa.aseguradoId_) ON causa.ID_CAUSA > astesa.causaId_) ON oficina.ID_OFICINA = astesa.oficinaId_) ON
ramo.ID_RAMO = astesa.ramoId_) ON status.ID_STATUS = astesa.statusId_
WHERE (((oficina.[OFICINA ASTESA])='aqui va la consulta para desplegar
los datos de acuerdo al combo'))

Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=3 cellpadding=3 cellspacing=3
style='font-family:arial; font-size:10pt;'>")
Response.Write("<tr bgcolor=black style='color:white;'><td>astesa</td>")
Response.Write("<td>asegurado</td>")
Response.Write("<td>causa</td>")
Response.Write("<td>ramo</td>")
Response.Write("<td>status</td></tr>")


sColor = "white"

Do While NOT oRS.EOF

If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("sin astesa").Value & "</td>")
Response.Write("<td>" & oRS("asegurado").Value & "</td>")
Response.Write("<td>" & oRS("causa").Value & "</td>")
Response.Write("<td>" & oRS("ramo").Value & "</td>")
Response.Write("<td>" & oRS("status").Value & "</td></tr>")


oRS.MoveNext

Loop

Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing

%>

"SELECT . etc. etc. etc. WHERE oficina.[OFICINA

CStr(Request.Form("opciones"))

Saludos!!
Miguel

"carlos" escribió en el mensaje
news:

Tengo un formulario con list desplegable, y los datos

acuerdo a una consulta en una base de datos...al darle

enviar...como obtengo, los datos de acuerdo a lo

desplegable..???

se que es mediante request.form=("variable") pero este

quiero colocar en una consulta para que me despliegue

datos de acuerdo a lo seleccionado...espero y me

Este es mi codigo en donde presenta el form con la

<form method="POST" action="prueba.asp">
<p>Ver información de oficinas:</p>
<select name="opciones" size="1">
<%
dim oConn, result, sql
'Abre la conexión con la base de datos a través de una

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};

Server.MapPath("\criveronet\db\foraneo.mdb"))


'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM oficina"
Set result = oConn.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

'Imprimimos los contenidos del listbox
response.write "<option value='" & result("ID_OFICINA")

result("OFICINA") & "</option>"

'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
oConn.Close
Set oConn = Nothing
%>
</select>
<input type="submit" value="Enviar">
</form>



Y en este otro deseo capturar la variable

seleccionado de la lista deplgable

<%
Option Explicit
Response.Expires = -1000

Dim oConn
Dim oRS
Dim sSQL
Dim sColor
dim datos

Response.Write("<font size=2 face=arial>")
Response.Write("Foraneos<br>")
Response.Write("Ejemplo utilizando base de datos

datos=Request.Form("?")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};

Server.MapPath("\criveronet\db\foraneo.mdb"))

sSQL = "SELECT astesa.[SIN ASTESA],

ramo.RAMO, status.STATUS FROM status INNER JOIN (ramo

(oficina INNER JOIN (causa INNER JOIN (asegurado INNER

asegurado.ID_ASEG = astesa.aseguradoId_) ON

ramo.ID_RAMO = astesa.ramoId_) ON status.ID_STATUS =

WHERE (((oficina.[OFICINA ASTESA])='aqui va la consulta

los datos de acuerdo al combo'))

Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=3 cellpadding=3

style='font-family:arial; font-size:10pt;'>")
Response.Write("<tr bgcolor=black

Response.Write("<td>asegurado</td>")
Response.Write("<td>causa</td>")
Response.Write("<td>ramo</td>")
Response.Write("<td>status</td></tr>")


sColor = "white"

Do While NOT oRS.EOF

If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("sin astesa").Value

Response.Write("<td>" & oRS("asegurado").Value

Response.Write("<td>" & oRS("causa").Value

Response.Write("<td>" & oRS("ramo").Value

Response.Write("<td>" & oRS("status").Value

oRS.MoveNext

Loop

Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing

%>

.

"SELECT . etc. etc. etc. WHERE oficina.[OFICINA

CStr(Request.Form("opciones"))

Saludos!!
Miguel

"carlos" escribió en el mensaje
news:

Tengo un formulario con list desplegable, y los datos

acuerdo a una consulta en una base de datos...al darle

enviar...como obtengo, los datos de acuerdo a lo

desplegable..???

se que es mediante request.form=("variable") pero este

quiero colocar en una consulta para que me despliegue

datos de acuerdo a lo seleccionado...espero y me

Este es mi codigo en donde presenta el form con la

<form method="POST" action="prueba.asp">
<p>Ver información de oficinas:</p>
<select name="opciones" size="1">
<%
dim oConn, result, sql
'Abre la conexión con la base de datos a través de una

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};

Server.MapPath("\criveronet\db\foraneo.mdb"))


'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM oficina"
Set result = oConn.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

'Imprimimos los contenidos del listbox
response.write "<option value='" & result("ID_OFICINA")

result("OFICINA") & "</option>"

'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
oConn.Close
Set oConn = Nothing
%>
</select>
<input type="submit" value="Enviar">
</form>



Y en este otro deseo capturar la variable

seleccionado de la lista deplgable

<%
Option Explicit
Response.Expires = -1000

Dim oConn
Dim oRS
Dim sSQL
Dim sColor
dim datos

Response.Write("<font size=2 face=arial>")
Response.Write("Foraneos<br>")
Response.Write("Ejemplo utilizando base de datos

datos=Request.Form("?")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};

Server.MapPath("\criveronet\db\foraneo.mdb"))

sSQL = "SELECT astesa.[SIN ASTESA],

ramo.RAMO, status.STATUS FROM status INNER JOIN (ramo

(oficina INNER JOIN (causa INNER JOIN (asegurado INNER

asegurado.ID_ASEG = astesa.aseguradoId_) ON

ramo.ID_RAMO = astesa.ramoId_) ON status.ID_STATUS astesa.statusId_
WHERE (((oficina.[OFICINA ASTESA])='aqui va la consulta

los datos de acuerdo al combo'))

Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=3 cellpadding=3

style='font-family:arial; font-size:10pt;'>")
Response.Write("<tr bgcolor=black

Response.Write("<td>asegurado</td>")
Response.Write("<td>causa</td>")
Response.Write("<td>ramo</td>")
Response.Write("<td>status</td></tr>")


sColor = "white"

Do While NOT oRS.EOF

If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("sin astesa").Value

Response.Write("<td>" & oRS("asegurado").Value

Response.Write("<td>" & oRS("causa").Value

Response.Write("<td>" & oRS("ramo").Value

Response.Write("<td>" & oRS("status").Value

oRS.MoveNext

Loop

Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing

%>

.

gracias...funciono de maravilla

tambien me funciono de la siguiente manera
dim datos
datos=Reques.Form("dato")
oficina.OFICINA= '"+ datos +"'"

cual seria la diferencia de hacerlo de una manera u otra...???


"Miguel Gonzalez" escribió en el mensaje
news:e$
> justamente:
>
> "... WHERE oficina.OFICINA = '" & CStr(Request.Form("opciones")) & "'"
>
> Debes poner una comilla simple tras el = y añadir una comilla simple al
> final de la instruccion: " ' " (sin espacios, claro)
>
> Saludos!!
> Miguel
>
>
> "carlos" escribió en el mensaje
> news:036d01c34739$365abc90$
> Hola, gracias por responder..ya hice los cambios pero me
> da error en el servidor
>
> sSQL = "SELECT astesa.[SIN ASTESA], asegurado.ASEGURADO,
> causa.CAUSA, ramo.RAMO, status.STATUS FROM status INNER
> JOIN (ramo INNER JOIN (oficina INNER JOIN (causa INNER
> JOIN (asegurado INNER JOIN astesa ON asegurado.ID_ASEG > > astesa.aseguradoId_) ON causa.ID_CAUSA = astesa.causaId_)
> ON oficina.ID_OFICINA = astesa.oficinaId_) ON ramo.ID_RAMO
> = astesa.ramoId_) ON status.ID_STATUS = astesa.statusId_
> WHERE oficina.OFICINA=" & CStr(Request.form("opciones"))
>
>
> estara mal en las comillas o algo..???
>
>
> >"SELECT . etc. etc. etc. WHERE oficina.[OFICINA
> ASTESA]=" &
> >CStr(Request.Form("opciones"))
> >
> >Saludos!!
> >Miguel
> >
> >"carlos" escribió en el mensaje
> >news:
> >> Tengo un formulario con list desplegable, y los datos
> se obtienen de
> >> acuerdo a una consulta en una base de datos...al darle
> click para
> >> enviar...como obtengo, los datos de acuerdo a lo
> seleccionado en list
> >> desplegable..???
> >>
> >> se que es mediante request.form=("variable") pero este
> valor tambien lo
> >> quiero colocar en una consulta para que me despliegue
> la pagina y los
> >> datos de acuerdo a lo seleccionado...espero y me
> entienda
> >>
> >> Este es mi codigo en donde presenta el form con la
> lista desplegable
> >>
> >> <form method="POST" action="prueba.asp">
> >> <p>Ver información de oficinas:</p>
> >> <select name="opciones" size="1">
> >> <%
> >> dim oConn, result, sql
> >> 'Abre la conexión con la base de datos a través de una
> conexión ODBC
> >> Set oConn = Server.CreateObject("ADODB.Connection")
> >> oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};
> DBQ=" &
> >> Server.MapPath("\criveronet\db\foraneo.mdb"))
> >>
> >>
> >> 'Ejecuta un sentencia SQL de consulta
> >> sql = "SELECT * FROM oficina"
> >> Set result = oConn.Execute(sql)
> >>
> >> 'Recorre todas las filas del resultado
> >> Do While Not result.EOF
> >>
> >> 'Imprimimos los contenidos del listbox
> >> response.write "<option value='" & result("ID_OFICINA")
> & "'>" &
> >> result("OFICINA") & "</option>"
> >>
> >> 'Pasa a la siguiente fila
> >> result.MoveNext
> >> Loop
> >> 'Cerramos las conexiones y el recordset
> >> result.Close
> >> Set result = Nothing
> >> oConn.Close
> >> Set oConn = Nothing
> >> %>
> >> </select>
> >> <input type="submit" value="Enviar">
> >> </form>
> >>
> >>
> >>
> >> Y en este otro deseo capturar la variable
> correspondiente al dato
> >> seleccionado de la lista deplgable
> >>
> >> <%
> >> Option Explicit
> >> Response.Expires = -1000
> >>
> >> Dim oConn
> >> Dim oRS
> >> Dim sSQL
> >> Dim sColor
> >> dim datos
> >>
> >> Response.Write("<font size=2 face=arial>")
> >> Response.Write("Foraneos<br>")
> >> Response.Write("Ejemplo utilizando base de datos
> foraneo<br><br>")
> >>
> >> datos=Request.Form("?")
> >> Set oConn = Server.CreateObject("ADODB.Connection")
> >> oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};
> DBQ=" &
> >> Server.MapPath("\criveronet\db\foraneo.mdb"))
> >>
> >> sSQL = "SELECT astesa.[SIN ASTESA],
> asegurado.ASEGURADO, causa.CAUSA,
> >> ramo.RAMO, status.STATUS FROM status INNER JOIN (ramo
> INNER JOIN
> >> (oficina INNER JOIN (causa INNER JOIN (asegurado INNER
> JOIN astesa ON
> >> asegurado.ID_ASEG = astesa.aseguradoId_) ON
> causa.ID_CAUSA > > >> astesa.causaId_) ON oficina.ID_OFICINA > > astesa.oficinaId_) ON
> >> ramo.ID_RAMO = astesa.ramoId_) ON status.ID_STATUS > > astesa.statusId_
> >> WHERE (((oficina.[OFICINA ASTESA])='aqui va la consulta
> para desplegar
> >> los datos de acuerdo al combo'))
> >>
> >> Set oRS = oConn.Execute(sSQL)
> >>
> >> Response.Write("<table border=3 cellpadding=3
> cellspacing=3
> >> style='font-family:arial; font-size:10pt;'>")
> >> Response.Write("<tr bgcolor=black
> style='color:white;'><td>astesa</td>")
> >> Response.Write("<td>asegurado</td>")
> >> Response.Write("<td>causa</td>")
> >> Response.Write("<td>ramo</td>")
> >> Response.Write("<td>status</td></tr>")
> >>
> >>
> >> sColor = "white"
> >>
> >> Do While NOT oRS.EOF
> >>
> >> If sColor = "silver" Then
> >> sColor = "white"
> >> Else
> >> sColor = "silver"
> >> End If
> >>
> >> Response.Write("<tr bgcolor='" & sColor & "'>")
> >> Response.Write("<td>" & oRS("sin astesa").Value
> & "</td>")
> >> Response.Write("<td>" & oRS("asegurado").Value
> & "</td>")
> >> Response.Write("<td>" & oRS("causa").Value
> & "</td>")
> >> Response.Write("<td>" & oRS("ramo").Value
> & "</td>")
> >> Response.Write("<td>" & oRS("status").Value
> & "</td></tr>")
> >>
> >>
> >> oRS.MoveNext
> >>
> >> Loop
> >>
> >> Response.Write("</table><br><br>")
> >>
> >> oConn.Close
> >> Set oRS = Nothing
> >> Set oConn = Nothing
> >>
> >> %>
> >>
> >
> >
> >.
> >
>
>