isNumeric ind i kode?
Jeg vil gerne havde denne her linje ind i min kode, men den fucker op synes jeg.If not(isNumeric("alder")) Then 'Hvis alder kun består af tal
Response.Write "<font color=""#FF0000"">Feltet alder må kun bestå af Tal!</font><br><br>Tryk venligst 'tilbage' i browseren."
Else
Vil gerne hade den her ind i.
På forhånd tak.
<%
Response.Buffer = True
Dim strEmail, isValid
username = Request("username")
password = Request("password")
strEmail = Request("email")
isValid = IsEmail(strEmail)
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("password")) <= 3 then
Response.Write("<br><font color=""#FF0000"">Feltet Password skal være over 4 tegn.</font><br>Gå venligst tilbage!")
else
If not isValid Then
Response.Write("<br><font color=""#FF0000"">Det er en ugyldig e-mail adresse.</font><br>Gå venligst tilbage!")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Priority = 3
JMail.Sender = ""&email&""
JMail.AddRecipient ""&email&""
JMail.Subject = "PCfreek.dk - Bruger"
JMail.Body = "<font face=""arial"" size=""2"">Hej "&navn&" <br><br>Du modtager denne mail fordi du er tilmeldt Online Communityet PCFreek.dk.<br><br>Denne Mail indeholder de informationer du behøver vide for og kunne logge ind og bruge Communityet derfor bedes du gemme mailen et godt og sikkeret sted.<br><br>Du har indtastede følgende info:<br><br>Navn: "&username&"<br>Password: "&password&"<br><br>Din Profil er oprettet den: "&oprettet&"<br><br>Du kan logge ind via rammen i højre side hvor der står profil klik på dette links:<br><a href=""http://www.pcfreek.dk"">http://www.pcfreek.dk</a><br><br>Hvis du har spørgsmål eller bare vil i kontakt med crewet kan du kontakte os på nedafstående mail.<br><br>m.v.h<br>Crew - PCFreek.dk</font>"
JMail.Execute
Set JMail = Nothing
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("brev") = Request.form("brev")
rs("admin") = Request.form("admin")
rs("msn") = Request.form("msn")
rs("icq") = Request.form("icq")
rs("alder") = Request.form("alder")
rs("hjemmeside") = Request.form("hjemmeside")
rs.update
Response.write("<br><b>Tak for din tilmeldning.</b><br>Du har nu oprettet som bruger i systemet.<br><br>Der er afsendt en mail til din indtastede E-Mail adresse som indeholder dine bruger informationer, gem den et sikkeret sted.<br><br>Du har nu klar til at bruge PCFreek.dk's Community.<br><br>m.v.h<br>Crew - PCFreek.dk")
end if
end if
end if
end if
end if
end if
end if
%>
