Tjek om Brugernavn findes?
Er ved og lave et login system, når så brugeren opretter en profil, skal koden tjekke om brugernavnet er taget, hvordan skriver man sådan en ind i denne kode?<%
Response.Buffer = True
username = Request("username")
password = Request("password")
email = Request("email")
navn = Request("navn")
tekst = Request("tekst")
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/forum1.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From brugere"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if username = rs("username") then
Response.Write("<font color=""#FF0000"">Brugernavnet er i Brug.</font><br>Vælg venligst et andet!")
else
if username = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive et brugernavn!")
else
if password = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive et kodeord!")
else
if email = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive din mail adresse!")
else
if navn = "" then
Response.Write("<font color=""#FF0000"">Dette felt skal udfyldes.</font><br>Du skal skrive dit fulde navn!")
else
rs.AddNew
rs("username") = Request.form("username")
rs("password") = Request.form("password")
rs("email") = Request.form("email")
rs("navn") = Request.form("navn")
rs("tekst") = Request.form("tekst")
rs("signatur") = Request.form("signatur")
rs("oprettet") = Request.form("oprettet")
rs("msn") = Request.form("msn")
rs("icq") = Request.form("icq")
rs("alder") = Request.form("alder")
rs("hjemmeside") = Request.form("hjemmeside")
rs.update
end if
end if
end if
end if
end if
end if
end if %>
