<% 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) %> <%=ucase(display_title)%><%=display_split_title%>- Business Cards 4 Me
  Business Cards 4 Me / <%=ucase(display_title)%><%=display_split_title%>

<%=ucase(display_title)%><%=display_split_title%>

 Add a new link



<% i = 1 Do Until rs.EOF Or rs.BOF len_title1 = len(rs("web_sitename")) split_len_title1 = len_title1 -1 display_title1 = left(rs("web_sitename"),1) display_split_title1 = Right(rs("web_sitename"),split_len_title1) %> » <%=Ucase(display_title1)%> <%=display_split_title1%> <% display_content = replace(rs(3),"""","")%>
<%=display_content%>
<% rs.MoveNext i=i+1 Loop %>
 
BusinessCards4me Custom Design Services