<%@Language=VBScript%>
<%
If Session("user") = "" Then
Response.Redirect "login.asp"
End If
Dim cnH
Dim rsH, rsU
Dim i
Set cnH = Server.CreateObject("ADODB.Connection")
Set rsH = Server.CreateObject("ADODB.Recordset")
cnH.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/Farming.mdb") & ";User Id=admin;Password=;"
rsH.Open "SELECT * FROM Klanten WHERE [Email]='" & Session("user") & "'", cnH, 3, 3
%>
Landbouw Speelgoed
Mijn spaarpunten
<%
cnH.Close
Set rsH = Nothing
Set cnH = Nothing
%>
