001  <!-- Datenbank-Verbindung herstellen -->
002  <!--#include file="strconn.asp"-->
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 'adOpenKeyset
154   rs.Locktype = 3 'adLockOptimistic
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 'adOpenKeyset
298   rs.Locktype = 3 'adLockOptimistic
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 'adWhatever
391   rs.Locktype = 3 'adWhatever
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%>