err.Clear 
	
	' Get Track ID
	strTrackID = trim(Request.QueryString("tid"))
	
	' Grab The Referrer
	strReferrer = Request.ServerVariables("HTTP_REFERER")
	strTempRef = CleanDomain(strReferrer)
		
	' This is where the requestor is wanting to go
	strDestinationUrl = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
	strTempDestin = CleanDomain(strDestinationUrl)

	' this means that the TrackID has NOT been logged for this session and
	' should be logged in the database.
	'if NOT lcase(Request.Cookies("777_777")) = lcase(trim(strTrackID)) then
		
		' If the urls are not the same then run the code
		if NOT (lcase(strTempef) = lcase(strTempDestin)) OR len(strTrackID) > 0 then 
			
			' First: Check For Valid TrackID
			' TrackID can be right, wrong or empty
			if NOT TrackIDIsValid(strTrackID, strRedirectUrl) then
			'strRedirectUrl = wt.TrackIDIsValid(strTrackID, strReferrer)
			'set wt = nothing
			'if len(strRedirectUrl) = 0 then
				' Grab the root url from the referrer
				if len(strReferrer) > 0 then 
					strDomainName = GetRootURL(strTempRef) 
				else
					' there was no referrer so it is anonymous
					strDomainName = "Anonymous"
				end if
				
				'#1 lookup domain name/referrer in the users table ex. Google.com
				if len(strDomainName) > 0 then
					intCurrentUserID = EnterDomainName(strDomainName, strReferrer)
				end if
				
				' We have a CurrentUserID now.
				 
				'#2 Look up the Destination url in TheDestinations table first; Return the ID
				if instr(1, strDestinationUrl, strNameOfTrackingPage) = 0 then
					' returns the id of: ex. CoralRidgeHour = 2
					intDestinationID = GetDestinationUrlId(strDestinationUrl)
				end if
				
				' We have a DestinationID now.
				
				'#3 Check if the intCurrentUserID and intDestinationID EXIST in
				' TheUserDetails table. If so, then use the TRACKID. 
				strTrackID = CheckForTrackID(intCurrentUserID, intDestinationID)
				
				' no TrackID found so create one.
				if len(strTrackID) = 0 then
					strTrackID = GetNewGUID
					call EnterNewTrackIDForDestinationID(strTrackID, intCurrentUserID, intDestinationID)
				end if

				call LogHit(strTrackID, strReferrer, intCurrentUserID, intDestinationID)
				
				' Away we go!
				Set conn = nothing
				' Set cookie so that when other pages that are including this code, the hit 
				' won't be re-logged.
				Response.Cookies("777_777") = strTrackID
			else
				Set conn = nothing
				Response.Cookies("777_777") = strTrackID
				Response.Redirect strRedirectUrl
			end if
		
		
		end if
		
		
		
	'end if

quote:

---

The fastest methods, in order, would be:

1. Set-based INSERT & UPDATE statements that affect the tables;
2. SQL Server procedures using cursors;
3. ActiveX script

If your current VB code is accessing the database via the user-defined functions, this will add a great deal of unnecessary overhead. Cursors in a sproc would be faster, but doing everything as set-based ops would be faster still. Again, if this is only affecting data, there's really no need for ActiveX at all. And there's no need to use cursors to move from one ID/URL/Log record to the next, testing each one individually, when you can test the entire set in one shot.

---

quote:

---

For each IP address, it finds the minimum ID number for that day's data...which translates to the "first" or "earliest" requested page. By JOINing this back to the WebLog table on the ID column, the UPDATE statement will change ONLY those ID's, representing the rows you want to modify. This is far more efficient than using a cursor to navigate the table and perform updates on a row-by-row basis.

---

UPDATE as W 
SET PageRequested=PageRequested + '?tid=somenumber' 
FROM WebLog as W INNER JOIN 
(SELECT IP, Min(ID) AS MinID FROM WebLog 
WHERE [Date]=(SELECT max([Date]) FROM WebLog) and CHARINDEX('tid=', PageRequested) = 0
GROUP BY IP) as Y 
ON W.ID=Y.MinID 

quote:

---

Although if you don't want those files included in this process, why not just DELETE their rows?

---