<% 'Declare variables for the form input fields and the e-mail dim strAddr, replyTo, strSubject, strName dim strMsg, strDeptPhone, strPerspective dim strClassAssignment, strTermPaper dim strText 'Get input from the form and assign it to script variables strAddr = Trim(Request.form("user_email")) if strAddr <> "" then replyTo = cstr(strAddr) end if strSubject = Request.form("user_subject") strName = Request.form("user_name") strMsg = Request.form("question") strDeptPhone = Request.form("dept_phone") strPerspective = Request.form("perspective") strClassAssignment = Request.form("class_assignment") strTermPaper = Request.form("term_paper") strText = "Name: " & strName & vbCrLf & _ "Company/Firm: " & strSubject & vbCrLf & _ "Phone: " & strDeptPhone & vbCrLf & _ "E-Mail: " & strAddr & vbCrLf & _ "Recieve E-Mail?: " & strClassAssignment & vbCrLf & "Follow Up?: " & _ strTermPaper & vbCrLf & "." 'Note: Use vbCrLf (as above) to add line breaks in the e-mail message. 'Note: The continuation character ( "_" ) is required at the end of all lines 'but the last when a variable is not written on one line. send_email() 'The send_email function does all the work of sending the e-mail function send_email() 'Create an object or container for your mail Dim objMail Set objMail = Server.CreateObject("CDO.Message") 'Format the e-mail using fields from your HTML form objMail.To = "login@keystone-industries.com" objMail.From = strAddr 'Generic address is a cue about origin objMail.ReplyTo = replyTo objMail.Subject = strSubject objMail.TextBody = strText objMail.Send Set objMail = Nothing if err.number > 0 then response.write "Errors were encountered in sending your e-mail message. "&_ "Please try again, or contact the webmaster" else 'reformat strMsg to preserve line breaks in the question textarea strMsg = replace(strMsg,vbcrlf,"
") end if end function %>