ACCESO A BASES a un campo de tipo HIPERVINCULO
Publicado por PEDRO (3 intervenciones) el 14/11/2000 00:00:00
Tengo un problema con asp, por medio de un formulario yo realizo la siguiente busqueda en una base de datos que se llama "LIBROS" DE ACCES
*****************************************
*************************************
<html>
<head>
<title>Buscar datos</title>
</head>
<body>
<p><font face="Arial">Resultados obtenidos con <strong><%=Request("Criterio") %></strong></font></p>
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Dim Temp,Rango
Rango=Request("Tipo")
Conexion.Open "LIBROS"
If Rango="1" Then
Temp="Select * From LIBROS Where UCase([LIBROS])=´" & UCase(Request("Criterio")) & "´"
Else
Temp="Select * From LIBROS Where InStr(UCase([LIBROS]),´" & UCase(Request("Criterio")) & "´)>0"
End If
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Arial">No se ha encontrado ningún registro que reúna las condiciones del criterio <strong><%=Request("Criterio")%></strong> en la Base de Datos</font></p>
<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="33%"><strong><font face="Arial">LIBROS</font>
*****************************************
*************************************
<html>
<head>
<title>Buscar datos</title>
</head>
<body>
<p><font face="Arial">Resultados obtenidos con <strong><%=Request("Criterio") %></strong></font></p>
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Dim Temp,Rango
Rango=Request("Tipo")
Conexion.Open "LIBROS"
If Rango="1" Then
Temp="Select * From LIBROS Where UCase([LIBROS])=´" & UCase(Request("Criterio")) & "´"
Else
Temp="Select * From LIBROS Where InStr(UCase([LIBROS]),´" & UCase(Request("Criterio")) & "´)>0"
End If
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Arial">No se ha encontrado ningún registro que reúna las condiciones del criterio <strong><%=Request("Criterio")%></strong> en la Base de Datos</font></p>
<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="33%"><strong><font face="Arial">LIBROS</font>
Valora esta pregunta
0