001 <%
002 Form_action=Request.Querystring("Form_action")
003 id=Request.Querystring("id")
004 tickerbreite=Request.Querystring("tickerbreite")
005 tickerhoehe=Request.Querystring("tickerhoehe")
006 geschwindigkeit=Request.Querystring("geschwindigkeit")
007 anzahlangezeigt=Request.Querystring("anzahlangezeigt")
008 %>
009 <html>
010 <%
011 Function HtmlEncode(ByVal eingabe)
012 eingabe = Server.HtmlEncode(eingabe)
013 HtmlEncode = Replace(eingabe, vbCrlf, "<br>")
014 End Function
015
016 Function HtmlDecode(ByVal eingabe)
017 eingabe=Replace(eingabe,"<br>",vbcrlf)
018 eingabe=Replace(eingabe,"<",chr(60))
019 eingabe=Replace(eingabe,">",chr(62))
020 HtmlDecode=Replace(eingabe,"´",chr(39))
021 End Function
022 If ((form_action="chg") And (id = "")) Or ((form_action="del") And (id = "")) Or ((form_action="chg_save") And id="") Or ((form_action="chg_params") And ((tickerbreite="") Or (tickerhoehe="") Or (geschwindigkeit="") Or (anzahlangezeigt=""))) Or (form_action="") Then
023 %>
024 <head>
025 <title>Newsticker-Administration - Fehler</title>
026 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
027 <tr>
028 <td align="center" bgcolor="#0000FF">
029 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Fehler</b></font>
030 </td>
031 </tr>
032 <tr>
033 <td>
034 <table>
035 <tr>
036 <td>
037 <font face="Arial" size="2"><b><br>Es ist ein Fehler aufgetreten.<br>Folgende Ursachen sind möglich:<br><br>1. Kein JavaScript aktiviert und kein Eintrag ausgewählt - aktivieren Sie JavaScript, um diesen Fehler zu vermeiden!<br><br>2. Diese Datei wurde als URL aufgerufen - bitte rufen Sie diese Datei ausschließlich über die Datei <a href="admin.asp">admin.asp</a> auf!<br><br>3. Sie haben bei den Parametern für den Newsticker keine Werte angegeben!<br><br></b></font>
038 </td>
039 </tr>
040 </table>
041 </td>
042 </tr>
043 <tr>
044 <td align="center" bgcolor="#FF0000">
045 <font face="Arial" size="4" color="#FFFFFF"><b>Beim Speichern ist ein Fehler aufgetreten!</b></font>
046 </td>
047 </tr>
048 </table>
049 <%else%>
050 <%
051 Set Conn = Server.CreateObject("ADODB.Connection")
052 strConn = "Driver={Microsoft Access Driver (*.mdb)};DriverID=25;DBQ="
053 strConn = strConn & Server.MapPath("newsticker.mdb")
054 strConn = strConn & ";FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"
055 Conn.Open strConn
056 Select Case Form_action
057 Case "new"%>
058 <head>
059 <title>Neuen Eintrag erstellen</title>
060 </head>
061 <body>
062 <Form action="logik.asp">
063 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
064 <tr>
065 <td align="center" bgcolor="#0000FF">
066 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Neuen Eintrag erstellen</b></font>
067 </td>
068 </tr>
069 <tr>
070 <td>
071 <table>
072 <tr>
073 <td>
074 <%datum=Now()%>
075 <font face="Arial" size="2"><b>Datum / Uhrzeit des Eintrags:</b></font>
076 </td>
077 <td>
078 <Select name="tag">
079 <%
080 For i = 1 To 31
081 Response.Write("<OPTION VALUE=" & i)
082 If i=Day(datum) Then Response.Write(" SELECTED")
083 Response.Write(">")
084 Response.Write(i)
085 Next
086 Response.Write("</SELECT><SELECT NAME=monat>")
087 For i = 1 To 12
088 Response.Write("<OPTION VALUE=" & i)
089 If i=Month(datum) Then Response.Write(" SELECTED")
090 Response.Write(">")
091 Response.Write(i)
092 Next
093 Response.Write("</SELECT>")
094 newdate=DateAdd("yyyy",2,datum)
095 newYear=Year(newdate)
096 Response.Write("<SELECT NAME=jahr>")
097 For i = (Year(datum)) To newYear
098 Response.Write("<OPTION VALUE=" & i)
099 If i=Year(datum) Then Response.Write(" SELECTED")
100 Response.Write(">")
101 Response.Write(i)
102 Next
103 Response.Write("</SELECT>")
104 Response.Write(" ")
105 Response.Write("<SELECT NAME=stunde>")
106 For i = 0 To 23
107 Response.Write("<OPTION VALUE=" & i)
108 If i=Hour(datum) Then Response.Write(" SELECTED")
109 Response.Write(">")
110 Response.Write(i)
111 Next
112 Response.Write("</SELECT><b>:</b><SELECT NAME=Minute>")
113 For i = 0 To 59
114 Response.Write("<OPTION VALUE=" & i)
115 If i=Minute(datum) Then Response.Write(" SELECTED")
116 Response.Write(">")
117 Response.Write(i)
118 Next
119 %>
120 </Select>
121 </td>
122 </tr>
123 <tr>
124 <td>
125 <font face="Arial" size="2"><b>Überschrift:</b></font>
126 </td>
127 <td>
128 <input type=text name="ueberschrIft" size=40 value="">
129 </td>
130 </tr>
131 <tr>
132 <td valign="TOP">
133 <font face="Arial" size="2"><b>Text:</b></font>
134 </td>
135 <td>
136 <textarea cols="30" rows="10" name="text"></textarea>
137 </td>
138 </tr>
139 <tr>
140 <td>
141 <font face="Arial" size="2"><b>Link:</b></font>
142 </td>
143 <td>
144 <input type=text name="link" size=40 value="">
145 </td>
146 </tr>
147 <tr>
148 <td>
149 <font face="Arial" size="2"><b>Link-Target:</b></font>
150 </td>
151 <td>
152 <input type=text name="link_target" size=40 value="">
153 </td>
154 </tr>
155 <tr>
156 <td>
157 <font face="Arial" size="2"><b>Eintrag sichtbar:</b></font>
158 </td>
159 <td>
160 <input type="radio" name="eintraganzeigen" value="True" checked>
161 <font face="Arial" size="2">Ja </font>
162 <input type="radio" name="eintraganzeigen" value="False">
163 <font face="Arial" size="2">Nein</font>
164 </td>
165 </tr>
166 <input type="hidden" name="Form_action" value="new_save">
167 <tr>
168 <td align="right">
169 <input type="button" value="Eintrag speichern" onClick="submit()">
170 </td>
171 <td>
172 <input type="reset" value="Eintrag verwerfen">
173 </td>
174 </tr>
175 </table>
176 </td>
177 </tr>
178 </table>
179 </Form>
180 <% Case "new_save"%>
181 <head>
182 <title>Eintrag speichern</title>
183 </head>
184 <%
185 ueberschrIft=HtmlEncode(Request.Querystring("ueberschrIft"))
186 text=HtmlEncode(Request.Querystring("text"))
187 link=HtmlEncode(Request.Querystring("link"))
188 link_target=HtmlEncode(Request.Querystring("link_target"))
189 eintraganzeigen=Request.Querystring("eintraganzeigen")
190 datum=Request.Querystring("tag") & "." & Request.Querystring("monat") & "." & Request.Querystring("jahr") & chr(32) & Request.Querystring("stunde") & ":" & Request.Querystring("Minute") & ":00"
191 datum=CDate(datum)
192 If link = "" Then link = Null
193 If link_target = "" Then link_target = Null
194 If (ueberschrIft = "") Or (text = "") Then
195 %>
196 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
197 <tr>
198 <td align="center" bgcolor="#0000FF">
199 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Neuen Eintrag speichern</b></font>
200 </td>
201 </tr>
202 <tr>
203 <td>
204 <table>
205 <tr>
206 <td>
207 <font face="Arial" size="2"><b><br>Sie haben nicht alle benötigten Felder (ÜberschrIft und Text) ausgefüllt. Klicken Sie auf den Zurück-Button in Ihrem Browser, um die Eingaben zu ergänzen<br><br></b></font>
208 </td>
209 </tr>
210 </table>
211 </td>
212 </tr>
213 <tr>
214 <td align="center" bgcolor="#FF0000">
215 <font face="Arial" size="4" color="#FFFFFF"><b>Beim Speichern ist ein Fehler aufgetreten!</b></font>
216 </td>
217 </tr>
218 </table>
219 <%
220 Else
221 Set rs = Server.CreateObject ("ADODB.Recordset")
222 rs.Cursortype = 1
223 rs.Locktype = 3
224 rs.Open "SELECT * FROM news", StrConn
225 rs.AddNew
226 rs.Fields("ueberschrIft") = ueberschrIft
227 rs.Fields("text") = text
228 rs.Fields("eintraganzeigen") = eintraganzeigen
229 rs.Fields("datum") = datum
230 rs.Fields("link") = link
231 rs.Fields("link_target") = link_target
232 rs.Update
233 rs.Close
234 set rs = Nothing
235 Conn.Close
236 %>
237 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
238 <tr>
239 <td align="center" bgcolor="#0000FF">
240 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Neuen Eintrag speichern</b></font>
241 </td>
242 </tr>
243 <tr>
244 <td>
245 <table>
246 <tr>
247 <td nowrap>
248 <font face="Arial" size="2"><b>Datum / Uhrzeit des Eintrags:</b></font>
249 </td>
250 <td>
251 <font face="Arial" size="2"><%=datum%></font>
252 </td>
253 </tr>
254 <tr>
255 <td>
256 <font face="Arial" size="2"><b>ÜberschrIft:</b></font>
257 </td>
258 <td>
259 <font face="Arial" size="2"><%=ueberschrIft%></font>
260 </td>
261 </tr>
262 <tr>
263 <td valign="TOP">
264 <font face="Arial" size="2"><b>Text:</b></font>
265 </td>
266 <td>
267 <font face="Arial" size="2"><%=text%></font>
268 </td>
269 </tr>
270 <tr>
271 <td>
272 <font face="Arial" size="2"><b>Link:</b></font>
273 </td>
274 <td>
275 <font face="Arial" size="2"><%=link%></font>
276 </td>
277 </tr>
278 <tr>
279 <td>
280 <font face="Arial" size="2"><b>Link-Target:</b></font>
281 </td>
282 <td>
283 <font face="Arial" size="2"><%=link_target%></font>
284 </td>
285 </tr>
286 <tr>
287 <td>
288 <font face="Arial" size="2"><b>Eintrag sichtbar:</b></font>
289 </td>
290 <td>
291 <%
292 If eintraganzeigen = "True" Then
293 Response.Write("<font face=Arial size=2>ja</font>")
294 Else
295 Response.Write("<font face=Arial size=2>nein</font>")
296 End If
297 %>
298 </td>
299 </tr>
300 <tr>
301 <td align="right"></td>
302 <td></td>
303 </tr>
304 </table>
305 </td>
306 </tr>
307 <tr>
308 <td align="center" bgcolor="#FF0000">
309 <font face="Arial" size="4" color="#FFFFFF"><b>Ihr Eintrag wurde gespeichert!</b></font>
310 </td>
311 </tr>
312 </table>
313 <%
314 End If
315 %>
316 </body>
317 <%
318 Case "chg"
319 strSQL = "SELECT * FROM news where int(id) = '" & id & "'"
320 Set rs = Conn.Execute(strSQL)
321 %>
322 <head>
323 <title>Eintrag ändern</title>
324 </head>
325 <body>
326 <Form action="logik.asp">
327 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
328 <tr>
329 <td align="center" bgcolor="#0000FF">
330 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Eintrag ändern</b></font>
331 </td>
332 </tr>
333 <tr>
334 <td>
335 <table>
336 <tr>
337 <td>
338 <font face="Arial" size="2"><b>ID:</b></font>
339 </td>
340 <td>
341 <font face="Arial" size="2"><%=rs.Fields("id")%></font>
342 </td>
343 </tr>
344 <tr>
345 <td>
346 <%
347 datum=rs.Fields("datum")
348 %>
349 <font face="Arial" size="2"><b>Datum des Eintrags:</b></font>
350 </td>
351 <td>
352 <Select name="tag">
353 <%
354 For i = 1 To 31
355 Response.Write("<OPTION VALUE=" & i)
356 If i=Day(datum) Then Response.Write(" SELECTED")
357 Response.Write(">")
358 Response.Write(i)
359 Next
360 Response.Write("</SELECT><SELECT NAME=monat>")
361 For i = 1 To 12
362 Response.Write("<OPTION VALUE=" & i)
363 If i=Month(datum) Then Response.Write(" SELECTED")
364 Response.Write(">")
365 Response.Write(i)
366 Next
367 Response.Write("</SELECT>")
368 newdate=DateAdd("yyyy",2,datum)
369 backdate=DateAdd("yyyy",-2,datum)
370 newYear=Year(newdate)
371 backYear=Year(backdate)
372 Response.Write("<SELECT NAME=jahr>")
373 For i = backYear To newYear
374 Response.Write("<OPTION VALUE=" & i)
375 If i=Year(datum) Then Response.Write(" SELECTED")
376 Response.Write(">")
377 Response.Write(i)
378 Next
379 Response.Write("</SELECT>")
380 Response.Write(" ")
381 Response.Write("<SELECT NAME=stunde>")
382 For i = 0 To 23
383 Response.Write("<OPTION VALUE=" & i)
384 If i=Hour(datum) Then Response.Write(" SELECTED")
385 Response.Write(">")
386 Response.Write(i)
387 Next
388 Response.Write("</SELECT><b>:</b><SELECT NAME=Minute>")
389 For i = 0 To 59
390 Response.Write("<OPTION VALUE=" & i)
391 If i=Minute(datum) Then Response.Write(" SELECTED")
392 Response.Write(">")
393 Response.Write(i)
394 Next%>
395 </Select>
396 </td>
397 </tr>
398 <tr>
399 <td>
400 <font face="Arial" size="2"><b>ÜberschrIft:</b></font>
401 </td>
402 <td>
403 <input type=text name="ueberschrIft" size=40 value="<%Response.Write HtmlDecode(rs.Fields("ueberschrIft"))%>">
404 </td>
405 </tr>
406 <tr>
407 <td valign="TOP">
408 <font face="Arial" size="2"><b>Text:</b></font>
409 </td>
410 <td>
411 <textarea rows=10 cols=30 name="text"><%text=rs.Fields("text")%><%If text <> "" Then Response.Write HtmlDecode(text)%></textarea>
412 </td>
413 </tr>
414 <tr>
415 <td>
416 <font face="Arial" size="2"><b>Link:</b></font>
417 </td>
418 <td>
419 <input type=text name="link" size=40 value="<%If rs.Fields("link") <> "" Then Response.Write HtmlDecode(rs.Fields("link"))%>">
420 </td>
421 </tr>
422 <tr>
423 <td>
424 <font face="Arial" size="2"><b>Link-Target:</b></font>
425 </td>
426 <td>
427 <input type=text name="link_target" size=40 value="<%If rs.Fields("link_target") <> "" Then Response.Write HtmlDecode(rs.Fields("link_target"))%>">
428 </td>
429 </tr>
430 <tr>
431 <td>
432 <font face="Arial" size="2"><b>Eintrag sichtbar:</b></font>
433 </td>
434 <td>
435 <%
436 If rs("eintraganzeigen")=True Then
437 Response.Write("<input type=" & Chr(34) & "radio" & Chr(34) & " name=" & Chr(34) & "eintraganzeigen" & Chr(34) & " value=" & Chr(34) & "true" & Chr(34) & " checked") & ">"
438 Response.Write("<font face=" & Chr(34) & "Arial" & Chr(34) & "size=" & Chr(34) & "2" & Chr(34) & ">Ja </font>")
439 Response.Write("<input type=" & Chr(34) & "radio" & Chr(34) & " name=" & Chr(34) & "eintraganzeigen" & Chr(34) & " value=" & Chr(34) & "False" & Chr(34) & ">")
440 Response.Write("<font face=" & Chr(34) & "Arial" & Chr(34) & "size=" & Chr(34) & "2" & chr(34) & ">Nein</font>")
441 Else
442 Response.Write("<input type=" & Chr(34) & "radio" & Chr(34) & " name=" & Chr(34) & "eintraganzeigen" & Chr(34) & " value=" & Chr(34) & "true" & Chr(34) & ">")
443 Response.Write("<font face=" & Chr(34) & "Arial" & Chr(34) & "size=" & Chr(34) & "2" & Chr(34) & ">Ja </font>")
444 Response.Write("<input type=" & Chr(34) & "radio" & Chr(34) & " name=" & Chr(34) & "eintraganzeigen" & Chr(34) & " value=" & Chr(34) & "False" & Chr(34) & " checked" & ">")
445 Response.Write("<font face=" & Chr(34) & "Arial" & Chr(34) & "size=" & Chr(34) & "2" & Chr(34) & ">Nein</font>")
446 End If
447 %>
448 <input type="hidden" name="Form_action" value="chg_save">
449 <input type="hidden" name="id" value="<%=id%>">
450 </td>
451 </tr>
452 <tr>
453 <td>
454 <input type="button" value="Änderungen speichern" onClick="submit()">
455 </td>
456 <td>
457 <input type="button" value="Änderungen verwerfen">
458 </td>
459 </tr>
460 </table>
461 </td>
462 </tr>
463 </table>
464 </Form>
465 <%
466 Case "chg_save"
467 %>
468 <head>
469 <title>Änderungen speichern</title>
470 </head>
471 <%
472 ueberschrIft=HtmlEncode(Request.Querystring("ueberschrIft"))
473 text=HtmlEncode(Request.Querystring("text"))
474 link=HtmlEncode(Request.Querystring("link"))
475 link_target=HtmlEncode(Request.Querystring("link_target"))
476 eintraganzeigen=Request.Querystring("eintraganzeigen")
477 datum=Request.Querystring("tag") & "." & Request.Querystring("monat") & "." & Request.Querystring("jahr") & chr(32) & Request.Querystring("stunde") & ":" & Request.Querystring("Minute") & ":00"
478 datum=CDate(datum)
479 If link = "" Then link = Null
480 If link_target = "" Then link_target = Null
481 If (ueberschrIft = "") Or (text = "") Then
482 %>
483 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
484 <tr>
485 <td align="center" bgcolor="#0000FF">
486 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Änderungen speichern</b></font>
487 </td>
488 </tr>
489 <tr>
490 <td>
491 <table>
492 <tr>
493 <td>
494 <font face="Arial" size="2"><b><br>Sie haben nicht alle benötigten Felder (ÜberschrIft und Text) ausgefüllt. Klicken Sie auf den Zurück-Button in Ihrem Browser, um die Eingaben zu ergänzen<br><br></b></font>
495 </td>
496 </tr>
497 </table>
498 </td>
499 </tr>
500 <tr>
501 <td align="center" bgcolor="#FF0000">
502 <font face="Arial" size="4" color="#FFFFFF"><b>Beim Speichern ist ein Fehler aufgetreten!</b></font>
503 </td>
504 </tr>
505 </table>
506 <%
507 Else
508 Set rs = Server.CreateObject ("ADODB.Recordset")
509 rs.Cursortype = 1
510 rs.Locktype = 3
511 rs.Open "SELECT * FROM news where int(id) = '" & id & "'", StrConn
512 rs.Fields("ueberschrIft") = ueberschrIft
513 rs.Fields("text") = text
514 rs.Fields("eintraganzeigen") = eintraganzeigen
515 rs.Fields("datum") = datum
516 rs.Fields("link") = link
517 rs.Fields("link_target") = link_target
518 rs.Update
519 rs.Close
520 Set rs = Nothing
521 Conn.Close
522 %>
523 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
524 <tr>
525 <td align="center" bgcolor="#0000FF">
526 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Änderungen speichern</b></font>
527 </td>
528 </tr>
529 <tr>
530 <td>
531 <table>
532 <tr>
533 <td nowrap>
534 <font face="Arial" size="2"><b>Datum / Uhrzeit des Eintrags:</b></font>
535 </td>
536 <td>
537 <font face="Arial" size="2"><%=datum%></font>
538 </td>
539 </tr>
540 <tr>
541 <td>
542 <font face="Arial" size="2"><b>ÜberschrIft:</b></font>
543 </td>
544 <td>
545 <font face="Arial" size="2"><%=ueberschrIft%></font>
546 </td>
547 </tr>
548 <tr>
549 <td valign="TOP">
550 <font face="Arial" size="2"><b>Text:</b></font>
551 </td>
552 <td>
553 <font face="Arial" size="2"><%=text%></font>
554 </td>
555 </tr>
556 <tr>
557 <td>
558 <font face="Arial" size="2"><b>Link:</b></font>
559 </td>
560 <td>
561 <font face="Arial" size="2"><%=link%></font>
562 </td>
563 </tr>
564 <tr>
565 <td>
566 <font face="Arial" size="2"><b>Link-Target:</b></font>
567 </td>
568 <td>
569 <font face="Arial" size="2"><%=link_target%></font>
570 </td>
571 </tr>
572 <tr>
573 <td>
574 <font face="Arial" size="2"><b>Eintrag sichtbar:</b></font>
575 </td>
576 <td>
577 <%
578 If eintraganzeigen = "True" Then
579 Response.Write("<font face=Arial size=2>ja</font>")
580 Else
581 Response.Write("<font face=Arial size=2>nein</font>")
582 End If
583 %>
584 </td>
585 </tr>
586 <tr>
587 <td align="right"></td>
588 <td></td>
589 </tr>
590 </table>
591 </td>
592 </tr>
593 <tr>
594 <td align="center" bgcolor="#FF0000">
595 <font face="Arial" size="4" color="#FFFFFF"><b>Ihr Eintrag wurde gespeichert!</b></font>
596 </td>
597 </tr>
598 </table>
599 <%
600 End If
601 %>
602 </body>
603 <%
604 Case "del"
605 %>
606 <head>
607 <title>Eintrag löschen</title>
608 </head>
609 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
610 <tr>
611 <td align="center" bgcolor="#0000FF">
612 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Eintrag löschen</b></font>
613 </td>
614 </tr>
615 <tr>
616 <td align="center" bgcolor="#FF0000">
617 <font face="Arial" size="4" color="#FFFFFF"><b>Der Eintrag wurde gelöscht!</b></font>
618 </td>
619 </tr>
620 </table>
621 <%
622 strSQL = "DELETE * FROM news WHERE int(id) = '" & id & "'"
623 Set rs = Conn.Execute(strSQL)
624 Case "back"
625 Response.Redirect "admin.asp"
626 Response.End
627 Case "chg_params"%>
628 <head>
629 <title>Parameter ändern</title>
630 </head>
631 <%
632 tickerbreite=Request.Querystring("tickerbreite")
633 tickerhoehe=Request.Querystring("tickerhoehe")
634 geschwindigkeit=Request.Querystring("geschwindigkeit")
635 anzahlangezeigt=Request.Querystring("anzahlangezeigt")
636 If (tickerbreite = "") Or (tickerhoehe = "") Or (geschwindigkeit = "") Or (anzahlangezeigt="") Then%>
637 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
638 <tr>
639 <td align="center" bgcolor="#0000FF">
640 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Parameter ändern</b></font>
641 </td>
642 </tr>
643 <tr>
644 <td>
645 <table>
646 <tr>
647 <td>
648 <font face="Arial" size="2"><b><br>Sie haben nicht alle benötigten Parameter-Felder ausgefüllt. Klicken Sie auf den Zurück-Button in Ihrem Browser, um die Eingaben zu ergänzen<br><br></b></font>
649 </td>
650 </tr>
651 </table>
652 </td>
653 </tr>
654 <tr>
655 <td align="center" bgcolor="#FF0000">
656 <font face="Arial" size="4" color="#FFFFFF"><b>Beim Speichern ist ein Fehler aufgetreten!</b></font>
657 </td>
658 </tr>
659 </table>
660 <%
661 Else
662 Set rs = Server.CreateObject ("ADODB.Recordset")
663 rs.Cursortype = 1
664 rs.Locktype = 3
665 rs.Open "SELECT * FROM settings", StrConn
666 rs.Fields("tickerbreite") = tickerbreite
667 rs.Fields("tickerhoehe") = tickerhoehe
668 rs.Fields("geschwindigkeit") = geschwindigkeit
669 rs.Fields("anzahlangezeigt") = anzahlangezeigt
670 rs.Update
671 rs.Close
672 Set rs = Nothing
673 Conn.Close
674 %>
675 <table width="480" border="0" align="center" style="border-botTom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-Top: 1px solid;">
676 <tr>
677 <td align="center" bgcolor="#0000FF">
678 <font face="Arial" size="4" color="#FFFFFF"><b>Newsticker-Administration - Parameter ändern</b></font>
679 </td>
680 </tr>
681 <tr>
682 <td>
683 <table>
684 <tr>
685 <td nowrap>
686 <font face="Arial" size="2"><b>Tickerbreite:</b></font>
687 </td>
688 <td>
689 <font face="Arial" size="2"><%=tickerbreite%></font>
690 </td>
691 </tr>
692 <tr>
693 <td>
694 <font face="Arial" size="2"><b>Tickerhöhe:</b></font>
695 </td>
696 <td>
697 <font face="Arial" size="2"><%=tickerhoehe%></font>
698 </td>
699 </tr>
700 <tr>
701 <td valign="TOP">
702 <font face="Arial" size="2"><b>Geschwindigkeit:</b></font>
703 </td>
704 <td>
705 <font face="Arial" size="2"><%=geschwindigkeit%></font>
706 </td>
707 </tr>
708 <tr>
709 <td>
710 <font face="Arial" size="2"><b>Anzahl der gezeigten Einträge:</b></font>
711 </td>
712 <td>
713 <font face="Arial" size="2"><%=anzahlangezeigt%></font>
714 </td>
715 </tr>
716 </table>
717 </td>
718 </tr>
719 <tr>
720 <td align="center" bgcolor="#FF0000">
721 <font face="Arial" size="4" color="#FFFFFF"><b>Ihr Eintrag wurde gespeichert!</b></font>
722 </td>
723 </tr>
724 </table>
725 <%
726 End If
727 %>
728 <%
729 End Select
730 %>
731 </body>
732 </html>
733 <%end if%>