QSM: Request More Information

<% DIM strName DIM strTitle DIM strCompany DIM strAddress DIM strCity DIM strState DIM strZip DIM strPhone DIM strFax DIM strEmail strName = Request("Name") strTitle = Request("Title") strCompany = Request("Company") strAddress = Request("Address") strCity = Request("City") strState = Request("State") strZip = Request("Zip") strPhone = Request("Phone") strFax = Request("Fax") strEmail = Request("Email") ' change to address of your own SMTP server strHost = "mail.spectruminc.com" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("Email") ' From address Mail.FromName = Request("Name") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = Request("Subject") ' message body Mail.Body = "This is what you submitted:" & chr(13) & chr(10) & strName & chr(13) & chr(10) & strTitle & chr(13) & chr(10) & strCompany & chr(13) & chr(10) & strAddress & chr(13) & chr(10) & strCity & chr(13) & chr(10) & strState & chr(13) & chr(10) & strZip & chr(13) & chr(10) & strPhone & chr(13) & chr(10) & strFax & chr(13) & chr(10) & strEmail strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> QSM: Request More Information

<% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Success! Message sent to <% = Request("To") %>

<% End If %>

Name:
Title:
Company Name:
Address:
City:
State:
Zip:
Phone Number:
Fax Number:
Email: