AVANSYS - Software a Su medida

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsClientes_numRows = rsClientes_numRows + Repeat1__numRows dim xco,xn,xop,xreg xco = request("txtContra") xn = request("txtNit") xop = request("Buscar") if xop = "Bus" then Set Conexion = Server.CreateObject("ADODB.Connection") set buscar = Server.CreateObject("ADODB.Recordset") Conexion.Open "avansys" Validar = "Select Nit, Password from P_Desc where Nit = '" & xn & "' and Password = '" & xco & "' " Set buscar = Conexion.Execute(Validar) if buscar.eof then xreg = "0" else xreg = "1" Set Conexion1 = Server.CreateObject("ADODB.Connection") set buscar1 = Server.CreateObject("ADODB.Recordset") Conexion1.Open "avansys" Validar1 = "Select Nit, Tipo, Nombre from cliente where Nit = '" & xn & "' " Set buscar1 = Conexion1.Execute(Validar1) session("Software") = buscar1("Tipo") session("Cedula") = buscar1("Nit") response.Redirect("descarga_res.asp") end if end if %> AVANSYS - Software a Su medida

Descargas

Los clientes de AVANSYS tienen la ventaja de contar con las actualizaciones de su software en la web y acceder a ellas sin problema alguno, sin recargos y con un excelente soporte técnico.

<% if xreg = "0" then response.write("

NO eres cliente registrado en AVANSYS
") response.write("" & " " & "Click Aquí Para Registrarte" & "

" ) end if %>



	Nit:
	Contraseña:



	Todos los Derechos Reservados © 2006 - AVANSYS - Software a su medida Calle 48 # 32-14 Edificio TEMPO I Oficina 502 Teléfonos: 6572474 - 6496331 Bucaramanga, COLOMBIA