001  <%
002  Response.Expires=0
003  Response.AddHeader "Pragma","no-cache"
004  Response.AddHeader "cache-control", "no-store"
005  Set conn = Server.CreateObject("ADODB.Connection")
006  strConn = "Driver={Microsoft Access Driver (*.mdb)};DriverID=25;DBQ="
007  strConn = strConn & Server.MapPath("newsticker.mdb")
008  strConn = strConn & ";FIL=MS Access;MaxBufferSize=512;PageTimeout=5;"
009  conn.Open strConn
010  %>

011  <html>
012  <head>
013   <title>Newsticker - Administration</title>
014  <script language="JavaScript">
015  <!--
016  function new_submit() {
017   document.news_form.form_action.value = "new"
018   document.news_form.submit();
019  }
020  function delete_submit() {
021  if(document.news_form.id.selectedIndex==-1)
022  
023   {
024   alert("Sie haben keinen Eintrag gewählt!");
025   }
026  
027  else
028   {
029  
030   Check = confirm("Soll der Eintrag wirklich gelöscht werden?");
031  if (Check == false)
032   {
033   document.news_form.form_action.value = "back"
034   document.news_form.submit();
035   }
036  else
037   document.news_form.form_action.value = "del"
038   document.news_form.submit();
039  
040  }}
041  function change_submit() {
042  if(document.news_form.id.selectedIndex==-1)
043  
044   {
045   alert("Sie haben keinen Eintrag gewählt!");
046   }
047  
048  else
049   {
050   document.news_form.form_action.value = "chg"
051   document.news_form.submit();
052  
053  }}
054  function submit_params(){
055  tickerbreite=document.params_form.tickerbreite.value;
056  tickerbreite=Number(tickerbreite);
057  if(isNaN(tickerbreite))
058   {
059   alert("Sie haben für die Tickerbreite keine Zahl eingegeben!");
060   }
061  else
062   {
063   tickerhoehe=document.params_form.tickerhoehe.value;
064   tickerhoehe=Number(tickerhoehe);
065   if(isNaN(tickerhoehe))
066   {
067   alert("Sie haben für die Tickerhöhe keine Zahl eingegeben!");
068   }
069   else
070   {
071   geschwindigkeit=document.params_form.geschwindigkeit.value;
072   geschwindigkeit=Number(geschwindigkeit);
073   if(isNaN(geschwindigkeit))
074   {
075   alert("Sie haben für die Geschwindigkeit keine Zahl eingegeben!");
076   }
077   else
078   {
079   anzahlangezeigt=document.params_form.anzahlangezeigt.value;
080   anzahlangezeigt=Number(anzahlangezeigt);
081   if(isNaN(anzahlangezeigt))
082   {
083   alert("Sie haben für die Anzahl der gezeigten Einträge keine Zahl eingegeben!");
084   }
085   else
086   {
087   document.params_form.submit();
088   }
089   }
090   }
091   }
092  }
093  // -->
094  </script>
095  </head>
096  <body>
097  <table width="480" border="0" align="center" style="border-bottom: 1px solid;border-left: 1px solid;border-right: 1px solid;border-top: 1px solid;">
098  <tr>
099   <td colspan="3" align="center" bgcolor="#0000FF">
100   <font size="4" face="Arial" color="#FFFFFF"><b>Newsticker - Administration</b></font>
101   </td>
102   <form name="news_form" method="GET" action="logik.asp">
103  </tr>
104  <tr>
105   <td colspan="3"><br></td>
106  </tr>
107  <tr>
108   <td colspan="3" bgcolor="#FEF8E0">
109   <font size="2" face="Arial" color="#000000"><b>Newsticker - Einträge</b></font>
110   </td>
111  </tr>
112  <tr>
113   <td colspan="3"><br></td>
114  </tr>
115  <tr>
116   <td width="67"><font face="Arial" size="2"><b>sichtbar</b></font></td>
117   <td width="155"><font face="Arial" size="2"><b>Datum / Uhrzeit</b></font></td>
118   <td width="258"><font face="Arial" size="2"><b>Titel</b></font></td>
119  </tr>
120  </tr>
121  <tr>
122   <td colspan=3>
123   <select name="id" size=10 style="font-family:Courier New;font-size:9pt;width:480px">
124   <%
125   strSQL = "SELECT * FROM news order by id desc"
126   Set rs = conn.Execute(strSQL)
127   Do While Not(rs.EOF)
128   response.write "<option value='" & rs("id") & "'>"
129   if rs("eintraganzeigen") = True then
130   response.write "    x    "
131   else
132   response.write "    -    "
133   end if
134   response.write rs("datum") & "   "
135   ueberschrift=rs("ueberschrift")
136   uelaenge=len(ueberschrift)
137   if uelaenge > 30 then
138   response.write left(ueberschrift,30) & "..."
139   else
140   response.write ueberschrift
141   for i = 1 to (33-uelaenge)
142   response.write " "
143   next
144   end if
145   rs.MoveNext
146   Loop
147   rs.Close
148   %>

