July 25, 2008 05:45pm pdt

Member Login

Top Experts

Yearly

1gwkg 11,600
2kshitij_ah... 9,460
3mrcoffee... 8,844
4ahoffmann 7,000
5logudotcom 6,104
6hielo 5,800
7jhoekman 5,200
8b0lsc0tt 5,000
8bluefezteam 5,000
10Ray_Pas... 4,600
11giltjr 4,500
12firehazrd 3,800
13fibo 3,575
14jason1178 3,500
15scrathcyboy 2,950

null

	[x] Attachment Details

What is the most efficient way for tracking web stats, xml or database?

Zones: Web Site Statistics Software / WebTrends, Active Server Pages (ASP), Extensible Markup Language (XML)

Tags: asp, cross browser, http://www.tahoehometours.com

I wrote an application that I use for my photography business. We use digital photos to create virtual tours and my clients want to know how many times each virtual tour is watched. I am using the script below with an access database to keep track but am concerned that the access database is not my best choice. I am considering upgrading from access to mysql or writing an xml document for each virtual tour to track hits and referers. Does anybody have any recommendations on xml verse database and/or upgrading from access to mysql?

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

           
           
             <strong><%= IncrementCount() %></strong>
<%
Function IncrementCount()
	' From adovbs.inc:
	Const adOpenKeyset = 1
	Const adLockPessimistic = 2
	Const adCmdText = &H0001
 
	' Local variables
	Dim conn
	Dim strFilename
	Dim strTourname
	Dim strDate
	Dim strSQL
	Dim rsCounter
	Dim iCount
	Dim strReferer
	Dim strIP_Address
 
	' Get filename and build SQL query
	strFilename = Request.ServerVariables("SCRIPT_NAME")
	strTourname = Request.ServerVariables("query_string")
	strTourname = Replace(strTourname,"tour=","")
	strDate = Date
	strReferer = Request.ServerVariables("HTTP_REFERER")
	strIP_Address = Request.ServerVariables("REMOTE_ADDR")
	
	
	Set conn=Server.CreateObject("ADODB.Connection")
	dbpath = Server.MapPath("stats/counter_db.mdb") 
	PWD = ""
	ConnString  = "Provider=MSDASQL;" & _
	"DRIVER={Microsoft Access Driver (*.mdb)};"& _
	"DBQ=" & dbpath & ";" & _
	"password=" & PWD & ";"
	conn.Open(ConnString)
	
	conn.execute "insert into log_referer (tour,page_name,referer,ip,log_date) values ('" & strTourname & _
		"','" & strFilename & _
		"','" &  strReferer & _
		"','" &  strIP_Address & _
		"','" &  strDate & "')"
	conn.Close
	Set conn = Nothing
	'IncrementCount = iCount
End Function
%>

           
         

Start your free trial to view this solution

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.0

Question Stats

Zone: Web Development

Question Asked By: tomwaclo

Solution Provided By: hielo

Participating Experts: 1

Solution Grade: A

Translate:

Loading Advertisement...

20080723-EE-VQP-34 / EE_QW_2_20070628