Lo so che dite di guardare gli altri post eccecc

ho cercato...

ho trovato ho letto ho provato....

ma è troppo complicato non so dove mettere le mani

ecco il mio codice:

'Apre il database
dbfile = Server.MapPath("../db/base.mdb")
Set Con = Server.CreateObject( "ADODB.Connection" )
con.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"
Con.Open

sqlString = "SELECT * FROM msg"
Set RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.Open sqlString


bg1 = 1
bgcolor = "#9CAE46"
Repeat=1
Do Until rs.EOF


While ((Repeat <> 0) AND (NOT Rs.EOF))

' estrare i record in tabelle ecc.....

testo=rs.fields("msg")
testo=replace(testo,"@1","<img src=smile.gif>")
testo=replace(testo,"@2","<img src=frown.gif>")
testo=replace(testo,"@3","<img src=sgrat.gif>")
testo=replace(testo,"@4","<img src=ciapet.gif>")
testo=replace(testo,"@5","<img src=metallica.gif>")
testo=replace(testo,"@6","<img src=biggrin.gif>")
testo=replace(testo,"@7","<img src=dho.gif>")
testo=replace(testo,"@8","<img src=electric_g.gif>")
response.write testo

Repeat=Repeat -1
Rs.MoveNext()
Wend

Repeat=1

ho trovato quella paginazione di roby ma non so nemmeno da che parte cominciare............

vi prego helppp
Loop