<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim RS_Horses__MMColParam RS_Horses__MMColParam = "Competition" If (Request("MM_EmptyValue") <> "") Then RS_Horses__MMColParam = Request("MM_EmptyValue") End If %> <% Dim RS_Horses Dim RS_Horses_cmd Dim RS_Horses_numRows Set RS_Horses_cmd = Server.CreateObject ("ADODB.Command") RS_Horses_cmd.ActiveConnection = MM_two_mills_STRING RS_Horses_cmd.CommandText = "SELECT * FROM Horse WHERE whichPage = ? ORDER BY horseID DESC" RS_Horses_cmd.Prepared = true RS_Horses_cmd.Parameters.Append RS_Horses_cmd.CreateParameter("param1", 200, 1, 50, RS_Horses__MMColParam) ' adVarChar Set RS_Horses = RS_Horses_cmd.Execute RS_Horses_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 RS_Horses_numRows = RS_Horses_numRows + Repeat1__numRows %> Two Mills - Horses for sale

Horses for sale

<% While ((Repeat1__numRows <> 0) AND (NOT RS_Horses.EOF)) %>
<%=(RS_Horses.Fields.Item("horseName").Value)%>:
/<%=(RS_Horses.Fields.Item("mainPic").Value)%>.jpg" width="277" height="180" />
<%=(RS_Horses.Fields.Item("description").Value)%>
  • <%=(RS_Horses.Fields.Item("type").Value)%>
  • <%=(RS_Horses.Fields.Item("hands").Value)%>hh   
  • <%=(RS_Horses.Fields.Item("colour").Value)%>
  • <%=(RS_Horses.Fields.Item("age").Value)%> yrs
    • <%if RS_Horses.Fields.Item("soldBy").Value <> "" then%>
  • <%=(RS_Horses.Fields.Item("soldBy").Value)%>
    • <%end if%>
  • <% dim price intLocale = SetLocale(2057) price = RS_Horses.Fields.Item("price").Value price = FormatCurrency(price, 0, 0, 0, -1) %>
    <%=price%>
<%if RS_Horses.Fields.Item("private").Value <> false then%> <%end if%>
<%if RS_Horses.Fields.Item("horseImage").Value <> "" then%> "> <%end if%> <%if RS_Horses.Fields.Item("horseVideo").Value <> "" then%> "> <%end if%>
Click to view more images or video    
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_Horses.MoveNext() Wend %>

 

 

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