%
Session.timeout = 1
If IsObject(Session("hemptimes_conn")) Then
Set conn = Session("hemptimes_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "hemptimes","",""
Set Session("??hemptimes_conn") = conn
End If
sql = "SELECT Artikel.A_Nr, Artikel.R_Nr AS Artikel_R_Nr, Artikel.Titel, Artikel.Heft_Nr, Artikel.Kurztext, Artikel.Detailseite, Artikel.Bild, Rubrik.R_Nr AS Rubrik_R_Nr, Rubrik.S_Nr AS Rubrik_S_Nr, Rubrik.Rubrik, Sparte.S_Nr AS Sparte_S_Nr, Sparte.Sparte FROM (Sparte INNER JOIN Rubrik ON Sparte.S_Nr = Rubrik.S_Nr) INNER JOIN Artikel ON Rubrik.R_Nr = Artikel.R_Nr"
sql = sql & " WHERE [Sparte] = 'HEMPHISTORY' AND [Rubrik] = 'HEMPFACTS' ORDER BY [Heftart], [Heft_Nr] DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
SHK