Der 200 UP til ham der hjælper med den her!
Check.asp
<html>
<head>
</head>
<body>
<%
Set Conn = Server.CreateObject ("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("databaser/database.mdb")
Conn.Open DSN
Dim tusername, tpassword
tusername = Trim(replace(request.form("username"),"'","''" ))
tpassword = Trim(replace(request.form("password"),"'","''" ))
SQL = "SELECT * FROM users where username = '" & tusername & "' AND password = '" & tpassword & "'"
Set rs = Conn.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
Session("id") = rs("id")
Session("useradmission") = true
Response.redirect "indlogget.asp"
else
Response.redirect "login.htm"
end if
Conn.Close
Set Conn = Nothing
%>
</body>
</html>Opret.asp
<html>
<head>
</head>
<body>
<%
Set Conn = Server.CreateObject ("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("databaser/database.mdb")
Conn.Open DSN
Dim username, password, password2
username = Trim(replace(request.form("username"),"'","''" ))
password = Trim(replace(request.form("password"),"'","''" ))
password2 = Trim(replace(request.form("password2"),"'","''" ))
SQL = "SELECT * FROM users"
set rs = Conn.Execute(SQL)
if username = "" then
Response.write "Du skal skrive et brugernavn!"
end if
if password = "" then
Response.write "Du skal skrive et password!"
end if
if password2 = "" then
Response.write "Du skal skrive password igen!"
end if
if password = password2 then
Response.write "Passwords skal være det samme!"
end if
rs.addnew
rs("username") = & username &
rs("password") = & password &
Response.write "Din bruger er nu oprettet med brugernavnet" & username &
Conn.Close
Set Conn = Nothing
%>
</body>
</html>Jeg har fået hjælp til check fra en guide, og opret har jeg selv prøvet at lave