<%
'on error resume next
if NOT isempty(Request.Form("OK")) then
password =Request("password")
username =Request("username")
set Objconn = server.createobject ("adodb.connection")
ObjConn.Open "A6302_business"
set RSFinduser = Objconn.Execute(" select * from members where username = '" & username & "' and password = '"& password &"' ")
if RSFinduser.EOF then
TheMessage = "Invalid User Name or pin."
else
Session("password") = RSFinduser("password")
Session("fname") = RSFinduser("fname")
Session("lname") = RSFinduser("lname")
Session("tel") = RSFinduser("tel")
Session("email") = RSFinduser("email")
Session("address") = RSFinduser("address")
Session("country") = RSFinduser("country")
Session("memberid") = RSFinduser("memberid")
Response.Redirect "./index.asp"
end if
else
TheMessage = "Log in Form"
end if
%> <%
If IsNumeric(Request.QueryString("lowerbound")) Then
intLowerBound = CLng(Request.QueryString("lowerbound"))
Else
intLowerBound = 0
End If
If IsNumeric(Request.QueryString("upperbound")) Then
intUpperBound = CLng(Request.QueryString("upperbound"))
If intLowerBound = 0 And intUpperBound = 0 Then intUpperBound = 3
Else
intUpperBound = 3
End If
If intLowerBound > intUpperBound Then
Dim iTemp
iTemp = intLowerBound
intLowerBound = intUpperBound
intUpperBound = iTemp
End If
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
%>
Business Unlimited
