hoi medeforumenaars
heb een klein probleempje en raak er niet uit
heb volgende code staan en als ik vanuit mijn formulier op de verzendknop druk krijg ik de foutmelding object requierd
kan iemand mij een handje toesteken
dank bij voorbaat
mijn code
<%
naam= request.form ("naam")
adres= request.form ("adres")
gemeente= request.form ("gemeente")
telefoon= request.form ("telefoon")
email= request.form ("email")
inlichtingen= request.form ("inlichtingen")
datum= Day(Date()) & "/" & Month(Date()) & "/" &Year(Date())
receiver= "xx@xxx.be"
subject= "inlichtingen"
cc= "yy@telenet.be"
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.zzzzzz.be"
Mail.From = email
Mail.AddAddress receiver
Mail.Subject = "vraag om inlichtingen"
mail.AddCC cc
Message = "Geachte," & vbcrlf & vbcrlf & vbcrlf & "Mijn naam is " & naam & vbcrlf & vbcrlf & "Ik ben woonachtig te " & gemeente & " in de " & adres & vbcrlf & vbcrlf & "U kan mij bereiken via email, " & email & " of op het nummer " &telefoon & vbcrlf & vbcrlf & "Graag had ik van U volgende inlichtingen gekregen : " & inlichtingen & vbcrlf & vbcrlf & "Hartelijk dank" & vbcrlf & vbcrlf & naam
Mail.Body = Message
Mail.Send
Set Mail = Nothing
If Err.number <> 0 Then
Response.Write "Er is een fout opgetreden tijdens het verzenden van je bericht<br>"
Response.Write "Error omschrijving: <b>" & Err.Description & "</b><br>"
Response.Write "Ga met de back button van je browser terug en probeer het opnieuw."
Response.End
End If
%>
<html>
<head>
heb een klein probleempje en raak er niet uit
heb volgende code staan en als ik vanuit mijn formulier op de verzendknop druk krijg ik de foutmelding object requierd
kan iemand mij een handje toesteken
dank bij voorbaat
mijn code
<%
naam= request.form ("naam")
adres= request.form ("adres")
gemeente= request.form ("gemeente")
telefoon= request.form ("telefoon")
email= request.form ("email")
inlichtingen= request.form ("inlichtingen")
datum= Day(Date()) & "/" & Month(Date()) & "/" &Year(Date())
receiver= "xx@xxx.be"
subject= "inlichtingen"
cc= "yy@telenet.be"
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.zzzzzz.be"
Mail.From = email
Mail.AddAddress receiver
Mail.Subject = "vraag om inlichtingen"
mail.AddCC cc
Message = "Geachte," & vbcrlf & vbcrlf & vbcrlf & "Mijn naam is " & naam & vbcrlf & vbcrlf & "Ik ben woonachtig te " & gemeente & " in de " & adres & vbcrlf & vbcrlf & "U kan mij bereiken via email, " & email & " of op het nummer " &telefoon & vbcrlf & vbcrlf & "Graag had ik van U volgende inlichtingen gekregen : " & inlichtingen & vbcrlf & vbcrlf & "Hartelijk dank" & vbcrlf & vbcrlf & naam
Mail.Body = Message
Mail.Send
Set Mail = Nothing
If Err.number <> 0 Then
Response.Write "Er is een fout opgetreden tijdens het verzenden van je bericht<br>"
Response.Write "Error omschrijving: <b>" & Err.Description & "</b><br>"
Response.Write "Ga met de back button van je browser terug en probeer het opnieuw."
Response.End
End If
%>
<html>
<head>
