<%@ Language=VBScript %>
<%
' plogin.asp hb/ec-logic
Option Explicit
Response.Buffer = false
Response.Expires = -1 ' very important to prevent client from caching
%>
Car Policy - Login
<%
' ---------------------------------------------------------------------
Function strQuote (strText)
strQuote = chr(34) & strText & chr(34)
End Function
' ---------------------------------------------------------------------
' FillPolicyList fills a multiple select html-list with known policies
' ----------------------------------------------------------------------
Sub FillPolicyList ()
DIM nameConn, RS, strSearch, strLine, i
i = 0
SET nameConn = Server.CreateObject("ADODB.Connection")
SET RS = Server.CreateObject("ADODB.RecordSet")
' try to find policies
nameConn.Open "DSN=" & Session("database") & ";UID=" & session("shopuser") &";PWD=" & session("shoppwd")
strSearch = "select distinct(policyname) from policy"
RS.Open strSearch, nameConn, adOpenStatic
Response.Write ("")
RS.Close
nameConn.Close
End Sub
%>
<%
' ############## main loop #################################
DIM nameConn, RS, strSearch, strLine, strID
if Len(Request.Form("go")) > 0 or Len(trim(Request.Querystring("id"))) > 0 then
if Len(Request.Form("go")) > 0 then
strID = Request.Form("policy")
else
strID = Request.Querystring("id")
end if
%>
<%
gcl.GclVar ("GclFile") = "a140.gcl"
SET nameConn = Server.CreateObject("ADODB.Connection")
SET RS = Server.CreateObject("ADODB.RecordSet")
' try to find policies
nameConn.Open "DSN=" & Session("database") & ";UID=" & session("shopuser") &";PWD=" & session("shoppwd")
strSearch = "select * from policy where policyname='" & strID & "'"
RS.Open strSearch, nameConn, adOpenStatic
While not RS.EOF
Response.Write ("
")
if RS("ptype") = "F" then
Response.Write ("Erzwinge: " & RS("pdescription") & "")
gcl.Force RS("pname"), RS("pvalue")
elseif RS("ptype") = "D" then
Response.Write ("Verbiete: " & RS("pdescription") & "")
gcl.Deny RS("pname"), RS("pvalue")
else
Response.Write ("Unbekannter Policytyp: " & RS("ptype") & ":")
end if
Response.Write ("
" & vbCrLf)
RS.MoveNext
wend
%>
Disclaimer: Alle Angaben und
Preise auf den folgenden Seiten sind unverbindliche Angaben. Diese
Seiten sollen unsere Konfigurationstechnologie demonstrieren und
nicht als Bestell- oder Angebotsgrundlage dienen. Alle Angaben zu
Preisen und Ausstattungen sind aus öffentlich zugängigen Materialien
entnommen (Stand Juni 2001). Mit dieser Policy konfigurieren...