<%Response.Buffer = True%> Submit Page Listing on a Subtopic Page <% If Request.Form("Search")= "Search" then Response.redirect("../../aaDNR/SearchSite.asp") End If %>
<% Dim PostTo PostTo = Session("ShowIn") IF Request.Form("Save")= "Submit" THEN 'On error resume next If Request.Form ("UserName") = "" Then msg = msg & "ERROR! Insert User Name!
" ElseIF Request.Form("Password") = "" then msg = msg & "ERROR! Insert password!
" ElseIF Request.Form("Password2") = "" then msg = msg & "ERROR! Insert Repeat password!
" ElseIF Request.Form("Password")<>Request.Form("Password2") then msg = msg & "ERROR! Your passwords do not match!
" ElseIF Request.Form ("ListingSiteName") = "" then msg = msg & "ERROR! Please insert the name of your website!
" ElseIF Request.Form ("ListingURL")= "" and Request.Form("ComPhone1") = "" then msg = msg & "ERROR! Please insert the Link of your website or Phone number of your company!
" ElseIf Request.Form("Description") = "" then msg = msg & "ERROR! Insert a description of your business!
" ElseIF Request.Form("BusName") = "" then msg = msg & "ERROR! Insert business name!
" Elseif Request.Form("Address") = "" then msg = msg & "ERROR! Insert business address!
" ElseIf Request.form("City") = "" then msg = msg & "ERROR! Insert name of town or city of your business!
" ElseIf Request.form("State") ="" then msg = msg & "ERROR! Choose state of your business!
" ElseIf Request.Form("Zip") = "" then msg = msg & "ERROR! Insert zip code of your business!
" ElseIf not IsNumeric(Request.Form("Zip")) then msg = msg & "ERROR! Zip code uses numbers only!
" ElseIf Request.Form("Contact") = "" then msg = msg & "ERROR! No contact person listed!
" ElseIf Request.form("Areacode") = "" then msg = msg & "ERROR! Please insert the phone number of your business!
" ElseIf not IsNumeric(Request.Form("AreaCode")) then msg = msg & "ERROR! Area code uses numbers only!
" ElseIf Request.form("Phone1") = "" then msg = msg & "ERROR! Insert phone number of your business!
" ElseIf not IsNumeric(Request.Form("Phone1")) then msg = msg & "ERROR! Phone uses numbers only!
" ElseIf Request.form("Phone2") = "" then msg = msg & "ERROR! Insert phone number of your business!
" ElseIf not IsNumeric(Request.Form("Phone2")) then msg = msg & "ERROR! Phone uses numbers only!
" ElseIf Request.form("Email") = "" then msg = msg & "ERROR! Insert an E-mail address. You will receive confirmation of your listing!
" ElseIf Request.Form("Keywords") = "" then msg = msg & "ERROR! Insert Keywords that relate to your business!
" Else IF Request.Form ("ListingURL") = "" then Dim Connection set Connection= Server.CreateObject("ADODB.Connection") Connection.Open "DQDB" Dim RS Set RS =Server.CreateObject("ADODB.Recordset") RS.Open "Select * from PreView",Connection,1,2 RS.AddNew RS("UserName")= Trim(Lcase(Request.form("UserName"))) RS("Password")= Trim(LCase(Request.form("Password"))) RS("BName")=Trim(Request.form("BusName")) RS("Address")=Trim(Request.form("Address")) RS("City")=Trim(Request.form("City")) RS("State")=Trim(Request.Form("State")) RS("Zip")=Trim(Request.Form("Zip")) RS("AreaCode")=Trim(Request.Form("AreaCode")) RS("Phone")="("& Request.Form ("Areacode")& ")"& Request.Form("Phone1")&"-"&Request.Form("Phone2") RS("Email")=Trim(LCase(Request.Form("Email"))) RS("WName")=Trim(Request.Form("ListingSiteName")) RS("Description")=Request.Form("STName")&" Page
"&"("& Request.Form ("ComAreacode")& ")"& Request.Form("ComPhone1")&"-"&Request.Form("ComPhone2")&" "&Request.Form("Description") RS("Keywords")=Request.Form("Keywords") RS("Contact")=Request.Form("Contact") RS("PostTo")= "ListingsToSort" RS("Date")=Date RS.Update else set Connection= Server.CreateObject("ADODB.Connection") Connection.Open "DQDB" Set RS =Server.CreateObject("ADODB.Recordset") RS.Open "Select * from Preview",Connection,1,2 RS.AddNew RS("UserName")= Trim(Lcase(Request.form("UserName"))) RS("Password")= Trim(LCase(Request.form("Password"))) RS("BName")=Trim(Request.form("BusName")) RS("Address")=Trim(Request.form("Address")) RS("City")=Trim(Request.form("City")) RS("State")=Trim(Request.Form("State")) RS("Zip")=Trim(Request.Form("Zip")) RS("AreaCode")=Trim(Request.Form("AreaCode")) RS("Phone")="("& Request.Form ("Areacode")& ")"& Request.Form("Phone1")&"-"&Request.Form("Phone2") RS("Email")=Trim(LCase(Request.Form("Email"))) RS("WName")=Trim(Request.Form("ListingSiteName")) RS("URL")=Trim(Request.Form("ListingURL")) RS("Description")=Request.Form("STName")&" Page
"&Request.Form("Description") RS("Keywords")=Request.Form("Keywords") RS("Contact")=Request.Form("Contact") RS("PostTo")= "ListingsToSort" RS("Date")=Date RS.Update End if 'IF Request.Form ("ListingURL") = "" then 'SQL = "Insert into PreView values ('"&Trim(LCase(Request.form("UserName")))&"','"&Trim(LCase(Request.form("Password")))&"','"&Request.form("BusName")&"','"&Request.form("Address")&"','"&Request.form("City")&"','"&Request.form("State")&"',"&Request.form("Zip")&","& Request.Form("AreaCode")&",'"&"("& Request.Form ("Areacode")& ")"& Request.Form("Phone1")&"-"&Request.Form("Phone2")&"','"&Trim(LCase(Request.Form("Email")))&"','"&Trim(Request.Form("ListingSiteName"))&"','"&""&"','"&""&Request.Form("STName")&" Page
" &"("& Request.Form ("ComAreacode")& ")"& Request.Form("ComPhone1")&"-"&Request.Form("ComPhone2")&" "&Request.Form("Description")&"','"&Request.Form("Keywords")&"','"&Request.form("Contact")&"','ListingsToSort','"&Date&"')" 'else 'SQL = "Insert into PreView values ('"&Trim(Lcase(Request.form("UserName")))&"','"&Trim(LCase(Request.form("Password")))&"','"&Request.form("BusName")&"','"&Request.form("Address")&"','"&Request.form("City")&"','"&Request.form("State")&"',"&Request.form("Zip")&","& Request.Form("AreaCode")&",'"&"("& Request.Form ("Areacode")& ")"& Request.Form("Phone1")&"-"&Request.Form("Phone2")&"','"&Trim(LCase(Request.Form("Email")))&"','"&Trim(Request.Form("ListingSiteName"))&"','"&Trim(Request.Form("ListingURL"))&"','"&""&Request.Form("STName")&" Page
"& Request.Form("Description")&"','"&Request.Form("Keywords")&"','"&Request.form("Contact")&"','ListingsToSort','"&Date&"')" 'End if 'on error resume next 'Connection.Execute (SQL) 'Email_______________________________________________________________________________ Dim vEmail vEmail=Request.Form("Email") Dim HTML HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Welcome to TopicSmart.com" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
" HTML = HTML & "
Dear " &Request.form("Contact")& "" HTML = HTML & ", Thank you for submitting your listing to http://www.TopicSmart.com " HTML = HTML & "
" HTML = HTML & "Your UserName is ""&Request.form("UserName")&""
" HTML = HTML & "and your Password is ""&Request.form("Password")&"". " HTML = HTML & "
Please keep this information in a safe place should " HTML = HTML & "you forget your
User Name and Password please contact us.
Please feel free to share your comments or suggestions with us to make " HTML = HTML & "TopicSmart more useful.
Thank you.
" HTML = HTML & "
" Dim objMail If not vEmail = "" Then Set objMail = CreateObject("CDONTS.NewMail") objMail.From="Submit@"&Session("RootWebName")&".com" objMail.Subject = "Welcome to " &Session("RootWebName") &".com" objMail.To= vEmail objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = HTML objMail.Send End IF '_______________________________________________________________________ Dim SendEmail SendEmail="Submit@DirectQuest.com" Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "TopicSmart@"&Session("RootWebName") &".com" objMail.To = SendEmail objMail.Subject = "New listing in " &Session("RootWebName") &".com" objMail.Body = "Posted to :"&Session("PageName")&": WebsiteName: "&Request.Form("ListingSiteName")& ", URL: "&Request.Form("ListingURL")&", Description: "&Request.Form("Description")&", Name of Person Submitting : "&Request.form("Contact")& ", Business Name: "&Request.form("BusName")&", Address: " & Request.form("Address")& ", City: "&Request.form("City")&", State: "& Request.form("State")&", Zip: "& Request.form("Zip")& ", Phone: "& "("& Request.Form ("Areacode")& ")"& Request.Form("Phone1")&"-"&Request.Form("Phone2")&", Email: "&Request.Form("Email")&", Keywords: "&Request.Form("Keywords") objMail.Send Set objMail = Nothing connection.Close Set connection = nothing Response.Redirect "SubmitThankYou.asp" Response.Clear Response.End End IF END IF %>
 

 

Home   |    List Your Site   |    Submit  Ad   |   Shopping Mall    |  Become an Editor or Partner |   Edit Your Listing   |  Contact Us  





On-Line and in
Doylestown, Pa





Insights on
teaching poetry
to children



The Angel's Kiss
 A Magnificent CD
of Orchestral Music


 

 

<%Response.Write msg %> Submit an Idea for a  New Page And Post your Listing There

Before submitting your listing here, check to see if the page where you want to be listed has a " submit your listing "  button  on the upper right side of the page.  If it DOES  have a "submit"  button in the upper right, please click there to submit, and it will post to the correct page. 
If you do not see a page 
that is appropriate -  then use this box 
to suggest a page  for your listing 
    " size="30" tabindex="1">

After we  create the page for you  
we will  post on it  the information
that you fill out below
User Name:
 " size="30" tabindex="1"> Choose any User Name of  5 or more Characters- lower case please
Password:
 " size="30" tabindex="2"> Choose any Password of 5 or more Characters- lower case please
Repeat Password: 
 " size="29" tabindex="3"> Re-enter your Password.
The following will post to TopicSmart web site.
Your Website or Company Name
 (i.e. TopicSmart Directories):
 " size="29" tabindex="4"> List your company name here.
 Link  to:  http://
If you don�t have a website link yet, enter your phone number below and it will appear after your company name.
 " size="29" tabindex="5" > Provide a direct link to the page that the viewer will be seeking, not to your homepage if they would then have to search again for the desired information.  

Website or Company phone number:

 ( "> )  "> - ">
Description of your business or website:
   If you would like your phone number or town posted next to your name, put them first .  255 Characters or less
Please supply the following contact info to complete your submission
THIS WILL NOT BE POSTED 
Business Name 
 " size="30" tabindex="7">
Street Address or P.O. Box:
 " size="30" tabindex="8">
Town / City:
 " size="29" tabindex="9">
State:
Zip Code :
 " size="29" tabindex="11">
Name of person Submitting:
 " tabindex="12">
Contact phone
even if same as above,
please enter again here:
 ( " tabindex="13"> ) " tabindex="14"> - " tabindex="15">
Email:
 " size="29" tabindex="16"> Used to confirm your listing.
This info will not be posted or shared . 
Keywords:
 " tabindex="17"> Up to 50 Characters - What words would people use to find your business.