<%
Dim oItem
Dim sEmailBody
sEmailBody = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
For Each oItem In Request.Form
sEmailBody = sEmailBody & oItem & ": " & Request.Form(oItem) & vbCrLf & vbCrLf
Next
SendMail "Enquiry Form", sEmailBody, "info@grafixdesign.net", "info@whiteicenights.co.uk"
Response.Redirect "thankyou.asp"
End If
Function SendMail( ByVal sSubject, ByVal sBody, sFromEmail, sToEmail)
Dim objMail
SendMail = True
'Attempt to create with CDOSYS, the default for 2000 installation.
Set objMail = Server.CreateObject("CDO.Message")
'Using the CDO object excludes us from naming the email addresses.
objMail.From = sFromEmail
objMail.To = sToEmail
objMail.TextBody = sBody
objMail.Subject = sSubject
objMail.Send()
Set objMail = Nothing
End Function
%>
Untitled
