<%@LANGUAGE="VBSCRIPT"%> <% on error resume next %> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_connHAIRSTYLESDESIGN_STRING MM_connHAIRSTYLESDESIGN_STRING = "Driver={MySQL ODBC 3.51 Driver}; Server=alpha.nrjdesign.net; Database=hairstylesdesign_net; UID=hairstylesdesign; PWD=pass260313;Option=3" %> <% Dim rsCAT Dim rsCAT_numRows Set rsCAT = Server.CreateObject("ADODB.Recordset") rsCAT.ActiveConnection = MM_connHAIRSTYLESDESIGN_STRING rsCAT.Source = "SELECT * FROM tblcat ORDER BY sNAME ASC" rsCAT.CursorType = 0 rsCAT.CursorLocation = 2 rsCAT.LockType = 1 rsCAT.Open() rsCAT_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 rsCAT_numRows = rsCAT_numRows + HLooper1__numRows %> Hairstyles Design.net | The Web's Hairstyle & Beauty Resource
HairstylesDesign.net
Search

Navigation

   Home
   Directory
   Articles
   Resources

line

   Submit Your Site
   Submit An Article

line

   Contact
   Site Map

 

 

Hairstyles & Beauty Directory
line

The purpose of HairstylesDesign.net is to offer our visitors a chance to find the best hair & beauty resources on the Web, in one place.

As the the Web continues to grow bigger by the day, there will always be valuable resource that may be overlooked. This site is managed by human editors so all the websites you will find here have been hand picked, reviewed and selected.

Click Here To Submit Your Site!

line

Directory

<% startrw = 0 endrw = HLooper1__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not rsCAT.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsCAT.EOF)) %> <% startrw = startrw + 1 rsCAT.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
<% startrw = 0 endrw = HLooper1__index numberColumns = 4 numrows = -1 while((numrows <> 0) AND (Not rsCAT.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsCAT.EOF)) %> <% startrw = startrw + 1 rsCAT.MoveNext() Wend %> <% numrows=numrows-1 Wend %>
"><%=(rsCAT.Fields.Item("sNAME").Value)%>

line

Articles

If you are an editor, columnists, website webmaster or other and would like to submit an article, tutorial, hair product review or other useful and informational resource to us, we will feature it on our website within our article section along with a link to your website.

 
Copyright © 2005-2007 HairstylesDesign.net. All Rights Reserved.

 

 

 

 

 

<% rsCAT.Close() Set rsCAT = Nothing %>