<%@ 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 %> <%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%>

Already Members Login Here
Username	"" Then%> value="<%=uname%>" <%END IF%>>
Password
Forgot Password New Users Register Here