<% strURL = Request.QueryString("url") Select Case lcase(strURL) Case "http://www.billpegram.com" Application.Lock Application("bp") = Application("bp") + 1 Application.Unlock Case "http://www.georgetown.edu" Application.Lock Application("gu") = Application("gu") + 1 Application.Unlock Case "http://www.kingsdominion.com" Application.Lock Application("fun") = Application("fun") + 1 Application.Unlock End Select Response.Redirect(strURL) %>