<% @ language=vbscript %>
<%
response.expires=0
strPage="Customer Login"
strDomain=request.form("domain")
strPass=request.form("pass")
strTLD=request.form("tld")
If request.servervariables("content_length")<>0 Then
%>
<%
strQ="SELECT * FROM Customers WHERE Domain='" & strDomain & "' AND Pass='" & strPass & "'"
strQ=strQ & " AND TLD='" & strTLD & "'"
set objRS=objConn.Execute(strQ)
If objRS.EOF Then
response.redirect("incorrect.asp")
End if
Session("domainid")=objRS("Domainid")
Session("domain")=objRS("Domain")
Session("tld")=objRS("Tld")
Session("pass")=strPass
Session("loggedin")="yes"
Session("name")=objRS("Name")
Session("resellerid")=objRS("ResellersID")
Session("fulldomain")=strDomain & "." & strTLD
strResellerID=Session("resellerid")
If strResellerID=0 Then
Session("Reseller")="No"
Else Session("Reseller")="Yes"
End if
objRS.close
objConn.close
set objRS=nothing
set objConn=nothing
If Session("url")<>"" Then
response.redirect(Session("url"))
End if
response.redirect("customers.asp")
End if
%>
Internet Solutions
The customer's area uses cookies, please ensure they are enabled on your
browser. All cookies will be destroyed when you leave our website.