<%@ LANGUAGE="VBSCRIPT" %>
Strategic Ranking Client Login
<%Dim rs
Dim ErrMsg, CustomerID, CustomerPWD, CustomerURL
If Request("Validate") = "1" then
If CheckAdmin(ErrMsg) then
Session("Admin") = "True"
Response.Redirect(CustomerURL)
else
Session("Admin") = "False"
end if
end if
%>
Thank you, once again, for choosing Strategic Ranking
as your Search Engine Marketing partner! We appreciate your business
and are committed to providing you with continued results
and exceptional personal service. Sign in to review your current search rankings, site
conversion rates, web analytics and project management reports.
<%
Public Function CheckAdmin(byRef ErrMsg)
CustomerID = UCase(Trim(Request("CustomerID")))
CustomerPWD = UCase(Trim(Request("CustomerPWD")))
if CustomerID = "" then ErrMsg = "Please enter a valid username. "
if CustomerPWD = "" then ErrMsg = ErrMsg & "Please enter a valid password. "
If ErrMsg <> "" then
CheckAdmin = False
Exit Function
End If
Set rs = Server.CreateObject("ADODB.Recordset")
strQry = "SELECT * FROM Customers WHERE CustomerID = '" & CustomerID & "'"
rs.Open strQry, cn, adOpenKeyset, adLockOptimistic
rs_numRows = 0
If rs.EOF Then
ErrMsg = ErrMsg & " Invalid User Name. "
CheckAdmin = False
Else
If CustomerPWD = rs("CustomerPWD") then
CheckAdmin = True
Session("Admin") = "True"
CustomerURL = rs("CustomerURL")
Else
ErrMsg = "Invalid Password. "
CheckAdmin = False
End IF
End If
End Function
%>
