Hairstyles Design.net | The Web's Hairstyle & Beauty Resource

<%@LANGUAGE="VBSCRIPT"%> <% ' 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 rsLISTING__MMColParam rsLISTING__MMColParam = "30" If (Request("MM_EmptyValue") <> "") Then rsLISTING__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsLISTING Dim rsLISTING_numRows Set rsLISTING = Server.CreateObject("ADODB.Recordset") rsLISTING.ActiveConnection = MM_connHAIRSTYLESDESIGN_STRING rsLISTING.Source = "SELECT * FROM hairstylesdesign_net.tbllisting WHERE sCATID = " + Replace(rsLISTING__MMColParam, "'", "''") + " AND sSTATUS='1' ORDER BY sDATE DESC ,sNAME DESC" rsLISTING.CursorType = 0 rsLISTING.CursorLocation = 2 rsLISTING.LockType = 1 rsLISTING.Open() rsLISTING_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsLISTING_numRows = rsLISTING_numRows + Repeat1__numRows %> Hairstyles Design.net | The Web's Hairstyle & Beauty Resource

   Home
   Directory
   Articles
   Resources

Submit Your Site
Submit An Article

Contact
Site Map

Jewelry

<% While ((Repeat1__numRows <> 0) AND (NOT rsLISTING.EOF)) %>

" class="content-black"><%=(rsLISTING.Fields.Item("sNAME").Value)%>
<%=(rsLISTING.Fields.Item("sDESC").Value)%>
<%=(rsLISTING.Fields.Item("sURL").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLISTING.MoveNext() Wend %>