me acabo de dar cuenta que mi página anterior la que me envia el valor no envia nada
pagina_1.asp
<%
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<%
dim variable
Variable="No"
'Para los redireccionamientos
Response.Buffer=True
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/acceso.mdb") & "; Password=bonilla "
SQL="SELECT id, grado, seccion, CC, fecha, nombre, apellidop, apellidom, pago FROM " & _
"ventas WHERE (Pago='"&variable&"') ORDER By apellidop;"
set rs=oConn.Execute(SQL) %>
<html>
<head>
<title>Formulario</title>
</head>
<form method="post" action="
pagina_2.asp">
<table>
<tr>
<td width="16%" align="center" height="19">
<font face="Arial" color="#790000" size="2"><b>Apellido Paterno</b></font></td>
</tr>
<% while (NOT Rs.eof) %>
<tr>
<td width="3%" height="19">
<p>
<input type="radio" value="<%=Rs("id")%>" name="id"></p>
</td>
<td width="16%" height="19"><b>
<font size="2" face="Arial" color="#003366"><%=
Rs("APELLIDOP")%>></b></td>
</tr>
<% Rs.movenext()
Wend %>
</table>
</form>
</body>
</html>
=============================================
Pagina2_asp ( la que me Recoje el valor )
<%Language=VBScript%>
<%
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<%
cadena=Split(id," ,")
For i =0 to Ubound(cadena)
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/acceso.mdb") & "; Password=bonilla "
SQL="SELECT id, apellidop, apellidom, nombre, grado, seccion, cc, fecha, pago FROM " & _
"ventas where [id] in( " & id&")"
set rs=oConn.Execute(SQL)
Next
response.Write ""& id &""
%>
Ya no agrego lo demas del código, porque aqui al final de la linea pongo un Response.Write y no m elo muestra, no me muestra nada, y ... pues no recoge ningun valor...
Qué hago mal?
Saludos
Owen