well, i want to use ASP for my emailform because the server only supports ASP
and NOT PHP!!! but i keep getting an error...
this is my code:
<%
Dim strTo
Dim strSubject
Dim strBody 'Strings for recipient, subject, boby
Dim objCDOMail 'The CDO object
Dim strReturn
strFrom = Request.Form("Email")
strTo = "username@provider.com"
strSubject = "typ here the subject"
strBody = "Naam: " & Request.Form("Naam") & vbcrlf & _
"Voornaam: " & Request.Form("Voornaam") & vbcrlf & _
"Adres: " & Request.Form("Adres") & vbcrlf & _
"Postcode: " & Request.Form("Postcode") & vbcrlf & _
"Plaats: " & Request.Form("Plaats") & vbcrlf & _
"Email: " & Request.Form("Email") & vbcrlf & _
"Onderwerp: " & Request.Form("Onderwerp") & vbcrlf & _
"Bericht: " & Request.Form("Bericht") & vbcrlf & _
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = StrFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
%>
<html>
<head>
<title>:: Uw email is verzonden ::</title>
<meta http-equiv="refresh" content="3;URL=index.htm">
</head>
<body bgcolor="#FFFFFF" background="img.jpg">
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="middle">
<font size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>
Uw email is met succes verzonden. <br>
<br>
Wij zullen u zo spoedig mogelijk een antwoord geven.</b></font>
</td>
</tr>
</table>
</body>
</html>