<% 'on error resume next Dim naam, email, website, bericht, datum, anoniem ' Lees de gegevens van het formulier in. naam = request.Form("naam") email = request.Form("email") website = request.Form("website") bericht = request.Form("bericht") datum = date() if anoniem = False then if naam = "" then response.redirect "teken.asp?fout=1&naam="& naam &"&email="& email &"&website="& website & "&bericht="& bericht response.end end if end if if trim(bericht) = "" OR isnull(bericht) = True OR trim(bericht) = chr(13) then response.redirect "teken.asp?fout=2&naam="& naam &"&email="& email &"&website="& website & "&bericht="& bericht response.end end if if trim(email) <> "" AND isnull(email) <> True AND trim(email) <> chr(13) then if IsEmail(email) = false then response.redirect "teken.asp?fout=3&naam="& naam &"&email="& email &"&website="& website & "&bericht="& bericht response.end end if end if bericht = Replace(bericht, "<", "<") bericht = Replace(bericht, ">", ">") bericht = replace(bericht,vbcrlf,"
") bericht = replace(bericht,"script","script") bericht = left(bericht,255) bericht = LinkURLs(bericht) naam = Replace(naam, "<", "<") naam = Replace(naam, ">", ">") email = Replace(email, "<", "<") email = Replace(email, ">", ">") website = Replace(website, "<", "<") website = Replace(website, ">", ">") ' Controleer of er http:// voor de website staat if left(website,7) <> "http://" then website = "http://" & Website end if set objCon=server.createobject("ADODB.connection") ObjCon.open strCon Set objData = Server.CreateObject ("ADODB.Recordset") objData.CursorType = 2 objData.LockType = 3 objData.Open "berichten", objCon objData.AddNew ' Voeg de gegevens toe aan de velden objData.Fields("naam") = naam objData.Fields("email") = email objData.Fields("website") = website objData.Fields("bericht") = bericht objData.Fields("datum") = datum objData.Update objData.close Set objData = Nothing ObjCon.close set ObjCon=nothing if blnEmailYN = True then Set Mail = Server.CreateObject("CDONTS.NewMail") Dim onderwerp, body onderwerp = "Nieuw bericht in het gastenboek" Mail.From = email Mail.To = semailadres Mail.Subject = onderwerp body = "Er is een nieuw bericht in het gastenboek geplaatst door " & naam & "." & vbcrlf & vbcrlf body = body & "Het bericht is: " & vbcrlf body = body & bericht Mail.Body = body Mail.Send Set Mail = nothing end if response.Redirect "default.asp" %>