Rigtig...If Sætning?
Jeg kan ikke få denne her IF-Sætning ind i min kode så den virker.if len(request(postnr)) <= 3 then
Response.Write("<br><font color=""#FF0000"">Feltet Password skal være over 3 tegn.</font><br>Gå venligst tilbage!")
else
Jeg vil gerne ha den her ind
<%
Response.Buffer = True
username = Request("username")
password = Request("password")
email = Request("email")
navn = Request("navn")
tekst = Request("tekst")
fra = Request("fra")
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 where username = '"&username&"'"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From brugere where email = '"&email&"'"
rs1.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
if not rs.eof then 'brugeren eksisterer i forvejen
Response.Write("<br><font color=""#FF0000"">Brugernavnet er i Brug.</font><br>Vælg venligst et andet!")
else 'brugeren eksisterer ikke
if not rs1.eof then 'email eksisterer i forvejen
Response.Write("<br><font color=""#FF0000"">E-mailen er i databasen.</font><br>Vælg venligst et andet!")
else 'email eksisterer ikke
if username = "" then
Response.Write("<br><font color=""#FF0000"">Feltet Brugernavn skal udfyldes.</font><br>Gå venligst tilbage!")
else
if email = "" then
Response.Write("<br><font color=""#FF0000"">Feltet E-Mail skal udfyldes.</font><br>Gå venligst tilbage!")
else
if navn = "" then
Response.Write("<br><font color=""#FF0000"">Feltet Navn skal udfyldes.</font><br>Gå venligst tilbage!")
else
if len(request(postnr)) <= 4 then
Response.Write("<br><font color=""#FF0000"">Feltet Password skal være over 3 tegn.</font><br>Gå venligst tilbage!")
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
%>
Kan desværre ikke give flere point.
