<%@language=vbscript%>
<%
Response.Expires = -1
session("UID") = "leeg"
If len(request("register"))>0 Then
Response.Write ""
End IF
If len(request("login"))>0 Then
If (checklogin(request("uid"),request("pwd"))) Then
session("loggedin") = 1
'response.write session("BooAdmin")
Response.Write ""
' response.redirect ("news.asp")
ENd IF
End If
function checklogin(byval sUID,byval sPWD)
checklogin = 0
dim Conn
dim oRS
set oRS = Server.CreateObject ("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 20
conn.CommandTimeout = 20
On Error Resume Next
Conn.Open(strConn)
On Error goto 0
Dim strSQL
strSQL = "SELECT * FROM personen WHERE naam='"&sUID&"' AND passwd='"&sPWD&"'"
On Error Resume Next
set oRS = Conn.execute(strSQL)
On Error goto 0
On Error Resume Next
If not oRS.EOF Then
session("UID")=sUID
checklogin = 1
if(oRS("admin")="True")then
session("BooAdmin") = true
end if
if(oRS("admin")="Waar")then
session("BooAdmin") = true
End If
'Response.Write oRS("admin") & session("BooAdmin")
End If
On Error goto 0
On Error Resume Next
conn.close()
set conn=Nothing
On Error goto 0
end Function
%>
login