link en asp
Publicado por Daniel Giraldo (1 intervención) el 20/04/2007 20:04:46
buenas ...
no se nada de asp net..un programador me entrego un archivo de una pagina web y esta todo bien pero tengo una duda
la pagina tiene un buscador y lo que quiero es que si no encuentra datos me abra una pagina web......en este codigo dice que si no encuentra datos me muestra un mensaje y un boton
este es el cogido
<%@Language="VBSCRIPT"%>
<%
'if session("permiso")<>"1" then
' response.Redirect("controlacceso.htm")
'end if
'PROCESAR
DIM Buscar,Oconn,VSQL,RsDatos,Str
Buscar= REQUEST.Form("t1")
aqui hace la coneccion-.....
Response.Write "<FONT COLOR=Blue "
Response.Write "SIZE=4 FACE=Arial> "
Response.Write "</FONT> "
Response.Write "<FONT COLOR=Green "
Response.Write "SIZE=3 FACE=Arial> "
Response.Write "</FONT><hr> "
VSQL= "SELECT CodProd,Descripcion,Departamento,Marca,Precio FROM articulos WHERE Descripcion LIKE '%"&Buscar&"%';"
Set RsDatos=Server.CreateObject ("ADODB.RECORDSET")
RsDatos.Open VSQL,Oconn,2,3
If RsDatos.BOF AND RsDatos.EOF Then
RESPONSE.Write "<CENTER<B>Lo Siento, no se Encontraron Resultados</B></CENTER><p>"
RESPONSE.Write "<A HREF=""articulos.asp"">Regresar</A>"
Else
If Buscar = "" Then
RESPONSE.Write "<CENTER<B>Por Favor, especifique su Busqueda</B></CENTER><p>"
RESPONSE.Write "<A HREF=""pruev.asp"">Regresar</A>"
Else
aca genera la tabla
no se nada de asp net..un programador me entrego un archivo de una pagina web y esta todo bien pero tengo una duda
la pagina tiene un buscador y lo que quiero es que si no encuentra datos me abra una pagina web......en este codigo dice que si no encuentra datos me muestra un mensaje y un boton
este es el cogido
<%@Language="VBSCRIPT"%>
<%
'if session("permiso")<>"1" then
' response.Redirect("controlacceso.htm")
'end if
'PROCESAR
DIM Buscar,Oconn,VSQL,RsDatos,Str
Buscar= REQUEST.Form("t1")
aqui hace la coneccion-.....
Response.Write "<FONT COLOR=Blue "
Response.Write "SIZE=4 FACE=Arial> "
Response.Write "</FONT> "
Response.Write "<FONT COLOR=Green "
Response.Write "SIZE=3 FACE=Arial> "
Response.Write "</FONT><hr> "
VSQL= "SELECT CodProd,Descripcion,Departamento,Marca,Precio FROM articulos WHERE Descripcion LIKE '%"&Buscar&"%';"
Set RsDatos=Server.CreateObject ("ADODB.RECORDSET")
RsDatos.Open VSQL,Oconn,2,3
If RsDatos.BOF AND RsDatos.EOF Then
RESPONSE.Write "<CENTER<B>Lo Siento, no se Encontraron Resultados</B></CENTER><p>"
RESPONSE.Write "<A HREF=""articulos.asp"">Regresar</A>"
Else
If Buscar = "" Then
RESPONSE.Write "<CENTER<B>Por Favor, especifique su Busqueda</B></CENTER><p>"
RESPONSE.Write "<A HREF=""pruev.asp"">Regresar</A>"
Else
aca genera la tabla
Valora esta pregunta


0