Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Morpheus#2005

Check box dinamico

Por , em ASP Clássico

Recommended Posts

Morpheus#2005    1

Morpheus#2005
Postado

Salve ..Galera, eu preciso passar os dados de um checkbox para outra página mas quando seleciono mas de um check ele da erro..Da uma olhada alguém e me da uma kuz.... brigadaço..teste.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/bdteste.asp" --><%Dim geralDim geral_numRowsSet geral = Server.CreateObject("ADODB.Recordset")geral.ActiveConnection = MM_bdteste_STRINGgeral.Source = "SELECT * FROM dbo.TelemarAtende"geral.CursorType = 0geral.CursorLocation = 2geral.LockType = 1geral.Open()geral_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = 10Repeat1__index = 0geral_numRows = geral_numRows + Repeat1__numRows%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title></head><body><form name="form1" method="post" action="/telemaratende/teste2.asp"> <% While ((Repeat1__numRows <> 0) AND (NOT geral.EOF)) %> <input name="TESTE" type="checkbox" id="TESTE" value="<%=(geral.Fields.Item("ID").Value)%>"> <%=(geral.Fields.Item("Modelodomodem").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 geral.MoveNext()Wend%><input type="submit" name="Submit" value="Submit"></form></body></html><%geral.Close()Set geral = Nothing%>------------------------------------------teste2.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="../Connections/bdteste.asp" --><%Dim teste__MMColParamteste__MMColParam = "1"If (Request.Form("teste") <> "") Then teste__MMColParam = Request.Form("teste")End If%><%Dim testeDim teste_numRowsSet teste = Server.CreateObject("ADODB.Recordset")teste.ActiveConnection = MM_bdteste_STRINGteste.Source = "SELECT * FROM dbo.TelemarAtende WHERE ID = " + Replace(teste__MMColParam, "'", "''") + ""teste.CursorType = 0teste.CursorLocation = 2teste.LockType = 1teste.Open()teste_numRows = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title></head><body><%=(teste.Fields.Item("ID").Value)%><%=(teste.Fields.Item("Modelodomodem").Value)%></body></html><%teste.Close()Set teste = Nothing%>________________________________________-O erro q dar é na linha 20 que é o open do banco...Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[Microsoft][ODBC SQL Server Driver]

Line 1: Incorrect syntax near ','./telemaratende/teste2.asp, line 20

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

No seu caso, quando você seleciona mais de um CheckBox você passa a ter uma matriz como resultado, ou seja os IDs vem separados por virgula, você pode usar em seu SELECT na SQL o IN no lugar da igualdade, ficaria asim:

SELECT * FROM dbo.TelemarAtende WHERE ID IN " + Replace(teste__MMColParam, "'", "''") + ";"

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito