<% Response.expires = 0
Gebruikersnaam = txtSQL(Request.form("Gebruikersnaam"))
wachtwoord = txtSQL(Request.form("Wachtwoord"))
Set RS_abonnee_extra = Server.CreateObject("ADODB.RecordSet")
RS_abonnee_extra.Open "SELECT * FROM vw_abonnee_extra_datum WHERE Gebruikersnaam='" & Gebruikersnaam & "' AND wachtwoord='" & wachtwoord & "'", objConn, 3, 3
IF NOT RS_abonnee_extra.EOF THEN
Session("Abonnee_extra") = 1
'Hier loggen hoevaak er is ingelogd op afgeschermde gedeelte
'huidigedatum = Datumsql(date())
'selectdatum = Datumnotatieselect(date())
'Set objRS11 = Server.CreateObject("ADODB.RecordSet")
'objRS11.Open "SELECT * FROM Abonnee_extra_log WHERE datum ='"& selectdatum &"'", objConn, 3, 3
'IF objRS11.BOF = TRUE THEN
'Set cmd = Server.CreateObject("ADODB.Command")
'Set cmd.ActiveConnection = objConn
'insert = "INSERT INTO Abonnee_extra_log (datum, views) VALUES ('"&huidigedatum&"', '1')"
'objConn.Execute(insert)
'ELSE
'views = objRS11("views")
'views = views + 1
'update = "Update [Abonnee_extra_log] SET views ='"& views &"'"
'update = update & " WHERE datum = '" & selectdatum &"'"
'objConn.Execute(update)
'END IF
'objRS11.close
'Set objRS11 = Nothing
' eind loggen
'ganaar = "navigatie1.asp?id=68"
'Response.Redirect ganaar
'Response.Write("")
END IF
%>
Inloggen
<% IF Session("Abonnee_extra") = 1 THEN %>
<% ELSE %>
<% END IF %>
Abonnee extra
Inloggen is alleen nodig als u recente evaluaties, artikelen of lesideeën wilt bekijken. Gebruikersnaam en wachtwoord veranderen elke keer als er een nieuwe COS verschijnt.
Kijk voor deze codes onderaan pagina drie van de nieuwste COS.
<% IF Session("Abonnee_extra") = 1 THEN
Response.Write "Status: ingelogd"
ELSE %>