<%
DIM strImage3(100)
yy=1
set objConn = Server.CreateObject ("ADODB.Connection")
set objRec = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT ViewOurFarmImages.Image, ViewOurFarmImages.Order "
strSQL = strSQL & "FROM ViewOurFarmImages "
strSQL = strSQL & "WHERE (((ViewOurFarmImages.Order)<>0)) "
strSQL = strSQL & "ORDER BY ViewOurFarmImages.Order;"
objRec.Open strSQL, strConnect, adOpenKeyset, adLockOptimistic, adCmdText
while not objRec.EOF
strImage(yy) = objRec
yy = yy + 1
objRec.movenext
wend
objRec.Close
Set objRec = Nothing
%>
