Ja, so habe ich mir das auch gedacht.
Danke Claudius.
Dann werd ichs jetzt mal umbauen.
Gr��e, Gudula
----- Original Message -----
From: "Claudius Ceteras" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, July 31, 2003 2:01 PM
Subject: RE: [Coffeehouse] Newsseite
> 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
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
