<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim rs Dim rs_cmd Dim rs_numRows Set rs_cmd = Server.CreateObject ("ADODB.Command") rs_cmd.ActiveConnection = MM_hahconn_STRING rs_cmd.CommandText = "SELECT * FROM slideshows ORDER BY ssid ASC" rs_cmd.Prepared = true Set rs = rs_cmd.Execute rs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows %> Hartwood Animal Hospital Photo Albums

Hartwood Animal Hospital Logo

[an error occurred while processing this directive]

Photo Albums

<% Dim i i = 0 %> <% While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %> <% i = i + 1 Dim coveralign coveralign = "right" 'even If (abs(i) mod 2) = 1 Then coveralign = "left" 'odd End If %>

<% If Len(rs("ssCover")&"") <> 0 Then %> &stitle=<%=rs("ssTitle")%>" id="menu">" border="0" align="<%=coveralign%>" height="75" width="75" hspace="10"/> <% End If %> &stitle=<%=rs("ssTitle")%>"><%=rs("ssTitle")%> <% If Len(rs("ssDate") & "") <> 0 Then %> , <%=rs("ssDate")%> <% End If If Len(rs("ssIntro") & "") <> 0 Then %>
<%=rs("ssIntro")%> <% End If %>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext() Wend i = i + 1 'for additional albums listed below manually If (abs(i) mod 2) = 1 Then coveralign = "left" 'odd End If %>

Grooming
Some before and after photos of our grooming clients.
[an error occurred while processing this directive]
<% rs.Close() Set rs = Nothing %>