% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim objConn, objApps, strQuery,strConnection, strID strID = Request.QueryString("Page") If strID = "" Then strID="Welcome" 'strID = Replace(strID,"/","",1,1) Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Application("Content_ConnectionString") strQuery = "SELECT * FROM ContentItems WHERE Page= " & "'" & strID & "'" Set objApps = objConn.Execute(strQuery) ' Check the access level required for this page If Session("Access") = "" OR Session("Access")=false Then Session("Access")=0 If objApps("AccessLevel") <> 0 AND (objApps("AccessLevel")> Session("Access") OR Session("Access")=0) Then ' user is not authorised Session("Destination")=Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING") Response.Redirect("/extranet/extranet_login.asp") End If %>
|
|||
<% Response.Write(objApps("Detail")) objApps.close objConn.close Set objApps = Nothing Set objConn = Nothing %> <% ' Code added 14/12/2004 for page hit counter Application.Lock Application("AllHits") = Application("AllHits") + 1 Application.Unlock Response.Write(Application("AllHits")) %> |
|||
|
|
|||
| View our Terms and Conditions Here | |||