%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Dim Error_Msg
login = Request.Form("login")
If login = "login_again" Then
Session("UserLoggedIn") = ""
ShowLogin
Else
If Session("UserLoggedIn") = "true" Then
AlreadyLoggedIn
Else
If login = "true" Then
CheckLogin
Else
Session("DbPacketStr") = ""
ShowLogin
End If
End If
End If
Sub ShowLogin
Response.Write(Error_Msg & "
")
%>
<%
End Sub
Sub AlreadyLoggedIn
%>
U hebt de toegang al verkregen.
Wilt U nog een keer inloggen met een andere naam?
<%
End Sub
Sub CheckLogin
Dim Conn, cStr, sql, sq2, RS, username, userpwd, MyArray()
username = Request.Form("username")
userpwd = Request.Form("userpwd")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=d:\www\tandosoftware.nl\database\dbnet.mdb;DRIVER={Microsoft Access Driver (*.mdb)}", "", ""
sql = "select packets, count from UserTable where username = '" & LCase(username) & "'"
sql = sql & " and userpwd = '" & LCase(userpwd) & "'"
Set RS = Conn.Execute(sql) ' recordset
If RS.BOF And RS.EOF Then
Error_Msg = "Naam en/of wachtwoord onjuist. Probeer het nog eens."
ShowLogin
Else
Session("UserLoggedIn") = "true"
' gegevens pakketten in string
ReDim Preserve MyArray(3, 1)
MyArray(0, 0) = RS(0) ' pakketten
Session("DbPacketStr") = MyArray(0, 0)
MyArray(1, 0) = RS(1) ' teller
' als teller te hoog, dan afbreken
If MyArray(1, 0) <> "0" and MyArray(1, 0) <> "1" Then
Response.Redirect "tevaak.htm"
End if
'MyArray(2, 0) = RS(2)
'MyArray(3, 0) = RS(3)
'Response.Write( MyArray( 0, 0 ) & "
" )
'Response.Write( MyArray( 1, 0 ) & "
" )
'Response.Write( MyArray( 2, 0 ) & "
" )
'Response.Write( MyArray( 3, 0 ) & "
" )
' teller pakketen ophalen ophogen
'sq2 = "UPDATE UserTable SET count = count + 1 WHERE username = '" & LCase(username) & "'"
'sq2 = sq2 & " and userpwd = '" & LCase(userpwd) & "'"
'Conn.Execute(sq2) ' er worden geen record-sets gereturned
RS.Close
Conn.Close
Set RS = nothing
Set Conn = nothing
Response.Redirect "protectedpage2.asp"
End If
End Sub
%>