<% FolderName = Request.ServerVariables("URL") option_category02 = split(FolderName,"/") option_category = replace(option_category02(2),"-"," ") get_title = replace(option_category02(2),"-"," ") Set db = Server.CreateObject("ADODB.Connection") db.Open("bc4m") db.CursorLocation = 3 SQL = "Select * From e_resource where publish = 'yes' and option_category ='"&option_category&"' Order by web_sitename Asc" Set rs = Server.CreateObject("ADODB.Recordset") set rs = db.Execute(SQL) %> <% len_title = len(get_title) split_len_title = len_title -1 display_title = left(get_title,1) display_split_title = Right(get_title,split_len_title) %> Add Links - Business Cards 4 Me
 Business Cards 4 Me / Resources / AddLink

Add Links

  


Before submitting, please link to our site using one of the following linking options:

Title:              Business Card Custom Design and Color Printing
Description:   Custom business card design and full color business card printing.
                      Specializing in glossy lamination or matte lamination business card printing.
                      Free card samples available.
URL:               http://www.logobusinesscards.com/en/business_cards.html

Title:              Logo Business Cards
Description:   Custom company logo designs by professional logo designers. Professional
                      and affordable logo packages available.
URL:               http://www.logobusinesscards.com/


 Complete the form below to submit your link request to our site.
You will be contacted via email when your link is approved.
Name of your site: 
URL: 
Include a short description 
of your site 
(200 max character length) 

URL that links to our site: 
Your contact information is required in case we need to get in touch with you
Your name: 
Your email address: 
Select the category your link should be placed in
<% Set db = Server.CreateObject("ADODB.Connection")'connect db db.Open("bc4m") db.CursorLocation = 3 set rs01 = Server.CreateObject("ADODB.Recordset") SQL = "Select category From ResourceCategory " set rs01 = db.Execute(SQL) %>
 
BusinessCards4me Custom Design Services