Olha galera tentarei me explicar aqui e vejam se vocês podem ajudar... é o seguinte o cara vai abrir um página que vai conter o cadastro de várias pessoas... para cada registro tem um checkbox para a pessoa poder selecionar certo.. ai quando ela clicar no botão deverá abrir outra com os campos de cada uma das pessoas que ele selecionou o checkbox... ai eu fiz o seguinte: no checkbox <input type="checkbox" name="Check" value="<%=rs("id")%>" id="Check">
certo assim ele me envia os id´s assim:
Na pagina que eu recebo eu uso um replace para que o código fique assim:
ai tentei fazer o select e o do while da seguinte maneira:
<%
box = Request.Form("Check")
campos = MudarPalavra(box)
regs = 50
pag = 1
AbreConexao
Set rs = Createobject("ADODB.recordset")
set Rs.ActiveConnection = Conexao
rs.cursortype = 3
rs.pagesize = regs
SQL = "SELECT * FROM Passageiros WHERE id ="&campos&""
rs.Open SQL
If rs.EOF or rs.BOF Then
Response.Write "Sem resultados!"
Else
rs.Absolutepage = pag
contador = 0
Do While Not rs.EOF AND contador < rs.Pagesize %>
<tr align="center" valign="middle" class="formulario">
<td><%=rs("id")%></td>
<td><%=rs("Nome")%></td>
<td><%=rs("Sexo")%></td>
<td><%=rs("Idade")%></td>
<td><%=rs("EstadoCivil")%></td>
<td><%=rs("Tipo")%></td>
<td><%=rs("FalaJp")%>%</td>
<td><%=rs("TrabaQuantas")%></td>
<td><%=rs("TempoJp")%></td>
<td><%=rs("Escolaridade")%></td>
<td><%=rs("VistoReentry")%></td>
<td><%=rs("Altura")%></td>
<td><%=rs("Peso")%></td>
<td><%=rs("Nascimento")%></td>
<td><%=rs("Promotor")%></td>
</tr>
<% contador = contador +1
rs.MoveNext
Loop
End If
rs.Close
FechaConexao %> porem ele só esta me mostrando 1 registro não ta executando o do while... se alguém souber porque ta acontecendo isso ou oke tem ke mudar da um help ai vlw!!