<% sub dhwe_sendMailTextForm_01() on error resume next dim sFrom,sTo,sSubject dim sBrowser,sIp,sTime dim sCharset sCharset="" sFrom="Visitor of Unbounded Art" sTo="info@unboundedart.nl" sSubject="Message from Unbounded Art" sBrowser = Request.ServerVariables ("HTTP_USER_AGENT") sIp = Request.ServerVariables ("REMOTE_ADDR") sTime = now() dim sBody sBody = vbNewLine & _ "Browser: " & sBrowser & vbNewLine & _ "IP: " & sIp & vbNewLine & _ "Date: " & sTime & vbNewLine & vbNewLine sBody = sBody & "Message Text" & vbNewLine sBody = sBody & "From_Field_Input: " & request.form("From_Field_Input") & vbNewLine sBody = sBody & "To_Field_Input: " & request.form("To_Field_Input") & vbNewLine sBody = sBody & "Subject_Field_Input: " & request.form("Subject_Field_Input") & vbNewLine sBody = sBody & "Email_Field_Input: " & request.form("Email_Field_Input") & vbNewLine sBody = sBody & "Message_Field: " & request.form("Message_Field") & vbNewLine sBody = sBody & "Notification_Check: " & request.form("Notification_Check") & vbNewLine sBody = sBody & "Button_Submit: " & request.form("Button_Submit") & vbNewLine dim omail set omail = CreateObject("CDO.Message") if err.number<>0 then response.redirect "Contact_Menu/Message_Not_Sent.html" response.end end if if sCharset<>"" then omail.BodyPart.Charset = sCharset end if omail.From = sFrom omail.To = sTo omail.Subject = sSubject omail.TextBody = sBody 'dim oconf 'set oconf = CreateObject("CDO.Configuration") 'oconf.Fields(cdoSendUsingMethod) = cdoSendUsingPort 'oconf.Fields(cdoSMTPServer) = "smtp.yourdomain.ext" 'oconf.Fields(cdoSMTPServerPort) = 'oconf.Fields(cdoSMTPAuthenticate) = cdoAnonymous 'oconf.Fields.Update 'set omail.configuration = oconf omail.Send if err.number<>0 then response.redirect "Contact_Menu/Message_Not_Sent.html" else response.redirect "Contact_Menu/Message_Sent.html" end if set omail = Nothing response.end end sub if request.form("dheformfrom")="Form_01" then dhwe_sendMailTextForm_01 end if %> Unbounded Art - Contact