Foros del Web » Programando para Internet » ASP Clásico »

Problemas con checkbox dinámicos y una base de datos

Estas en el tema de Problemas con checkbox dinámicos y una base de datos en el foro de ASP Clásico en Foros del Web. Hola, tengo dos archivos asp, el primero carga en la página checkbox que vienen de una base de datos, la cual contiene dos campos: Servicio ...
  #1 (permalink)  
Antiguo 05/09/2003, 13:08
 
Fecha de Ingreso: septiembre-2003
Mensajes: 1
Antigüedad: 21 años, 7 meses
Puntos: 0
Pregunta Problemas con checkbox dinámicos y una base de datos

Hola, tengo dos archivos asp, el primero carga en la página checkbox que vienen de una base de datos, la cual contiene dos campos: Servicio y precio.
Mi problema es que en la segunda página necesito recuperar los datos del formulario(cosa que logré) y además necesito recuperar los precios de los servicios, cosa que no puedo. Desde ya muchas gracias
Este es el código de la segunda página
<%

'dim precio2
rs.movefirst
for i=1 to request.Form("Servicio").count
Response.Write Request.Form("Servicio")(i)& "<BR>"

'dim Servicio()
do while not rs.EOF
if Request.Form("Servicio")=(rs.Fields.Item("Servicio ").Value) then
session("precio")=(rs.Fields.Item("Precio").Value)
response.Write session("precio")


end if

rs.movenext
loop

next
%>
  #2 (permalink)  
Antiguo 05/09/2003, 13:29
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses
Puntos: 98
mmmmhhh, no...
si los checkboxes se llaman servicio, entonces al tener seleccionados varios, cuando tu llames al request.form("servicio") te va a traer

servicio= 1,2,3,4,5,6 etc...

Lo que necesitas es descomponer cada uno de esos para después abrir tu recordset

Lo que puedes hacer es un arreglo mediante la función split

arrServicio= split(request.form("servicio"), ",")

de esta manera tendrías un arreglo así: |1|2|3|4|5|6|

Y finalmente solo es recorrerlo

count= uBound(arrServicio)

For i=0 to count
If i > 0 Then
rs.MoveFirst
End If
Do while not rs.EOF
If arrServicio(i)=(rs.Fields.Item("Servicio").Value) then
session("precio")=(rs.Fields.Item("Precio").Value)
response.Write session("precio")
end if
rs.movenext
Loop
Next

A ver si te sirve...

salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 19:21.