<%
if trim(request("submit"))="Submit" then
fromaddress=trim(request("email"))
bodytext=trim(request("txtcontent"))
subjecttext="Contact us from "& request("txtname")
toaddress="oooadooo@aol.com"
Dim objMail
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "win.shockcomics.com"
.update
End With
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = cdoConfig
objMail.From =fromaddress
objMail.To =toaddress
objMail.Subject= subjecttext
objMail.TextBody = bodytext
objMail.Send
Set objMail = Nothing
response.redirect "thanks.asp"
end if
%>
Touch Tel [ Staten Island, New York, Staten Island New York, New Jersey, Telecommunications , Fiber Optics ]
