<%@ Language=VBScript %>
>
<%
if session("berechtigungsklrooms") < 1 then
'nicht berechtigter Einstieg
Response.Redirect "default.asp"
end if
v_datum=""
v_datbis=""
v_zeit=""
v_titel=""
v_text=""
v_zusatztext=""
v_veranstalter=""
v_ort=""
v_veranstaltungsart=""
v_link=""
v_test=""
lngID = Request.QueryString("ID")
Set con = Server.CreateObject("ADODB.Connection")
con.open Application("conRooms")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rva = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM veranstaltungen WHERE ID=" & lngID, con
rva.Open "SELECT * FROM veranstaltungsarten ORDER BY veranstaltungsart",con
'bei Änderung
if not rs.EOF then
'Response.write "Veranstaltungsart" & rva("veranstaltungsart")
v_datum = rs("datum")
v_datbis = rs("datbis")
v_zeit=rs("zeit")
v_titel=rs("titel")
v_text=rs("text")
v_zusatztext=rs("zusatztext")
v_veranstalter=rs("veranstalter")
v_ort=rs("ort")
v_veranstaltungsart=rs("veranstaltungsart")
v_link=rs("link")
end if
rs.Close
Set rs = Nothing
%>
Neuer Eintrag Anleitung
<%
if not Request.QueryString("FC") = "OK" then
%> Fehlercode: <%=Request.QueryString("FC")%> <%
end if
%>