% 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 %>
|
|||||||||||||||||||||||||||||||||||||
|