Metrocal Ltda - Metrología y Calibración

<% If Request.Form = "" Then %>

Ingrese el nit de su empresa

Nit:

<% Else Dim Con Dim Rs Dim Nit Nit = Request.Form("Nit") Set Con = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.RecordSet") Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Domains\metrocalltda.com\wwwroot\db\metrocal.mdb" Rs.Open "Cliente", con, 3 , 3 Rs.Filter="Nit='" & Nit & "'" if Rs.EOF then response.Redirect("cliente.asp") else response.Redirect("servicio.asp") %> <% End IF End IF%>