|
| |
|
<%
if request("submit") <> "" and request("name") = "" or request("email") = "" or request("comments") = "" THEN
Response.Write("Error")
elseif request("submit") <> "" and request("name") <> "" and request("email") <> "" and request("comments") <> "" THEN
Set objEMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Confi = objConfig.Fields
Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
Confi.Update
Set objEMail.Configuration = objConfig
objEMail.To = "donna@cottagetoys.com"
objEMail.From = Request("email")
objEMail.Subject = "Online Email Request"
objEMail.TextBody = "Name: " & Request("name") & vbCrLf _
& "Phone: " & Request("phone") & vbCrLf _
& "Comments: " & Request("comments")
//objEMail.TextBody = Request("comments")
objEMail.Send
Set objEMail = Nothing
Response.Write("Your message has been sent succesfully. Thank you.")
Else
%>
<%
End If
%>
|
| |
|
| |
|
#180 Charlotte Street,
Peterborough, Ontario.
K9J 2T8
(705) 741-2150 |
|
|
