<%
dim ors2, strSql, xCnt
myConstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "my_db\praiselink_new.mdb;"
strSql= "select top 8 * from services_large order by mySeed,ImageShown"
set oRs2 = Server.CreateObject("ADODB.Recordset")
oRs2.ActiveConnection = myConstring
oRs2.Source = strSQL
oRs2.CursorType = 0
oRs2.CursorLocation = 2
oRs2.LockType = 3
oRs2.Open
do while not ors2.eof
xCnt =xCnt + 1
if xcnt mod 2 = 0 then
%>
<%
end if
ors2("ImageShown") = ors2("ImageShown") + 1
ors2("mySeed") = int(6* rnd(1))
ors2.Update
ors2.MoveNext
loop
ors2.Close
%>
|
|
