%@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
%>
<% if message <> "" then %>
Current Client Login <%=message%>
<% end if %>
Want to advertise here? Call us at 303-239-1411
Welcome to Delphic Investigative Services
Since 1997, Delphic has been a statewide provider of investigative services to attorneys, businesses and consumers. While Delphic specializes in
investigating complex cases that are typical of the risks and challenges of the 21st century, we also offer day-to-day services such as process service,
skip tracing and asset investigations. Our seasoned investigators have backgrounds in law enforcement, investigative journalism and consumer collections
and offer a richly diverse backround to meet every contingency.
To learn more about our company, our services and our affiliations, click on one of the links above. If you're already a client, simply log in to check the
status of an assignment.
Not a client yet? Click here, and fill out our New Client
Request Form. We'll issue your UserID and Password to connect you with the best investigators in Colorado.