<%
Dim objMail
strT1 = Request.Form("T1")
strT2 = Request.Form("T2")
strT3 = Request.Form("T3")
strT4 = Request.Form("T4")
strT5 = Request.Form("T5")
strTT="Name="+strT1+", Phone Number="+strT2+", Fax Number="+strT3+", Email Address="+strT4+", Memo="+strT5
set objMail = Server.CreateObject("CDO.Message")
If strT1=" " and strT2 = " " and strT3 = " " and strT4 = " " and strT5 = " " Then
%>
Please fill in all blanks. Please try again.
Back
<%
Else
objMail.From = "al@ibose.ca"
objMail.Subject = "From Contact Us Form"
objMail.To = "al@ibose.ca"
objMail.TextBody = strTT
objMail.Send
set objMail = nothing
%>
Thank youIBOSE has gotten your and contact you as soon as possible.
Thank you
Back
<%
End if
%>