<% dim myTMT, strMsg 'set myTMT = server.createobject("ewatmt.atmt") 'myTMT.ConnectDB "209.171.252.228,7588","atmt30demo", "atmt30demo", "atmt30demopwd" set myTMT = new ATMT dim rs 'set rs = Server.CreateObject("ADODB.Recordset") strMsg = "" set rs = myTMT.ListCategory if request.form("remove") = "Remove" then 'myTMT.SubscribersEmail = request.form("email") retval = myTMT.RemoveUser (request("email").item) select case retval 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 FirstName = request.form("fname") LastName = request.form("lname") CompanyName = request.form("company") Address1 = request.form("address1") Address2 = request.form("address2") CityName = request.form("city") StateName = request.form("state") PostCode = request.form("postal") CountryName = request.form("country") PhoneNumber = request.form("phone") FaxNumber = request.form("fax") SubscribersEmail = request.form("email") SubscribersNote = request.form("comments") SelectedCategoryList = request.form("products") retval = myTMT.AddUpdateUser (firstname,lastname,companyname,address1,address2,cityname,statename,postcode,countryname,phonenumber,faxnumber,subscribersemail,subscribersnote) select case retval 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 %> <%if strMsg <> "" then %>

<%=strMsg %>

<%end if %>

?action=register" name="register" onsubmit="return emailCheck(this.email.value);">

Complete the form below, including your Email address. Click the Add button and you will be included in our mailing list. When product of your interest is available, we will send you an update.
First Name
Last Name
Company
Address 1
Address 2
City
State/Province
ZIP/Postal
Country	Please select... <% set cRs = myTMT.allRec("sp_all_atmt_country", 0) if not cRs.eof then while not cRs.eof if trim(cRs(0)) <> "" or not isnull(cRs(0)) then response.write "" & cRs(0) & vbcrlf end if cRs.movenext wend end if cRs.close set cRs=nothing %>
Telephone
Fax
I am interested in:	Choose all applicable   <% if not rs.eof then while not rs.eof response.write "" & rs("prodName") & "  " rs.movenext wend end if rs.close set rs = nothing %>
Email
Comments/Suggestions

Unsubscribe Email

 

Home | Impact | BCC | Direction | Artwork | Resources | Capacity Building | Customized Training   © 2001 ECRTC. Maintained by DLM Software Solutions. This site is optimized for Netscape 4 and Internet Explorer 5 or higher. Please download an updated version.