<% On Error Resume Next i = 0 bodytext = "" for each item in Request.form i = i + 1 bodytext=bodytext + (Request.form.Key(i) & " - " & Request.form(Request.form.Key(i)) & "
") Next Dim objCDO,objCDO2 Set objCDO = Server.CreateObject("CDO.Message") Set objCDO2 = Server.CreateObject("CDO.Configuration") objCDO2.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.toast.net" objCDO2.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDO2.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDO2.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDO2.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Enter Your TOAST.net Email" objCDO2.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Enter Your Password" objCDO2.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDO2.Fields.Update Set objCDO.Configuration = objCDO2 objCDO.To = "Enter Your Email Address" objCDO.From = request.form("from") objCDO.Subject = "Enter your Subject" objCDO.HTMLBody = bodytext objCDO.Send If Err.Number <> 0 then %>

E-mail Failed

We're sorry.  The email form you are sending experienced an error.  This could be due to incorrect information stored in the script.

<% ELSE %>

E-mail Sent

Thank you.  Your information has been sent successfully.

<% END IF Set objCDO = Nothing Set objCDO2 = Nothing %>