 |
 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.
<%end if%>
|  |
 |
 |
 |
 |
|