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