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>