23/07/2003, 22:16
|
 | | | Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 22 años, 6 meses Puntos: 0 | |
| Bueno le voy a hacer un pequeño cambío... declararemos el recorset vale?
Set RS = Server.CreateObject("ADODB.RecordSet")
Asi queda:
<%@LANGUAGE=VBScript%>
<%Option Explicit%>
<%
Dim conn
Dim Rs
Dim Ruta
Dim Index
Dim clave
Ruta=Server.MapPath("/test.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Ruta
clave=Request.Form("Cod")
Set Rs=conn.Execute("Select top 1 nombres, apellidos, * from peli order by Cod")
If Rs.EOF and Rs.BOF then
Response.Write("<html><head></head><body bgcolor='#336699' text='#ffffff'>")
Response.Write("<br><br><br><center><b>")
Response.Write("No se encontro el Registro")
Response.Write("</b></center>")
Response.Write("</body></html>")
else
%>
Prueba con eso!!
__________________
"Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein |