<%
Option Explicit
Session.LCID = 2058
'***** SI NO HA INICIADO SESION ***
If Session("Mybussiness") = "" then
Response.redirect("default.asp")
Else
Session.Timeout = 1200
'******* EN CASO DE ERROR ****
Err.Clear
On Error Resume Next
'*** REMPLAZA
Function Sanea(Texto)
Sanea = Replace(Texto, "'", "''")
End Function
%>
<!DOCTYPE html>
<HTML>
<HEAD>
<meta charset="ISO-8859-1" />
<TITLE>SISTEMA MIM <%= Session("Mybussiness") %> USUARIO: <%= Session("MyName") %></TITLE>
<link href="css/IndicadorA.css" rel="stylesheet" />
<!-- JavaScript para enviar a una pagina emergente -->
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
// End -->
</script>
</HEAD>
<BODY>
<%
'***** Variables a la base de datos ****
Dim Cn1, Cn2
Dim Rs11, Rs12, Rs13, Rs14, Rs15, Rs16, Rs17, Rs18, Rs19, Rs20, Rs21, Rs22, Rs23, Rs24, Rs25, Rs26, Rs27, Rs28, Rs29
Dim Sql11, Sql12, Sql13, Sql14, Sql15, Sql16, Sql17, Sql18, Sql19, Sql20, Sql21, Sql22, Sql23, Sql24, Sql25, Sql26, Sql27, Sql28, Sql29
'***** Conexion a la Base de Datos
Set Cn1 = Server.CreateObject( "ADODB.Connection" )
Cn1.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID="& Session("MyName") &";PWD="& Session("MyPass") &";Database="& Session("Mybussiness") &""
'***** Conexion a la Base de Datos
Set Cn2 = Server.CreateObject( "ADODB.Connection" )
Cn2.Open "DRIVER={SQL Server};SERVER=172.17.0.5;UID=ADMINDMEX;PWD=IW2BF01;Database="& Session("Mybussiness") &""
'***** Conexion A la Tabla Empresa ****
Set Rs11 = Server.CreateObject("ADODB.Recordset")
Sql11="Select * from Empresa;"
Rs11.Open Sql11,Cn1,1,2
%>
<Header>
<%= Rs11("Nombre") %><br>
<%= Rs11("Direccion") %>, <%= Rs11("colonia") %><br>
<%= Rs11("Poblacion") %>
</header>
<SECTION>
<CENTER>
<BR><BR>
<%
Dim Clave, Nombre
Dim CampoPro, OrdenPro
Dim num_registros, num_campos, Campo, registros_mostrados
Dim PaginaI
Clave = Request("Clave")
Nombre = Request("Nombre")
'Numero de Paginas
If Request("pag") <> "" Then
Session("pagina") = Request("pag")
Else
Session("pagina") = 1
End If
'Registros por Pagina
num_registros = 50
%>
<Form action="Prvdet.asp" name="Prvdet" method="Post">
<Table Border="0">
<Tr>
<Td>
<input tabindex="1" type="Text" placeholder="Clave" Title="Clave" name="Clave" id="TdProveedorLeft" value="<%= Clave %>" Size="10px" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
<Td>
<input tabindex="2" type="Text" placeholder="Nombre" Title="Nombre" name="Nombre" id="TdProveedorLeft" value="<%= Nombre %>" Size="45px" onChange="javascript:this.value=this.value.toUpperCase();">
</Td>
<Td>
<button tabindex="3" type="submit" name="Buscar" id="TdProveedorLeft"/> Buscar </button>
</Td>
</Tr>
</Table>
</Form>
<%
If (Clave="" or Isnull(Clave)) and (Nombre = "" or Isnull(Clave)) Then
Else
'***** Conexion A la Tabla Proveedores ****
Set Rs12 = Server.CreateObject("ADODB.Recordset")
Sql12="Select * " &_
"from Proveedores " &_
"Where Cveprv like '%" & UCase(Request("Clave")) & "%' and Nomprv like '%" & UCase(Request("Nombre")) & "%' " &_
"Order By Nomprv;"
Rs12.Open Sql12,Cn1,1,2
If Rs12.EOF Then
%>
<br><br>
<b>***** NO SE ENCONTRARON RESULTADOS CON ESOS PARAMETROS DE BUSQUEDA *****</B>
<%
Else
'Dimensionamos las paginas y determinamos la pagina actual
Rs12.PageSize=num_registros
Rs12.AbsolutePage=Session("pagina")
%>
<Br>
Pagina <b><%=Session("pagina")%></b> De <b><%= Rs12.PageCount %></b>
<br>
Registros Encontrados: <b><%= Rs12.RecordCount %></b>
<br>
<br>
<Table Id="TbLinea">
<Tr>
<Td Id="TdLineaHeader">Clave</Td>
<Td Id="TdLineaHeader">Nombre</Td>
<Td Id="TdLineaHeader">Status</Td>
<Td Id="TdLineaHeader">Tipo</Td>
</Tr>
<%
Do While Not Rs12.EOF
%>
<Tr onmouseover="this.className = 'resaltar'" onmouseout="this.className = null">
<Td Id="TdLineaLeft">
<a href="Prvdeta.asp?Proveedor=<%= Rs12("Cveprv") %>&Empresa=<%= Session("Mybussiness") %>" onclick="NewWindow(this.href,'<%= Rs12("Cveprv") %>','800','600','yes');return false;">
<%= Rs12("Cveprv") %>
</a>
</Td>
<Td Id="TdLineaLeft">
<a href="Prvdeta.asp?Proveedor=<%= Rs12("Cveprv") %>&Empresa=<%= Session("Mybussiness") %>" onclick="NewWindow(this.href,'<%= Rs12("Nomprv") %>','800','600','yes');return false;">
<%= Rs12("Nomprv") %>
</a>
</Td>
<Td Id="TdLineaLeft"><%= Rs12("StaPrv") %></Td>
<Td Id="TdLineaLeft"><%= Rs12("TipoP") %></Td>
</Tr>
<%
Rs12.Movenext
Loop
%>
<Tr>
<Td Id="TdLineaHeader" Colspan="4" Align="Center">
<br>
<%
PaginaI = 0
While PaginaI < Rs12.PageCount
PaginaI = PaginaI + 1
%>
<b><a href="Prvmod.asp?pag=<%= PaginaI %>&Clave=<%= Clave %>&Nombre=<%= Nombre %>"><%= PaginaI %></a></b>
<%
Wend
%>
</Td>
</Tr>
</table>
<%
End If
End If
%>
</SECTION>
<%
If Err.Number <> 0 Then
%>
<br><br>
Número de Error: <%= Err.Number %><BR>
Descripción: <%= Err.Description %><BR>
Origen: <%= Err.Source %><BR>
Linea: <%= Err.Line %><BR>
<br>
<%
Else
'****** FIN DE LOS ERRORES ***
End If
%>
</BODY>
</HTML>
<%
'FIN DE SESION
End If
%>