Cita:
Iniciado por Pachangero Si vi bien, donde abres la base de datos?
Si estoy en lo correcto te falto esta linea
oConn.Open (Server.Mappath("base.mdb"))
Pues necesitas un par de lentes...
en el codigo está la linea: cn.Open MM_encomiendas_s_STRING
te dá algún error? o simplemente no te muestra nada?
prueba con esto y cuantanos que pasa:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Resultados de la búsqueda</title>
</head>
</body>
<!--#include file="../sistencom/Connections/encomiendas_s.asp" -->
<%
dim campo, texto
campo=request.form("campo")
texto=request.form("texto")
set cn=Server.CreateObject("Adodb.Connection")
cn.Open MM_encomiendas_s_STRING
response.write(MM_encomiendas_s_STRING)
'cn.Connection timeout=20
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "Select * from ENCOMIENDA_ENTRADA where " & campo & " like '%" & texto & "%'",cn
%>
<h1>Resultado de la búsqueda</h1>
<ul>
<%
if rs.eof then
response.write("No hay registros en la consulta")
end if
Do until rs.EOF
Response.write ("<br><a href=frmficha_enc.asp?ID_ING_ENCOM=" & rs.fields("ID_ING_ENCOM") & ">Ver Ficha  </a>")
Response.write rs.fields("Remitente")
Response.write chr(10)
rs.MoveNext
loop
%>
</ul>
<%
rs.close
cn.close
set rs=nothing
set cn=nothing
%>
</body>
</html>