<%@LANGUAGE="VBSCRIPT"%> <%Session.LCID = 2057%> <%hacer = Request.Querystring("Procesar")%> <% if hacer = "1" then Dim cn, load diskUser = Request.form("Usuario") diskPassword = Request.form("Password") iSQL = "SELECT usuario, password FROM usuarios WHERE usuario = '" & diskUser & "' AND Password='" & diskPassword & "'" Set cn = Server.CreateObject("ADODB.Connection") cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../database/registro.mdb") cn.open Set rs = Server.CreateObject("ADODB.Recordset") rs.Open iSQL, cn, 1, 3 if not rs.eof then Set archivoDeSistema = CreateObject("Scripting.FileSystemObject") Set mejorasDoc = archivoDeSistema.GetFile(Server.Mappath("download/Mejoras corredor2000.doc")) Set reportesExe = archivoDeSistema.GetFile(Server.Mappath("download/reportes.exe")) Set manual = archivoDeSistema.GetFile(Server.Mappath("download/Manual.zip")) Set sinctrlExe = archivoDeSistema.GetFile(Server.Mappath("download/" & strDirectorio & "sinctrl.exe")) Set corredorExe = archivoDeSistema.GetFile(Server.Mappath("download/" & strDirectorio & "corredor.exe")) parametros = "?strDestino=0" parametros = parametros & "&mejorasSize=" & Round((mejorasDoc.Size/1024),2) & "&mejorasDate=" & FormatDateTime(mejorasDoc.DateLastModified,2) parametros = parametros & "&reportesSize=" & Round((reportesExe.Size/1024000),2) & "&reportesDate=" & FormatDateTime(reportesExe.DateLastModified,2) parametros = parametros & "&manualSize=" & Round((manual.Size/1024000),2) & "&manualDate=" & FormatDateTime(manual.DateLastModified,2) parametros = parametros & "&sinctrlSize=" & Round((sinctrlExe.Size/1024000),2) & "&sinctrlDate=" & FormatDateTime(sinctrlExe.DateLastModified,2) parametros = parametros & "&corredorSize=" & Round((corredorExe.Size/1024000),2) & "&corredorDate=" & FormatDateTime(corredorExe.DateLastModified,2) Set archivoDeSistema = Nothing Set mejorasDoc = Nothing Set reportesExe = Nothing Set corredorExe = Nothing response.redirect("_asp/download_corredor.asp" & Parametros) else response.redirect("denied.asp") end if else %> :::Soporte Corredor - 2000 :::
Para poder visualizar los Manuales debera tener Nuestro Sistema y estar inscrito en la base de datos de Disk Soportes.

 

Usuario:
Pass:

 

ATENCION ESTIMADO USUARIO

Recientemente hemos modificado los procedimientos para usted poder descargar los programas adquiridos a Disk Soportes S.R.L por lo que su usuario y contraseña han quedado desactivados, le agradecemos se registre nuevamente.

Regístrese Aquí

<%end if%>