<%@ EnableSessionState=False %>

ILT-Aktivitäten...

Hier finden Sie alle Informationen zu unseren Gruppentreffen und vieles mehr. Melden Sie sich bitte frühzeitig an. <% Call OpenDB ("tibet") sql = "SELECT Item.ID, Format([Item].[Datum],'Long Date') AS Dat, topic.Bezeichnung, 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)='activity')) " sql = sql & "ORDER BY Item.Datum DESC, topic.Bezeichnung, topic.Datum DESC, Item.ID; " 'Response.Write sql Set rs = cn.Execute(sql) If rs.eof Then %> Momentan sind keine Aktivitäten geplant! <% else i=0 BezVgl="" While Not RS.EOF i=i+1 ItemID = RS("ID") Dat = RS("Dat") title= RS("Bezeichnung") ftext= RS("ftext") email= RS("email") www= RS("www") list= RS("list") If BezVgl<>title & Dat Then %> <% If Dat<>"" Then %> <% End If %> <%=Dat%> <%=title%> <% end if BezVgl=title & Dat 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