Tilføjer selv brugere til databasen

Post evt. den del af koden der opretter brugeren - og dit mail script.

Det er typisk en spamrobot der fiser rundt og udfylder formularer.

Du kan forsøge at undgå det ved, f.eks. at sætte noget serverside validering på formularen afhængigt af hvad du kræver af oplysninger.

/Goose

----------"DB CON"-----------

strSQL = "Select brugernavn From brugere Where brugernavn = '" & Replace(Request.Form("brugernavn"),"'","''") & "'"
Set rs = Conn.Execute(strSQL)

If not rs.eof Then
    Response.Write("<script>java script:alert('Det valgte brugernavn er allerede taget, vælg venligst et andet.')</script>")
    Response.Write "<script>java script:history.back();</script>"
  rs.close

else

  strSQL2 = "Select Email From brugere Where Email = '" & Replace(Request.Form("Email"),"'","''") & "'"
  Set rs2 = Conn.Execute(strSQL2)

if not rs2.eof Then
    Response.Write("<script>java script:alert('Den valgte mailadresse er allerede brugt af anden bruger, vælg venligst en andet.')</script>")
    Response.Write "<script>java script:history.back();</script>"
Else


strSQL = "Insert into brugere ("

strSQL = strSQL & "brugernavn, "
strSQL = strSQL & "password, "
strSQL = strSQL & "Email, "
strSQL = strSQL & "Fornavn, "
strSQL = strSQL & "Efternavn, "
strSQL = strSQL & "Adresse, "
strSQL = strSQL & "Nr, "
strSQL = strSQL & "Postnr, "
strSQL = strSQL & "Bynavn, "
strSQL = strSQL & "Fastnet, "
strSQL = strSQL & "Godkendt, "
strSQL = strSQL & "Mobil) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("brugernavn")& "', "
strSQL = strSQL & "'" & request.form("password")& "', "
strSQL = strSQL & "'" & request.form("Email")& "', "
strSQL = strSQL & "'" & request.form("Fornavn")& "', "
strSQL = strSQL & "'" & request.form("Efternavn")& "', "
strSQL = strSQL & "'" & request.form("Adresse")& "', "
strSQL = strSQL & "'" & request.form("Nr")& "', "
strSQL = strSQL & "'" & request.form("Postnr")& "', "
strSQL = strSQL & "'" & request.form("Bynavn")& "', "
strSQL = strSQL & "'" & request.form("Fastnet")& "', "
strSQL = strSQL & "'" & request.form("Godkendt")& "', "
strSQL = strSQL & "'" &  request.form("Mobil")& "')"

Conn.Execute(strSQL)

'Mail til brugeren
fuldenavn = request.form("Fornavn") & " " & request.form("Efternavn")
brugerbody = "Hej " & fuldenavn & VbCrLf & VbCrLf & "Du har tilmeldt dig til Kimborg.dk med følgende oplysninger:"& VbCrLf & VbCrLf & "Fornavn: " & request.form("Fornavn") & VbCrLf & "Efternavn: " & request.form("Efternavn") & VbCrLf & "Brugernavn: " & request.form("brugernavn") & VbCrLf & "Password: " & request.form("password") & VbCrLf & "Email: " & request.form("Email") & VbCrLf & VbCrLf & "Du er oprettet, men webmasteren skal godkende din tilmelding inden du kan logge ind og få fuld adgang til Kimborg.dk." & VbCrLf & "Når webmasteren har kigget på din tilmelding vil du herefter modtage en ny mail." & VbCrLf & VbCrLf & "Med venlig hilsen" & VbCrLf & VbCrLf & "Kimborg.dk"

set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.From = "xxxxx@kimborg.dk"
msg.FromName = "Kimborg.dk"
msg.AddRecipient request.form("Email"), fuldenavn
msg.Subject = "Tilmelding til Kimborg.dk"
msg.Body = brugerbody
msg.ISOEncodeHeaders = false
msg.Priority = false
msg.MailDomain = "xxxxx.kimborg.dk"
msg.MailServerUserName = "xxxxx@kimborg.dk"
msg.MailServerPassWord = "xxxxxx"
msg.Send ("xxxxx.kimborg.dk")
set msg = Nothing

'Mail til webmasteren
webmasterbody = "Følgende bruger har tilmeldt sig til Kimborg.dk."& VbCrLf & VbCrLf & "Fornavn: " & request.form("Fornavn") & VbCrLf & "Efternavn: " & request.form("Efternavn") & VbCrLf & "Brugernavn: " & request.form("brugernavn") & VbCrLf & "Email: " & request.form("Email") & VbCrLf & "Mobil: " & request.form("Mobil")

set msg = Server.CreateOBject("JMail.Message")
msg.Logging = true
msg.From = "xxxxxxx@kimborg.dk"
msg.FromName = "Kimborg.dk"
msg.AddRecipient "xxxxxxx@kimborg.dk", "xxxxxx@kimborg.dk"
msg.Subject = "NY bruger har tilmeldt sig på Kimborg.dk"
msg.Body = webmasterbody
msg.ISOEncodeHeaders = false
msg.Priority = false
msg.MailDomain = "xxxxx.kimborg.dk"
msg.MailServerUserName = "xxxxxxxx@kimborg.dk"
msg.MailServerPassWord = "xxxxxxxx"
msg.Send ("xxxxx.kimborg.dk")
set msg = Nothing

Conn.Close
Set Conn = Nothing

  Response.Write("<script>java script:alert('Din tilmelding er nu afsendt og venter bare på godkendelse fra webmaster.')</script>")
%>

Har ændret i mit script og det ser ud til at virke. Lukker