<%@ Language="VBScript" %> <% If Request.Item("fullname") = "" Then Response.Redirect("contact.html") Else Dim strBody 'Set email body strBody = "" strBody = strBody + "" strBody = strBody + "" strBody = strBody + "" strBody = strBody + "

Name:	" & Request.Item("fullname") & "
Company:	" & Request.Item("company") & "
Phone:	" & Request.Item("phone") & "
Email:	" & Request.Item("email") & "
Comments:	" & Request.Item("comments") & "

" 'set email parameters Set myMail=CreateObject("CDO.Message") myMail.Subject="New contact from website" 'Email subject myMail.From="collin.sloan@pozzetta.com" 'From email address myMail.To="ben_stew@comcast.net" 'To email address myMail.HTMLBody=strBody 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") _ ="smtp.comcast.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("sent.html") End If %>