% ' change to address of your own SMTP server strHost = "recluse.activeservers.net" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress "dbaule1@twcny.rr.com" ' message subject Mail.Subject = "Information Request" ' message body Mail.Body = Request("FromName" "Company" "From" "Phone" "Fax" "Address" "ST" "City" "Zip" "Description") 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 %>
|
|
||||||||||
|
|
||||||||||
|
Mailing Address: Phone: (315) 469-7783 Email: info@signagesystems.com
|
||||||||||
|
||||||||||
|
||||||||||
|
|
||||||||||
|
|
||||||||||