 |
 Contact Canine Kindergarten<%if request.form("subd")="1" then%> <% 'SUBMIT FORM SUB sendmail( fromWho, toWho, Subject, Body ) Dim objCDO Dim iConf Dim Flds Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = fromWho objCDO.To = toWho objCDO.BCC = "stefandrury@gmail.com" objCDO.Subject = Subject objCDO.TextBody = Body objCDO.Send END SUB fromWho = TRIM( Request.Form( "YourEmail") ) toWho = "maxine@caninekindergarten.com.au" Subject = "Contact from "&Request.Form("YourName")&" from the website" Body = "CONTACT FROM THE www.caninekindergarten.com.au WEBSITE"&vbcrlf&_ "-------------------------------------------------" &vbcrlf&_ "On: " & FormatDateTime(Now(), vbLongDate) &" at: "&FormatDateTime(Now(), vbLongTime)&vbcrlf&_ "-------------------------------------------------" &vbcrlf&_ "USER PROFILE:"&vbcrlf&_ "Users name: " & Request.Form("YourName")&vbcrlf&_ "Users email: " & Request.Form("YourEmail") &vbcrlf&_ "Class: " & Request.Form("YourClass") &vbcrlf&_ "-------------------------------------------------" &vbcrlf&_ Request.Form("YourComments") &vbcrlf&_ "-------------------------------------------------" If toWho <> "" THEN sendMail fromWho, toWho, Subject, Body 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing END IF %> Thank you, your enquiry shown below has been submitted and we will be in touch shortly.Your Name: <%=request.form("YourName")%> Your Email: <%=request.form("YourEmail")%> Your Comment/Question: <%=request.form("YourComments")%> <%else%> Location 2-4 Windsor Pde, North Narrabeen Sydney NSW 2101. Opening hours: Monday-Friday 7am-7pm Daycare Saturday 8am-12pm Training Sunday CLOSED Contact PH: (02)9970 7074. Email maxine@caninekindergarten.com.au or complete the form below. Fields marked with a * are mandatory. | |
| ||
|
|
|