%@ Language=VBScript %>
<%
' policylist.asp hb/ec-logic
Option Explicit
Response.Buffer = false
Response.Expires = -1 ' very important to prevent client from caching
%>
<%
' ############## main loop #################################
DIM nLine, strClass, strLine
DIM nameConn, RS, strSearch
SET nameConn = Server.CreateObject("ADODB.Connection")
SET RS = Server.CreateObject("ADODB.RecordSet")
nameConn.Open "DSN=" & Session("database") & ";UID=" & session("shopuser") &";PWD=" & session("shoppwd")
' open database
strSearch = "SELECT distinct(policyname) from policy order by policyname"
RS.Open strSearch, nameConn, adOpenStatic
' init
nLine = 0
%>
Liste vorhandener Policies |
| Policy hinzufügen |
| Name |
Aktion |
<%
WHILE NOT RS.EOF
IF nLine Mod 2 = 0 THEN
strClass = "clslistline"
ELSE
strClass = "clscolorline"
END IF
%>
| <%=RS("policyname")%> |
">Ändern,
">Löschen,
">Aktivieren
|
<%
nLine = nLine + 1
RS.MoveNext
wend
%>
|
<% 'cleanup
RS.Close
nameConn.Close
%>