<% 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 & "
") %>
T&O Software - Download Pakket(ten) halen

Voor het gratis downloaden van het Frysk YPP,
ga naar: downloaden YPP
Voor abonnee's en geregistreerde gebruikers:
Toegang tot het halen van uw Download Pakket.

Naam :
Wachtwoord :

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