<%
Set myMail=CreateObject("CDO.Message")
Name = Trim(Request.Form("Name"))
Email = Trim(Request.Form("Email"))
Telephone = Trim(Request.Form("Telephone"))
Comments = Trim(Request.Form("Comments"))
myMail.Subject="Fit-PC Support Form Email"
myMail.From="from@domain.com"
myMail.To="mail-forwarding-email-address-enabled?@domain.com"
myMail.TextBody= Name & vbCrLf & Email & vbCrLf & Comments
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="relay-hosting.secureserver.net"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
Response.Redirect("support-email-success.html" & EmailFrom)
%>