<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/gallerie.mdb") Set rs = Server.CreateObject("ADODB.Recordset") SQL="SELECT * FROM elencotabelle ORDER BY data DESC" rs.open SQL, conn, 1 rs.movefirst i=0 Do while NOT RS.EOF if i<5 then if rs.fields("visibile") = True then nomegalleria=replace(rs.fields("nome"),"_"," ") SQL2="SELECT * FROM " & rs.fields("nome") set rs2 = Server.CreateObject("ADODB.Recordset") rs2.open SQL2, conn, 1 if not rs2.eof then rs2.movefirst i=i+1 response.write("

" & nomegalleria & "
") n=0 do while not rs2.eof if n<4 then n=n+1 response.write(" ") end if rs2.movenext loop response.write("

") end if end if end if rs.movenext Loop set rs=nothing conn.close %>

<% Set conn3 = Server.CreateObject("ADODB.Connection") conn3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/platinum.mdb") Set rs3 = Server.CreateObject("ADODB.Recordset") ' SQL3="SELECT * FROM FORUM_REPLY ORDER BY R_DATE DESC" SQL3="SELECT * FROM FORUM_TOPICS ORDER BY T_LAST_POST DESC" rs3.open SQL3, conn3, 1 rs3.movefirst i=0 do while not i=11 if rs3.fields("T_REPLIES")=0 then testotopic=rs3.fields("T_MESSAGE") else Set rs4 = Server.CreateObject("ADODB.Recordset") SQL4="SELECT * FROM FORUM_REPLY WHERE TOPIC_ID=" & rs3.fields("TOPIC_ID") & " ORDER BY R_DATE DESC" rs4.open SQL4, conn3, 1 rs4.movefirst testotopic=rs4.fields("R_MESSAGE") end if response.write("

" & rs3.fields("T_SUBJECT") & "
" & left(striptags(testotopic),50) & "

") i=i+1 rs3.movenext loop %>