<% 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 %> Flying Fish Waterfront Restaurant Sydney Australia
News & Events at Flying Fish
Flying Fish

Flying Fish Restaurant & Bar

Lower Deck
Jones Bay Wharf
19-21 Pirrama Rd
Pyrmont NSW 2009

T: (02) 9518 6677
F: (02) 9660 9026

Online Reservations for Flying Fish
Follow Flying Fish on Twitter Friend Flying Fish on Facebook Watch Flying Fish on Youtube Read the Flying Fish Tales blog
Flying Fish Enquiry

Enquire

" method="post">