<%@LANGUAGE="VBSCRIPT"%> <% If Request.servervariables("REQUEST_METHOD") = "POST" Then 'Define Delphic Connection MM_dis1_STRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=D:\\ClientApps\\DelData97.mdb;Uid=;Pwd;" 'Define AWS Connection 'DO NOT REMOVE 'filePath = Server.MapPath("/DelData97.mdb") 'MM_dis1_STRING = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & filePath & ";" UserID=replace(replace(replace(""&request.form("userid"),"'","''"),"--",""),"password","") Password=replace(replace(replace(""&request.form("password"),"'","''"),"--",""),"password","") SQL = "SELECT userID FROM websecurity where WebSecurity.userID='" & userID & "' and WebSecurity.password = '" & password & "'" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open MM_dis1_STRING set RS = Server.CreateObject("ADODB.Recordset") RS.open SQL,Conn If not rs.eof then Session("MM_Username") = UserID userID = rs("userID") rs.close SQL = "Select accounttype from customers where customerID = " & userID RS.open SQL,Conn if not rs.eof then if ucase(rs("accounttype")) = "PI" then REDIRECT = "dis_form_main_menu_PI.asp" else REDIRECT = "dis_form_choose_one.asp" end if else message = "Username and/or Password Invalid." end if else message = "Username and/or Password Invalid." end if 'CLEAN UP!! rs.close set rs=nothing conn.close set conn=nothing if redirect <> "" then response.redirect REDIRECT end if end if %> Delphic Investigative Services, Inc.

<% if message <> "" then %> Current Client Login <%=message%> <% end if %>
USERID:
PASSWORD:


Want to advertise here? Call us at 303-239-1411

Bienvenidos a Delphic Investigative Services

Agradecemos su visita a nuestro sitio en el que estamos seguros encontrará el servicio que usted necesita. Desde 1997, Delphic ha sido un proveedor de servicios legales para abogados, negocios y consumadores. Nuestra reconocida experiencia en el ramo nos ha distinguido dentro de los círculos más importantes de Empresarios y Bufetes de Abogados.

Pero, entendemos que no existe la misma diversidad en nuestra profesión como en nuestra comunidad. De los 300 investigadores privados en Colorado, sólo pocos son multiculturales o bilingues. Delphic tiene la intención de cambiar esta estadística. Sabemos que a veces, necesita un investigador que pueda hablar en su idioma.

La próxima vez que necesita un Process Server o investigador privado, llamenos a 303-239-1411. Puede confiar en nosotros.

Si a usted le gustaría ser un cliente de Delphic, haz clik aquí, y rellene el impreso. Le daremos su codigo de identificación y contraseña para que pueda conectarse con los mejores investigadores en Colorado.

Copyright ©2007 Delphic Investigative Services, Inc.

easyfreetemplates.com sponsored by Custom t-shirts