Loope en funktion

response.buffer = true
set connect = server.createobject("ADODB.Connection")
Connect.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("DINDB.mdb")
set rs = connect.execute("SELECT * FROM tabel1")



while not rs.eof

DIT OUTPUT HER


rs.movenext
wend

fu** sorry glemte at læse det hele

Kan du forklare dig lidt bedre ?

Du kan lavet et loop som finder <table> og så skrifter stylen ud i første række som dit script idag. Jeg har udvidet dit script så det gør det:


tekst = Replace(tekst, "></TD>", ">&nbsp;</TD>")
tekst = tekst & "<br><br>"
indexTable = inStr(1,tekst,"<table",1)
do while (indexTable > 0)
  leftstr=left(tekst,indexTable-1)
  midstr = mid(tekst,indexTable,(instr(indexTable,tekst,"</tr>",1)-indexTable+5))
  midstr=replace(midstr,"class=pc","class=pc2")
  rightstr=mid(tekst,len(leftstr)+len(midstr),len(tekst)-len(leftstr)-len(midstr)+1)
  tekst=leftstr & midstr & rightstr
  indexTable = inStr(indexTable+2,tekst,"<table",1)
loop
'Så kan du bruge tekst hvor den førte rækkes class er ændret
Response.Write Tekst

torbenmalander ->
Strengen kan feks. indeholde en hel HTML-side.
Når siden så trægges frem fra databasen, vi kalder strengen for tekst, skal den strengen behandles således at den først finder alle tabeller i strengen. Når det er gjort skal den så går ind og ændre stylene i den første række for hver tabel således den første række får en anden style.

Eagleeye - jeg tjekker lige din kode i morgen...

Eagkeeye du er for sej... Det virker bare. Fortjente point på vej til dig.

:o)