Banner ad values not working properly.

malhyp · January 16th, 2006, 08:40 AM

Hi there, I have created a banner ad using the following code. When viewing the hits counter it works just perfectly. When I go back to check a day or even hours later the hit counters are set at 0 again. Seems to start again and then the hits dissapear later. Any suggestions what to look for?

<%
strURL = Request.Querystring("url")
Select Case lcase(strURL)

Case "http://www.wrox.com"
Application.Lock
Application("iWroxPress") = Application("iWroxPress") + 1
Application.Unlock

Case "http://www.wroxconferences.com"
Application.Lock
Application("iWroxConf") = Application("iWroxConf") + 1
Application.Unlock

End Select
Response.Redirect strURL
%>

<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="Administrator"
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
 If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
 (InStr(1,MM_authorizedUsers,Session("MM_UserAuthor ization"))>=1) Then
 MM_grantAccess = true
 End If
End If
If Not MM_grantAccess Then
 MM_qsChar = "?"
 If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
 MM_referrer = Request.ServerVariables("URL")
 if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
 MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
 Response.Redirect(MM_authFailedURL)
End If
%>
<HTML>
<HEAD>
<TITLE>Ad_Rotator_Hit_Viewer</TITLE>
<link href="css%20files/paragraph.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<table border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#ECECD7">
 <tr>
 <td colspan="4"><div align="center">
 Click-through's for Ad Rotator
 </div></td>
 </tr>
 <tr>
 <td>Business Name</td>
 <td>Ad Rotator Name</td>
 <td>Number of Click-thoughts</td>
 <td>Commencement Date</td>
 </tr>
 <tr>
 <td>Wrox International</td>
 <td>WroxPress</td>
 <td><%= Application("iWroxPress")%></td>
 <td>29th December 2005</td>
 </tr>
 <tr>
 <td>Wrox International</td>
 <td>WroxConferences</td>
 <td><%= Application("iWroxConf")%></td>
 <td>29th December 2005</td>
 </tr>

Imar · January 16th, 2006, 03:13 PM

Since you're using Application state for the counter, an application restart is probably the cause.

Possible reasons for a restart include:

1. Changed global.asa file.

2. global.asa accessed by anti-virus software.

3. Not 100% sure about this, but I think that also a restarting application pool in IIS might cause a restart. Not sure though...

Cheers,

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

malhyp · January 17th, 2006, 02:10 AM

Ok, I have disabled the antivirus for a few days to see what happens. Also what did you mean by changed global.asa file. I have included the code below if it helps. I never go into the global.asa fild to alter or add anything. How would I check or stop application pools stopping and restarting? Just so that I can check that it migh be the cause.

<script language="vbscript" runat="server">
 Sub Session_OnStart
 Session("StartTime") = Now()
 Application.Lock
 Application("TotalNumberOfUsers") = _
 Application("TotalNumberOfUsers") + 1
 Application("CurrentNumberOfUsers") = _
 Application("CurrentNumberOfUsers") + 1
 Application.Unlock
 End Sub

 Sub Session_OnEnd
 Application.Lock
 Application("CurrentNumberOfUsers") = _
 Application("CurrentNumberOfUsers") - 1
 Application.Unlock
 End Sub

 Sub Application_OnStart
 Application("EMailAddress") = "malhyp@optusnet.com.au"
 End Sub

 Sub Application_OnEnd

 End Sub
</script>

Again

Thanks

Imar · January 17th, 2006, 03:42 AM

With changed global.asa I mean whenever the document is saved.

When you make a change to the global.asa file and save it (with Dreamweaver, Notepad, whatever) the file is saved on disk, the application restarts and your app and session variables are gone.
Obviously, also reboots cause the application to restart.

What version of Windows are you using? XP doesn't allow you to create custom Application Pools, so the only thing you can do is change the Isolation level of your website in IIS on the Home tab.

On Server 2003, you can change the Isolation level on the Home tab of your web site to a custom Application Pool that you can create and configure through IIS as well.

For more information and more ideas, check out this thread: http://p2p.wrox.com/topic.asp?TOPIC_ID=12081

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.