<% dim myTMT, strMsg set myTMT = server.createobject("ewatmt.atmt") myTMT.ConnectDB "db1.worldsites.net,7588","db_ransor_com", "dbm_ransor_com", "ransor2001" dim rs set rs = Server.CreateObject("ADODB.Recordset") strMsg = "" set rs = myTMT.ListCategory if request.form("remove") = "Remove" then myTMT.SubscribersEmail = request.form("email") myTMT.RemoveUser select case myTMT.retValue case 0 strMsg = "Email was removed successfully." case 1 strMsg = "Your email was not on this list." case 17 strMsg = "SQL Err. Please try later." end select end if if request.querystring("action") = "register" then myTMT.FirstName = request.form("fname") myTMT.LastName = request.form("lname") myTMT.CompanyName = request.form("company") myTMT.Address1 = request.form("address1") myTMT.Address2 = request.form("address2") myTMT.CityName = request.form("city") myTMT.StateName = request.form("state") myTMT.PostCode = request.form("postal") myTMT.CountryName = request.form("country") myTMT.PhoneNumber = request.form("phone") myTMT.FaxNumber = request.form("fax") myTMT.SubscribersEmail = request.form("email") myTMT.SubscribersNote = request.form("comments") myTMT.SelectedCategoryList = request.form("products") myTMT.AddUpdateUser select case myTMT.retValue case 0 strMsg = "Your profile was successfully added." case 1 strMsg = "Your profile was successfully updated." case 18,19 strMsg = "SQL Server Err. Please try it later." end select end if %> Join Emailing List

?action=register" name="register">

If you would like to be on our emailing list for any of the areas listed below, please complete the following form. Email Policy: We do not share our email list with and other concern. It is only used by Ransor and Aerial Structures to let our customers know of items of interest. *Indicates Required field
* Email
	Choose all mailing lists you would like to be added to <%if not rs.eof then while not rs.eof response.write "" & rs("prodName") & "  " rs.movenext wend end if rs.close set rs = nothing %>
* Company
First Name
Last Name
Street Address
City
State
Zip
Phone
Fax

Unsubscribe Email