<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsLinks
Dim rsLinks_cmd
Dim rsLinks_numRows
Set rsLinks_cmd = Server.CreateObject ("ADODB.Command")
rsLinks_cmd.ActiveConnection = MM_whc_STRING
rsLinks_cmd.CommandText = "SELECT * FROM links ORDER BY name ASC"
rsLinks_cmd.Prepared = true
Set rsLinks = rsLinks_cmd.Execute
rsLinks_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsLinks_numRows = rsLinks_numRows + Repeat1__numRows
%>
Westside Hospital For Cats
<%
rsLinks.Close()
Set rsLinks = Nothing
%>