Much better

hotcut — Sat, 18 Nov 2000 09:12:42 +0000

Hi,

I have been looking at the 2 scripts, and it seems like I can make it with that information...

I am not using netscape either, so if anyone is reading this, can you please tell me, what result it will give... Max thourght that it is :'Netscape' but I cant know, since I have no way of detecting it...
Can you help me out on this, someone?

Anyway, that ansvered 1 of my questions... I allso need to find the OS, I dont suppose that that will be hard, I think that you can just do it the same way, as the other...
I think that I will store the OS in 2 variables, one called PC, and one called MAC
What exactly shall I search for, when I want to find out weather it is a mac? Can I be that lucky, so that I can just split it up after the word "mac"??

Anyway, thanks for you help
-Casper

Mark Hensler — Sat, 18 Nov 2000 03:29:27 +0000

this will have serveral steps.
Step 1:
Query your DB and get the current number for each browser.
Step 2:
Detect the browser in use, and increment the number.
Step 3:
Put the numbers back into the DB.

From where I'm standing, there is no need to store the browser or OS in a var. Just 'look' for them in the HTTP_USER_AGENT and increment. I made two codes. The first is mine. The second is what I think you'll need to use Peter's code.

I'll let you decide how you set up your DB, and put the value into vars. So I'll start my code with those vars.

<%
'STEP 1 will return vars like this:
'IE = count for Internet Explorer
'NN = count for Netscape
'Other = count for everything else (duh)

'STEP 2
UserAgent = Request.ServerVariables("HTTP_USER_AGENT") 
If InStr(1,UserAgent, "MSIE") <> 0 Then
    'NOTE this will catch "MSIE 5.0" and "MSIE 5.5"
    IE = IE + 1
ElseIf InStr(1,UserAgent, "Netscape") <> 0 Then
    'I don't use NN so I'm guessing that it returns 'Netscape' something
    NN = NN + 1
Else
    Other = Other + 1
End If

'STEP 3 will put the vars back into the DB
SQLstmt = "UPDATE ...
%>

<%
'STEP 1 will return vars like this:
'IE = count for Internet Explorer
'NN = count for Netscape
'Other = count for everything else (duh)

'STEP 2
UserAgent = Request.ServerVariables("HTTP_USER_AGENT") 

UserAgentLength = Len(UserAgent) 
FindFirstSplit = CInt(InStr(1,UserAgent,";")) + 1 
FindSecondSplit = CInt(InStrRev(UserAgent,";")) + 1 
FirstLength = CInt(FindSecondSplit - FindFirstSplit) - 1 
SecondLength = CInt(UserAgentLength - FindSecondSplit) 
ExtractBrowser = Mid(UserAgent,FindFirstSplit,FirstLength) 
ExtractOS = Mid(USerAgent,FindSecondSplit,SecondLength) 

If InStr(1,ExtractBrowser, "MSIE") <> 0 Then
    'NOTE this will catch "MSIE 5.0" and "MSIE 5.5"
    IE = IE + 1
ElseIf InStr(1,ExtractBrowser, "Netscape") <> 0 Then
    'I don't use NN so I'm guessing that it returns 'Netscape' something
    NN = NN + 1
Else
    Other = Other + 1
End If

'STEP 3 will put the vars back into the DB
SQLstmt = "UPDATE ...
%>

Notice that whether the 'browser' is put into an array or not, you have to 'look' for the browser? You can't just say if ExtractBrowser = "MSIE" Then because you'd have to check it against every variation of IE (MSIE 5.0, MSIE 5.5, etc.).

If I'm wrong, let me know. There may well be an easier way of doing this.

hotcut — Fri, 17 Nov 2000 19:30:18 +0000

Quote: Originally posted by Max Albert
unless your going to spit out the values to the visitor, your going to have to evaluate the value of the vars everytime you want to use them.
So, intead of evaluating a custom var, I like to evaluate the environmental var.
that saves me the lines of code that it took you to put the values into custom vars.

Make sense?

ehhh... no

As I said before, I want to make a statistik counter.
I want to make the page save the different OS-, and browser-types into a database.
So what I need is just to put it all into variables, and then put them into the database.

I conclude that Peter's solution will be the most propper one for my need.

The problem is then... How do I make the script, so that it will deteckt weather the user is using netscape, microsoft, or other.

Example:

I am using netscape.
I have 3 variables.
1: dim netscape
2: dim microsoft
3: dim other

Then I want the value of the variables (in my example) to be:
netscape = 1
microsoft = 0
other = 0

etc...

So that I will store the data in 3 variables, like that... I think that you should use something like

if browser <> microsoft AND browser <> netscape then
netscape = 0
microsoft = 0
other = 1

But in realaty, that wont work... Can you please tell me how to do that?

Sincere
-Casper

