<%@ EnableSessionState=False %>

Vorstand & Geschäftsstelle...

Hier finden Sie aktuelle Informationen vom Vorstand und der Geschäftsstelle. <% Call OpenDB ("tibet") sql = "SELECT topic.ID AS topicID, topic.Bezeichnung, Item.ID, Format([topic].[Datum],'dd\.mm\.yyyy') AS Dat, Item.title, Item.ftext, Item.list, Item.email, Item.www, Not IsNull([file]) AS IsBild, Not IsNull([big]) AS IsBig, Item.file_updates, Item.big_updates " sql = sql & "FROM theme INNER JOIN (topic INNER JOIN Item ON topic.ID = Item.topic) ON theme.ID = topic.theme " sql = sql & "WHERE (((theme.Bezeichnung)='news')) " sql = sql & "ORDER BY topic.Datum DESC, Item.ID; " 'Response.Write sql Set rs = cn.Execute(sql) If rs.eof Then %> Momentan sind keine aktuellen Informationen vom Vorstand und der Geschäftsstelle verfügbar! <% else i=0 topicVgl="" While Not RS.EOF i=i+1 topic = RS("topicID") Dat = RS("Dat") Bezeichnung = RS("Bezeichnung") ItemID = RS("ID") ftext= RS("ftext") email= RS("email") www= RS("www") list= RS("list") If topicVgl<>topic Then %> <%=Dat%> <%=Bezeichnung%> <% end if topicVgl=topic if rs("IsBig") then zoom = "Klicken für Großdarstellung" Else If rs("IsBild") Then zoom = "Keine Großdarstellung verfügbar" Else zoom = "Keine Abbildungen verfügbar" End if end if If rs("IsBig") Then g_src = "Typ=Item&field=big&TypID=" & ItemID & "&u=" & RS("big_updates") & "&db=module" hrefnoscript = "href=" & Chr(34) & "bild.asp?" & g_src & Chr(34) hrefscript = "href=\" & Chr(34) & "javascript:Show('Bild" & i & "','','" & g_src & "');\" & Chr(34) & " onmouseover=\" & Chr(34) & "window.status='Klicken für Großdarstellung!';return true;\" & Chr(34) & " onmouseout=\" & Chr(34) & "window.status='';return true;\" & Chr(34) ersatz = "ohne_vorschau.gif" Else hrefnoscript ="name=dummy" hrefscript = "name=\" & Chr(34) & "dummy\" & Chr(34) ersatz = "ohne_abbildung.gif" End if If rs("IsBild") Then img_src = "" Else img_src = "" End if %> <% If rs("IsBig") OR rs("IsBild") Then %> <% End if %> <% If rs("IsBig") Then %> <% End if %> <%=img_src%> <% If email<>"" then %> <% End If %> <% If www<>"" then %> <% End If %> <% Response.Write(convert(ftext, list, "us10b", "txt10")) %> E-Mail: <%=email%> Internet: <%=www%> <% RS.MoveNext Wend End if RS.close Set RS = Nothing Call CloseDB %> zurück zur Übersicht - Aktuelles