<%@ Language=VBScript %> > <% lngID = Request.QueryString("ID") Set con = Server.CreateObject("ADODB.Connection") con.open Application("conRooms") Set rs = Server.CreateObject("ADODB.Recordset") rs.open "SELECT * FROM veranstaltungen WHERE ID=" & lngID, con 'Anzeige gesamten Datensatz if not rs.EOF then %> <% end if rs.Close Set rs = Nothing con.Close Set con = Nothing %>

Datum:	<%=rs("Datum")%> - <%=rs("Datbis")%>
Titel:	<%if ""=("" & rs("link")) then %> <%=Server.HTMLEncode(rs("Titel"))%> <%else%> " target="_blank"><%=Server.HTMLEncode(rs("Titel"))%>   <%end if %>
Text:	<%=replace(Server.HTMLEncode(rs("Text")),vbCRLF," ")%>
Zusatztext:	<%=replace(Server.HTMLEncode(rs("Zusatztext")),vbCRLF," ")%>
zurück