<% DIM VaFilter VaFilter = "Aktuell" DIM VaRubrik VaRubrik = "News" DIM sql, sql_command, RS SESSION.LCID = 1033 sql = "WHERE " sql = sql & "(aa_publvon <= (#" & CDate(date) & "#)" & " " sql = sql & "AND aa_publbis >= (#" &CDate(date) & "#)" & " " sql = sql & "AND aa_status = " & 1 & " " sql = sql & "AND ne_art = '" & VaRubrik & "'" & ")" & " " sql = sql & "OR (aa_publiziert = " & 0 & " " sql = sql & "AND aa_status = " & 1 & " " sql = sql & "AND ne_art = '" & VaRubrik & "'" & ")" & " " SESSION.LCID = 2055 '**** SQL String für die Order Klausel **** '**** Die Datensätze werden verschieden ausgegeben **** 'sql = "WHERE" 'sql = sql & "(Cdate(aa_publvon) <= '" & cdate(date) & "'" & " " 'sql = sql & "AND Cdate(aa_publbis) >= '" &CDate(date) & "'" & " " 'sql = sql & "AND ne_art = '" & VaRubrik & "'" & " " 'sql = sql & "AND aa_status = " & 1 & " " 'sql = sql & "AND aa_publin = '" & VaFilter & "'" & ")" & " " 'sql = sql & "OR (aa_publiziert = " & 0 & " " 'sql = sql & "AND aa_status = " & 1 & " " 'sql = sql & "AND ne_art = '" & VaRubrik & "'" & " " 'sql = sql & "AND aa_publin = '" & VaFilter & "'" & ")" & " " sql_command ="SELECT aa_geandertdatum, ne_titel, ne_schlagzeile, ne_text, aa_id " sql_command = sql_command & "FROM tblnews " sql_command = sql_command & sql sql_command = sql_command & "ORDER BY aa_geandertdatum Desc " SET RS = SERVER.CREATEOBJECT("ADODB.Recordset") RS.CURSORTYPE = 1 RS.CURSORLOCATION = 1 RS.LOCKTYPE = 1 RS.OPEN sql_command, strconn %>

") RESPONSE.WRITE("") 'RESPONSE.WRITE("") 'RESPONSE.WRITE("") RESPONSE.WRITE("") 'RESPONSE.WRITE("") RESPONSE.WRITE("") If MyText <> "" THEN 'RESPONSE.WRITE("") RESPONSE.WRITE("") END IF RESPONSE.WRITE("") RS.MOVENEXT WEND RS.CLOSE SET RS = nothing END IF RESPONSE.WRITE("

News auf www.brown-swiss.com

<% RESPONSE.WRITE("") 'RESPONSE.WRITE("") IF RS.EOF then RESPONSE.WRITE("") RESPONSE.WRITE("

Zur Zeit sind keine News Online !

") ELSE DIM MyDatum, MyTitel, MySchlagzeile, MyText, MyID WHILE NOT RS.EOF MyTitel = RS("ne_titel") MyDatum = RS("aa_geandertdatum") MySchlagzeile = RS("ne_schlagzeile") MyText = Rs("ne_text") MyID = RS("aa_id") RESPONSE.WRITE("

" & MyDatum & "

" & MyTitel & "

" & MySchlagzeile & "

") %>