<%@LANGUAGE="VBSCRIPT"%>
<%
Dim RS__ParametroNombre
Dim RS__ParametroLocalidad
Dim RS_ParametroActividad
Dim ParametroSQL
Dim Var_Chequear
Dim MostrarBanner
RS__ParametroNombre=request.form("Nom")
RS__ParametroLocalidad=request.form("Local")
RS__ParametroActividad =Request.form("activ")
Var_Chequear= Request.form("checkbox")
if Var_Chequear<>"true" then
if RS__ParametroLocalidad="TODAS" then
if RS__ParametroNombre="" then
ParametroSQL= "SELECT * FROM Tabla1 WHERE Actividad LIKE '%" + Replace(RS__ParametroActividad, "'", "''") + "%' ORDER BY Cliente_Portal,Nombre ASC"
else
ParametroSQL= "SELECT * FROM Tabla1 WHERE Nombre LIKE '%" + Replace(RS__ParametroNombre, "'", "''") + "%' AND Actividad LIKE '%" + Replace(RS__ParametroActividad, "'", "''") + "%' ORDER BY Cliente_Portal,Nombre ASC"
end if
else
if RS__ParametroNombre="" then
ParametroSQL= "SELECT * FROM Tabla1 WHERE Población LIKE '%" + Replace(RS__ParametroLocalidad, "'", "''") + "%' AND Actividad LIKE '%" + Replace(RS__ParametroActividad, "'", "''") + "%' ORDER BY Cliente_Portal,Nombre ASC"
else
ParametroSQL= "SELECT * FROM Tabla1 WHERE Nombre LIKE '%" + Replace(RS__ParametroNombre, "'", "''") + "%' AND Población LIKE '%" + Replace(RS__ParametroLocalidad, "'", "''") + "%' AND Actividad LIKE '%" + Replace(RS__ParametroActividad, "'", "''") + "%' ORDER BY Cliente_Portal,Nombre ASC"
end if
end if
else
if RS_ParametroNombre="" then
Response.redirect("http://www.portalaxarquia.com")
else
ParametroSQL= "SELECT * FROM Tabla1 WHERE Nombre LIKE '%" + Replace(RS__ParametroNombre, "'", "''") + "%' ORDER BY Cliente_Portal,Nombre ASC"
end if
end if
IF (Request.QueryString ("Pagina") = "Pagina Siguiente") THEN
Session ("Pagina")= Session ("Pagina") + 1
ELSE IF (Request.QueryString ("Pagina") = "Pagina Anterior") THEN
Session ("Pagina")= Session ("Pagina") - 1
ELSE Session ("Pagina")= 1
IF Var_Chequear<>"true" THEN
Session ("temporal") = ParametroSQL
Session ("veractividad") =Request.form("activ")
ELSE
Session ("temporal") = ParametroSQL
Session ("veractividad") =Request.form("Nom")
END IF
END IF
END IF
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "portalaxarquia"
if Session("pagina")< 1 then
Ob_RS.Open ParametroSQL, Ob_Conn,adOpenStatic,adCmdText
else
ParametroSQL=Session("temporal")
Ob_RS.Open ParametroSQL, Ob_Conn,adOpenStatic,adCmdText
end if
Ob_RS.PageSize=9
'Ob_RS.AbsolutePage=Session("Pagina")
%>
<% if not Ob_RS.eof then
Ob_RS.AbsolutePage=Session("Pagina")
end if
%>
Portal Axarquia
