<%@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