149   </select>
150   </td>
151  </tr>
152  <tr>
153   <td colspan="3" align="center">
154   <input type="button" value="Neu" onclick="new_submit()">
155   <input type="button" value="Ändern" onclick="change_submit()">
156   <input type="button" value="Löschen" onClick="delete_submit()">
157   </td>
158   <input type="HIDDEN" name="form_action">
159  </tr>
160  </form>
161  <tr>
162   <td colspan="3">
163   <br><br>
164   </td>
165  </tr>
166  <tr>
167   <td colspan="3" bgcolor="#FEF8E0">
168   <font size="2" face="Arial" color="#000000"><b>Newsticker - Parameter</b></font>
169   </td>
170  </tr>
171  <tr>
172   <td colspan="3">
173   <br>
174   </td>
175  </tr>
176  <tr>
177   <form method="GET" action="logik.asp" name="params_form">
178   <td colspan="3">
179   <%strSQL = "SELECT * FROM settings"
180   Set rs = conn.Execute(strSQL)%>

181   <table width="480" border="0" cellspacing="0" cellpadding="0">
182   <tr>
183   <td><font face="Arial" size="2"><b>Tickerbreite:</b></font></td>
184   <td><font face="Arial" size="2"><b>Tickerhöhe:</b></font></td>
185   <td><font face="Arial" size="2"><b>Geschwindigkeit:</b></font></td>
186   <td><font face="Arial" size="2"><b>Gezeigte Einträge:</b></font></td>
187   </tr>
188   <tr>
189   <td>
190   <input type="text" size="5" VALUE="<%=rs("tickerbreite")%>" name="tickerbreite" id="tickerbreite">
191   <font face="Arial" size="2">px</font>
192   </td>
193   <td>
194   <input type="text" size="5" VALUE="<%=rs("tickerhoehe")%>" name="tickerhoehe" id="tickerhoehe">
195   <font face="Arial" size="2">px</font>
196   </td>
197   <td>
198   <input type="text" size="5" VALUE="<%=rs("geschwindigkeit")%>" name="geschwindigkeit" id="geschwindigkeit">
199   </td>
200   <td>
201   <input type="text" size="5" VALUE="<%=rs("anzahlangezeigt")%>" name="anzahlangezeigt" id="anzahlangezeigt"><input type="hidden" name="form_action" value="chg_params">
202   </td>
203   </tr>
204   <tr>
205   <td colspan="4" align="center">
206   <br>
207   <input type="button" value="Parameter ändern" OnClick="submit_params()">
208   </td>
209   </tr>
210   </table>
211   <%
212   rs.Close
213   conn.Close
214   %>

215   </form>
216   </td>
217  </tr>
218  </table>
219  </body>
220  </html>