premetto di non aver capito molto bene comunque presumo tu intenda così:

codice:
	    <table width="500" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
		 <tr>


		<%
 
			'apro la connessione con il db
			set myConn1 = server.CreateObject("ADODB.Connection")
			
			dim strConnDb1
			strConnDb1 = ""
			strConnDb1 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/news.mdb")
			myConn1.Open(strConnDb1)
					
			mySqlSelect1 = "select TOP 10 * from notizie order by data desc"
			
			set myRSComS1 = server.CreateObject("ADODB.Recordset")
			
			myRSComS1.Open mySqlSelect1, myConn1
				
		        
                        I=0                         
			if not(myRSComS1.EOF) and not(myRSComS1.BOF) then	
		
				do while not(myRSComS1.EOF)	
                                I = I+1

                        if (I<=2) Then       
		%>




	          <td>
                  <font color="#05326f"><%=myRSComS1("data")%></font><%=myRSComS1("titolo")%>

		  <p align="justify">
		  <font face="verdana" size="2" color="#000000">
			<%
			Testoparziale=""
			Testoparziale=myRSComS1("argomento")
			pos=150
                        response.write(left(Testoparziale, pos) &"... [Continua]")
			%>
		  </font></p>
		  </td>


             
		 <%     else %>

                   </tr> 
                   <tr> 



                      <%     end if 					
                              myRSComS1.MoveNext
				loop
			else
		
		%>

		 </tr>
		</table>
non è che mi daresti un'occhiata al codice e mi dici dove sbaglio?

GRAZIE