<%@LANGUAGE="VBSCRIPT"%>
<%
Const Header = "Vraag n.a.v. Website: "
Const Adres = "E-mailadres: "
Const Footer = "Einde van dit bericht"
Dim mail_Body
mail_Body = Header & vbCrLf & "Naam" & " " & Request.Form("naam") &vbCrLf & Adres & ", " & Request.Form("Email") & vbCrLf & " Formulier ingevuld op: " & Now() & vbCrLf
mail_Body = mail_Body & vbCrLf & "Vraag" & Request.Form ("vraag") & vbCrLf & vbCrLf & Footer
if (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = Request.Form("Email")
objCDO.To = "info@avitax.nl"
objCDO.CC = ""
objCDO.Subject = "Vragen n.a.v. website"
objCDO.Body = mail_Body
objCDO.Send()
Set objCDO = Nothing
Response.Redirect("dank.asp")
End If
%>
vraag
Vragen
Reserveringen kunt u telefonisch doorgeven via 073 6313200, of via info@avitax.nl