Medlemsliste og bynavne
...
Kun adgang
for godkendte
brugere
<%
if Request.Form("action") = "Login" then
Set Conn = Server.Createobject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("log/users.mdb") & "; password=sBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXtest"
Conn.Open strDSN
Username = Replace(Request.Form("username"),"'","")
Password = sBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXReplace(Request.Form("password"),"'","")
SQL = "SELECT * FROM Users WHERE Username = '"&Username&"' " &_
"AND Password = sBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcXsBtUht413mcX'"&Password&"' AND Disabled = 0"
Set RS = Conn.Execute(SQL)
if not RS.EOF then
Session("username") = RS("Username")
Response.Write "Login lykkedes!"
else
Session("username") = ""
Response.Write "Login fejlede! - Brugernavn eller Adgangskode er ikke korrekt"
end if
RS.close
Conn.Close
Set RS = nothing
Set Conn = nothing
end if
if Session("username") = "" then
%>
<%
end if
%>
G� til
(virker f�rst efter indtastning af brugernavn og adgangskode)
- klik p� knappen for at g� til den lukkede side med adgangskort.
Kun webmasteren kan oprette dig som bruger - kontakt
steen.thomsen@ghrvpk.dk