<%@ Language="VBScript" %> <% Option Explicit %> <% '############################################################################################ '## ## '## ## '## VEETRON .COM ## '## ## '############################################################################################ %> <% Dim whtdo,url,uname,msg msg = Request.QueryString("msg") whtdo = Request.Querystring("whtdo") uname = Request.QueryString("uname") %> <%IF NOT Session("login") = "True" Then%> <%IF whtdo = "login" Then%> <% Dim lusername,lpassword lusername = Request.Form("username") lpassword = Request.Form("password") url = Request.Form("url") %> <%IF lusername = "" Then%> <%loginerror("nousername")%> <%ELSEIF lpassword = "" Then%> <%loginerror("nopass")%> <%ELSE%> <% Dim sql,rsUserv,auser,apass,fname,lname,userleval sql = "SELECT username,password,fname,lname,userleval FROM Users WHERE username = '" & lusername & "'" Set rsUserv = Server.CreateObject("ADODB.Recordset") rsuserv.Open sql, dbconn, 3, 3 IF not rsUserv.EOF Then auser = rsUserv("username") apass = rsUserv("password") fname = rsUserv("fname") lname = rsUserv("lname") userleval = rsUserv("userleval") IF lpassword = apass Then Session.Timeout = 10 Session("login") = "True" Session("userleval") = userleval Session("username") = auser Session("fname") = fname Session("lname") = lname Response.Redirect(url) ELSE loginerror("wrongp") END IF ELSE loginerror("wrongu") END IF %> <%END IF%> <%ELSE%> <% url = Request.Cookies("pageurl") IF url = "" Then url = "index.asp" END IF %>
<%IF msg = "nologin" Then%>
You must login to view this page.
. <%END IF%>
Already Members Login Here
Username "" Then%> value="<%=uname%>" <%END IF%>>
Password
Forgot Password     New Users Register Here
<%END IF%> <%ELSE%>


You already logged in as ("<%=Session("username")%>")


Click here to logout
<%END IF%> <% Function loginerror(calltype) %>


<%elseif calltype = "wrongp" then%> Sorry you have entered wrong password.
PLEASE NOTE: Username and passwords are casesensitive <%end if%>

LOGIN ERROR
<%if calltype = "nousername" then%> You have not entered any username. <%elseif calltype = "nopass" then%> You have not entered any password. <%elseif calltype = "wrongu" then%> Sorry we cannot find this user "<%=(lusername)%> " in our database.
Would you like to signup for this username then Click Here
    Need Some Help:
  • Please note username and passwords are casesensitive.
  • Check your caps lock.If it on then turn it off and try again.
  • If caps lock is off then make sure that you have enter correct informations.
  • Go back and try to re-enter informations.

Please click here to go back and make changes
<%End Function%>