<%@ Language=VBScript %> <% dim companyname dim lastname dim firstname dim address dim city dim state dim zip dim phone dim fax dim email dim emailFormat companyname = request("companyname") lastname = request("lastname") firstname = request("firstname") address = request("address") city = request("city") state = request("state") zip = request("zip") phone = request("phone") fax = request("fax") email = request("email") emailFormat = request("emailFormat") %> TI ASI - Subscribe to e-Newletters <% If Request("Submit") <> " " and request("validflag") = "YES" Then Set objMessage = Server.CreateObject("CDO.Message") ' message subject objMessage.Subject = "Subscribe to e-Newletters" 'Email from address strMessage = Request("email") objMessage.Sender = strMessage ' message body objMessage.To = "b.ohnesorge@airstamping.com" strBody = "Company Name: " & Request("companyname") & " " & chr(13) & chr(10) & chr(13) & chr(10) & "Name: " & Request("firstname") & " " & Request("lastname") & chr(13) & chr(10) _ & "Address: " & Request("address")& chr(13) & chr(10) _ & "City, State, Zip: " & Request("city") & ", " & Request("state") & " " & Request("zip") & chr(13) & chr(10) & chr(13) & chr(10) _ & "Phone: " & Request("phone") & chr(13) & chr(10) & "Fax: " & Request("fax") & chr(13) & chr(10) & chr(13) & chr(10) _ & "Email: " & Request("email") & chr(13) & chr(10) & chr(13) & chr(10) & "Email Format: " & request("emailFormat") & chr(13) & chr(10) & chr(13) & chr(10) & "Newsletter ALL: " & chr(13) & chr(10) & request("all") & chr(13) & chr(10) _ & chr(13) & chr(10) & "Other Newsletters: " & chr(13) & chr(10) & request("Others") & chr(13) & chr(10) & chr(13) & chr(10) & objMessage.Subject objMessage.TextBody = strBody strErr = "" bSuccess = False On Error Resume Next ' catch errors objMessage.Send Set objMessage = Nothing If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %>

Subscribe to e-Newsletters
<% If Request("Submit") <> " " and request("validflag") = "YES" Then%> <% If strErr <> "" Then %>

Error Occurred: <% = strErr %>

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

Thank You! We will add your email address to our e-Newsletter list.

<% End If %> <%else%> * = Required Fields
 

* Company:
 

* First Name:

  * Last Name:
  Address:
  City:
  State:
  Zip Code:
  Phone Number:
  Fax Number:
  * Email Address:
  * Email Format:
     

 

* Please send me the following e-Newsletters:
   
ALL
 

or the following:
   
M1000 Parts
M110 Parts
G-14/G-16 Parts
M-300/M-300M Parts
2FF, TC-3, QC-4, Folders
Seqmented Blades
Ink Levelers
Litho
Clamps
Vacuum Lift

 
   

<%end if%>

Home >> Subscribe to e-Newsletters Form