<% Dim sCurrentPage sCurrentPage="contactus" page="Contact Us" %> <% dim myTMT, strMsg set myTMT = server.createobject("ewatmt.atmt") myTMT.ConnectDB "db1.worldsites.net,7588","db_enhancedsliding_com", "dbm_enhancedsliding_com", "plumaazul" dim mail, msg dim rs set rs = Server.CreateObject("ADODB.Recordset") strMsg = "" set rs = myTMT.ListCategory if request.form("txtremove") = smUnsubcribeButton then myTMT.SubscribersEmail = request.form("txtemail") myTMT.RemoveUser select case myTMT.retValue case 0 strMsg = smProfileRemoved msg = smUnsubscribeFromList case 1 strMsg = smEmailNotFound msg = smEmailNotFound case 17 strMsg = "SQL Err. Please try later." msg = "We're experiencing some problems with our system. Please try again later." end select set mail = server.createobject("CDONTS.NewMail") with mail .to = request.form("txtemail") .subject = smSubjectUnsubscribe .from = gsContactUsEMail .body = msg .send end with end if if request("txtaction") = "register" then myTMT.FirstName = request("txtfname") myTMT.LastName = request("txtlname") myTMT.CompanyName = request("txtcompany") myTMT.Address1 = request("txtaddress1") myTMT.Address2 = request("txtaddress2") myTMT.CityName = request("txtcity") myTMT.StateName = request("txtstate") myTMT.PostCode = request("txtpostal") myTMT.CountryName = request("txtcountry") myTMT.PhoneNumber = request("txtphone") myTMT.FaxNumber = request("txtfax") myTMT.SubscribersEmail = request("txtemail") myTMT.SubscribersNote = request("txtcomments") myTMT.SelectedCategoryList = request("txtproducts") ' Compose message msg = "" _ & smHeaderMail & vbCrLf & vbCrLf _ & request("txtfname") & " " & request("txtlname") & vbCrLf _ & request("txtcompany") & vbCrLf _ & request("txtaddress1") & vbCrLf if len(trim(request("txtaddress2"))) > 0 then msg = msg & request("txtaddress2") & vbCrLf msg = msg _ & request("txtcity") & ", " & request("txtstate") & " " & request("txtpostal") & vbCrLf _ & request("txtcountry") & vbCrLf & vbCrLf _ & smPhone & ": " & request("txtphone") & vbCrLf _ & smFax & ": " & request("txtfax") & vbCrLf _ & smEmail & ": " & request("txtemail") & vbCrLf _ & smComments & ": " & vbCrLf & request("txtcomments") myTMT.AddUpdateUser select case myTMT.retValue case 0 strMsg = smSuccessAdded case 1 strMsg = smSuccessAdded case 18,19 strMsg = smNoAdded msg = "" end select if msg <> "" then set mail = server.createobject("CDONTS.NewMail") with mail .To = gsContactUsEMail .Subject = smSubjectSubscribe .From = request("txtemail") .Body = msg .Send end with end if end if %>

<%if strMsg <> "" then %>

<%=strMsg %>

<%end if %>

" name="register" onsubmit="return validateform(this);">

<%=smSubscribe%>

<%=smFirstName%>
<%=smLastName%>
<%=smCompany%>
<%=smAddress%> 1
<%=smAddress%> 2
<%=smCity%>
<%=smState%>
<%=smPostalCode%>
<%=smCountry%>
<%=smPhone%>
<%=smFax%>
<%=smCategories%>	<%=smCheckApply%> <% if not rs.eof then while not rs.eof response.write "" & rs("prodName") & " " rs.movenext wend end if rs.close set rs = nothing %>
<%=smEmail%>
<%=smComments%>