Mark Hensler — Fri, 10 Nov 2000 03:19:09 +0000

unless your going to spit out the values to the visitor, your going to have to evaluate the value of the vars everytime you want to use them.
So, intead of evaluating a custom var, I like to evaluate the environmental var.
that saves me the lines of code that it took you to put the values into custom vars.

Make sense?

Peter J. Boettcher — Thu, 09 Nov 2000 19:14:28 +0000

Max,

Our code is totally different, you're searching the HTTP_USER_AGENT for a match whereas I am extracting the browser and OS information and storing them in variables.

If I just wanted to do detection then your code makes sense, but from my interpretation of hotcut's last post it sounded like he wanted to separate and store the values not just detect which browser or OS.

Regards,
Peter J. Boettcher

Mark Hensler — Thu, 09 Nov 2000 18:54:14 +0000

I would have done it this way:

UserAgent = Request.ServerVariables("HTTP_USER_AGENT")

If InStr(1,UserAgent, "Windows") <> 0 Then
    'do something
ElseIf InStr(1,UserAgent, "anotherOS") <> 0 Then
    'do something else
Else
    'do some generic thing
End If

If InStr(1,UserAgent, "MSIE 5") <> 0 Then
    'NOTE this will catch "MSIE 5.0" and "MSIE 5.5"
    'do something
ElseIf InStr(1,UserAgent, "Netscape") <> 0 Then
    'I don't use NN so I'm guessing that it returns 'Netscape' something
    'do something else
Else
    'do something generic
End If

I don't have ASP support at home, so I'll have to play with it elsewhere. Anyway, at least the User Agent should work.

Peter J. Boettcher — Thu, 09 Nov 2000 17:21:00 +0000

hotcut,

The following code should work:

<?php
    UserAgent = Request.ServerVariables("HTTP_USER_AGENT") 
    
    UserAgentLength = Len(UserAgent)
    FindFirstSplit = CInt(InStr(1,UserAgent,";")) + 1
    FindSecondSplit = CInt(InStrRev(UserAgent,";")) + 1
    FirstLength = CInt(FindSecondSplit - FindFirstSplit) - 1
    SecondLength = CInt(UserAgentLength - FindSecondSplit)
    ExtractBrowser = Mid(UserAgent,FindFirstSplit,FirstLength)
    ExtractOS = Mid(USerAgent,FindSecondSplit,SecondLength)

Response.Write "The borwser is: " & ExtractBrowser & "<br>"
Response.Write "The OS is: " & ExtractOS
?>

Regards,
Peter J. Boettcher

I knew it!

hotcut — Thu, 09 Nov 2000 15:59:07 +0000

Once again, it was you two guys, Mwx and Peter that helped me out my problem

I think that I can use the code you gave me, to set up a good statistics counter... Thanks for that...

Just 1 little question:

You said that the line:
Request.ServerVariables("HTTP_USER_AGENT")

should return the users browser, and OS, but how do I then split it up, so that it will give me each of that information, in seperate variables... That would make it easyer to manage in a database, if I could that...
That was probably just a silly question, but Iam sure that you can ansver the question A ZAP

Many thanks
Casper

Peter J. Boettcher — Thu, 09 Nov 2000 13:53:04 +0000

Max,

Thanks for reminding me about HTTP_USER_AGENT, I use it all the time but I forgot that it also reports the user's OS (if it can). Regarding DATE_LOCAL, it doesn't seem to return any values for me (blank), I've tried using it as a server variable and a local variable with no luck.

Hotcut,

This code:

Request.ServerVariables("HTTP_USER_AGENT")

will return the users browser and OS you will just have to parse it.

Regards,
Peter J. Boettcher

Mark Hensler — Thu, 09 Nov 2000 07:56:12 +0000

this really isn't such a bad solution. I've used it before at work, and the users can't even tell that it has happened.
Check the code... I'm just making this up really quick.

<html><body>
<form name="myVars" action="your.asp" method=POST>
&lt;script language=javascript&gt;
<!--
// print the vars you want
document.write "<input type=hidden name=screen_width value='"+screen.width+"'>";
document.write "<input type=hidden name=screen_height value='"+screen.height+"'>";
document.write "<input type=hidden name=screen_color value='"+screen.colorDepth+"'>";
//so on and so forth

// now submit them!
myVars.submit();
-->
&lt;/script&gt;
</for>
</body></html>

I never new about colorDepth. Live And Learn!

Quick 'Qs'...
I'm reading (from an ASP book) that 'DATE_LOCAL' will return the 'local time zone'. IS that on the server or client?

Apache has a var 'HTTP_USER_AGENT', and a request var 'User-Agent', both return this for me: 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)'. If you can get something like this with IIS, you could use inStr(1,browserVar, "Windows") to get a true/false.

Anyway, good luck!