<% Dim loginnaam,password,errorcode,strQuery loginnaam = Request.QueryString("loginnaam") password = Request.QueryString("password") strQuery = "select id,password from tblOpdrachtgevers where loginnaam = '"&loginnaam&"'" set objRs = objconn.execute(strQuery) If objRs.EOF Then if (loginnaam<>"") then errorcode = "Loginnaam of wachtwoord is niet goed.Check loginnaam en wachtwoord" end if Else passworddb = objRs("password") If (passworddb<>password) Then errorcode = "Wachtwoord is niet goed." Else Session("login")="loggedin" Session("id")=objRs("id") response.redirect("algemeen.asp") End If End If objConn.close %>
Loginnaam
Wachtwoord
<%=errorcode%>
Login