% '-----write to log If Not Session("Admin") = "y" then Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso 'file string object Dim tso 'text string object Dim visitedpage Set fso = CreateObject("Scripting.FileSystemObject") Set tso = fso.OpenTextFile("\\nas2\hosting$\websites\mypacwest\pacwestalliance.com\content\cgi-bin\join.log", ForAppending, True) strlen = len(Request.ServerVariables("URL")) visitedpage = mid(Request.ServerVariables("URL"),19,strlen) tso.WriteLine "Visited-" & Request.ServerVariables("REMOTE_HOST") & "," & visitedpage & "," & Now() tso.Close Set tso = Nothing Set fso = Nothing End If '-----end write to log %>
![]() |
|
|
|
|
|
Home
|
Become A PWA Member PWA is an association of independent insurance agents in California providing the best possible advantages to its members:
Membership Benefits
Membership Requirements
Membership Information |
![]() Corporate Headquarters 5756 N Marks Ave #156 |
||
|
|
|
|
|
|
|
|
© 2008 PacWest Alliance Insurance Services, Inc. |
|