Una simple consulta????
Publicado por perropeligroso (3 intervenciones) el 13/10/2001 15:36:43
Mi problema es q paso un dato de una pagina ASP a otra y necesito q a partir de esa me seleccione los campo, este es el codigo de la línea en cuestion q me da fallo:
sql = "SELECT * FROM indice WHERE campo1 LIKE '%&campo1&%'"
Adjunto resto de codigo por si acaso puede ser de ayuda:
<%
dim objConnexBD
dim objBD1
Dim campo1
campo1 = Trim(Request.Form("campo1"))
Path=Server.MapPath("bd.mdb")
set objConnexBD = Server.CreateObject("ADODB.Connection")
objConnexBD.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
Set objBD1=Server.CreateObject("adodb.recordset")
sql = "SELECT * FROM indice WHERE campo1 LIKE '%&campo1&%'"
objBD1.Open sql, objConnexBD, 1, 1
If objBD1.EOF = True then
Response.Write "<BR>No se encontraron imágenes."
else
While Not objBD1.EOF
%>
<a href="<%=objBD1.Fields("imagen")%>b.jpg"><img src="<%=objBD1.Fields("imagen")%>.jpg" border=0></a>
<%
objBD1.MoveNext
Wend
end if %>
sql = "SELECT * FROM indice WHERE campo1 LIKE '%&campo1&%'"
Adjunto resto de codigo por si acaso puede ser de ayuda:
<%
dim objConnexBD
dim objBD1
Dim campo1
campo1 = Trim(Request.Form("campo1"))
Path=Server.MapPath("bd.mdb")
set objConnexBD = Server.CreateObject("ADODB.Connection")
objConnexBD.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path
Set objBD1=Server.CreateObject("adodb.recordset")
sql = "SELECT * FROM indice WHERE campo1 LIKE '%&campo1&%'"
objBD1.Open sql, objConnexBD, 1, 1
If objBD1.EOF = True then
Response.Write "<BR>No se encontraron imágenes."
else
While Not objBD1.EOF
%>
<a href="<%=objBD1.Fields("imagen")%>b.jpg"><img src="<%=objBD1.Fields("imagen")%>.jpg" border=0></a>
<%
objBD1.MoveNext
Wend
end if %>
Valora esta pregunta


0