% If Request.Form.Count > 0 Then Dim body body = "You have received a new enquiry. Below are the details:" & vbCrLF & vbCrLF body = body & "Name: " & Request.Form("Name") & vbCrLF body = body & "Phone: " & Request.Form("Phone") & vbCrLF body = body & "Email: " & Request.Form("Email") & vbCrLF If Request.Form("Subscribe") = "true" Then body = body & "Subscribe to newsletter: Yes" & vbCrLF Else body = body & "Subscribe to newsletter: No" & vbCrLF End If body = body & "Enquiry: " & Request.Form("Enquiry") 'Declare email sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "smtpserver") = "localhost" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "<" & Request.Form("email") & "> " & Request.Form("Name") .To = "info@flyingfish.com.au;" .Subject = "New online enquiry from flyingfish.com.au" .TextBody = body .Send End With Response.Redirect "thankyou.html" Response.End End If %>
![]() |
||||||||||
|
||||||||||
Enquire
|
||||||||||
Flying Fish Restaurant · Jones Bay Wharf, Lower Deck · 19-21 Pirrama Road
Pyrmont NSW 2009 · T: (02) 9518 6677
|
||||||||||