speriamo mi possiate aiutare

ho questo script


codice:
<html>
<head>
<BODY>
<%
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/public/news/database.mdb") 


'set connession to database 
Set objConn=Server.CreateObject("ADODB.Connection")

'open connession to database
objConn.Open cstring

Set rs = Server.CreateObject("ADODB.Recordset")

nometabella="news"  ' inserisci qui il nome della tabella da vedere

SQL = "SELECT TOP 6 * FROM "&nometabella&" ORDER BY id DESC"

'apro il rs
rs.Open sql, objConn
stringa= ""
stringa1= ""
stringa2= ""
stringa3= ""
stringa4= ""
stringa5= ""
stringa6= ""

a=0
do until rs.eof

For Each campo in rs.Fields
	if not (campo.name = "id" or campo.name = "descrizione" or campo.name = "click") then 'non stampa i campi non richiesti
	a=a+1
	if a=1 or a=2 then stringa1=stringa1+ campo &""
   if a=3 or a=4 then stringa2=stringa2+ campo &""
   if a=5 or a=6 then stringa3=stringa3+ campo &""
   if a=7 or a=8 then stringa4=stringa4+ campo &""
   if a=9 or a=10 then stringa5=stringa5+ campo &""
   if a=11or a=12 then stringa6=stringa6+ campo &""

end if
	
next
rs.movenext
loop%>

<applet CODEBASE="../../" CODE="trans.class" WIDTH="300" HEIGHT="100" ALIGN="CENTER">
      <param name="BGCOLOR" value="000000">
      <param name="TEXTCOLOR" value="FF0000">
      <param name="DELAY" value="50">
      <param name="ALIGN" value="CENTER">
      <param name="TEXT0" value=stringa1>
      <param name="TEXT1" value=stringa2>
      <param name="TEXT2" value=stringa3>
      <param name="TEXT3" value=stringa4>
      <param name="TEXT4" value=stringa4>
      <param name="TEXT5" value=stringa5>
      <param name="TEXT6" value=stringa6>

</applet>
</body>
</html>
vorrei assegnare ai diveri TEXT il Value che hi ricavato prima dal database, ma l'assegnazione non mi funziona come devo fare?


grazie