So in der art meine ich es :
>
> function getdataFromTabelle1()
dim sql,txt
sql = "select DokID, Autor,Datum, Dokumente_ueber, "
sql = sql & "doc_inhalt from dokumente where Kreuzwort=true and
"
sql = sql & "Datum =(select max(Datum) from Dokumente " & _
"where kreuzwort=true)"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open sql, objConn
txt = "<table><tr><td>AUTOR:</td><td>INHALT</td></tr>"
do while rs.eof
txt = txt & "<tr><td>"&rs("autor")& _
"</td><td>"&rs("doc_inhalt")&"</td></tr>"
rs.movenext
loop
txt = txt & "</table>"
getdataFromTabelle1 = txt
> end function
>
> If Update then
> Application.Lock
> Application("data1") = getdataFromTable1()
> ...
> ...
> Application("lastUpdate") = now()
> Application.Unlock
> End if
>
Und an der stelle an der du dann normalerweise das RS ausgibst, einfach
application("data1") ausgeben...
Claudius
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
