<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim rs__MMColParam rs__MMColParam = "0" If (Request("MM_EmptyValue") <> "") Then rs__MMColParam = Request("MM_EmptyValue") End If %> <% 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 goodbull WHERE draftmode = ?" rs_cmd.Prepared = true rs_cmd.Parameters.Append rs_cmd.CreateParameter("param1", 11, 1, -1, rs__MMColParam) ' adBoolean 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 Feedback

[an error occurred while processing this directive]

Hartwood Feedback

<% While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext() Wend %>

"><%=rs("calloutphrase")%>...

~~<%=rs("letterby")%>

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