InStr and non-case sensitive - Posted (1474 Views)
Senior Member
bobby131313
Posts: 1163
1163
I need to find any instance of Yandex regardless of case in "AffAgent" which is the user agent. Did some Googling and came up with the following but I don't think it's working.
Code:

Dim AffAgent : AffAgent = Request.ServerVariables("HTTP_USER_AGENT") 
If InStr(1, AffAgent, "Yandex", VBTextCompare) > 0 Then
Do something End If

Does it look like it should or did I google some bum info?
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
Forum Moderator
AnonJr
Posts: 5768
5768
It looks like it should... are you sure its not working? I ask only because I spent an hour today troubleshooting "missing" records that were missing because I mis-typed the date range...
As a side note, I tend to use <> 0 instead of > 0 - not that it should matter.
Posted
Senior Member
bobby131313
Posts: 1163
1163
are you sure its not working?

No, not positive. Just figured I'd check that first. This code is to intercept ignorant bots that follow affiliate links and send them through a non-affiliate link so my stats don't get skewed. One of my sites that usually get about 400 clicks a day to this particular affiliate is now at over 1,100 for today with about 4 hours left.
Guess I'll be going through some log files tomorrow. dead I may just have a new ignorant bot on my hands.
Thanks for your help!
Posted
Support Moderator
Doug G
Posts: 6493
6493
You can control whether instr does a case-sensitive comparison or not

http://msdn.microsoft.com/en-us/library/wybb344c(VS.85).aspx
======
Doug G
======
Computer history and help at www.dougscode.com
Posted
Support Moderator
Doug G
Posts: 6493
6493
Originally posted by Doug G
You can control whether instr does a case-sensitive comparison or not

http://msdn.microsoft.com/en-us/library/wybb344c(VS.85).aspx

EDIT: Hmm, snitz here doesn't seem to like the above URL, textually it's
Code:
http://msdn.microsoft.com/en-us/library/wybb344c(VS.85).aspx
copied from my firefox address bar while viewing the page.
EDIT2: Sheesh! Even inside CODE tags the url tries to become a broken link.
======
Doug G
======
Computer history and help at www.dougscode.com
Posted
Forum Moderator
AnonJr
Posts: 5768
5768
Originally posted by Doug G
You can control whether instr does a case-sensitive comparison or not
Looks like he already is since he's using vbTextCompare...
Posted
Advanced Member
Carefree
Posts: 4224
4224
An alternate approach is to do a forced lower-case comparison like this:
Code:
	if inStr(lcase(AffAgent),"yandex") then
Posted
Forum Moderator
AnonJr
Posts: 5768
5768
Originally posted by Carefree
An alternate approach is to do a forced lower-case comparison like this:
Code:
	if inStr(lcase(AffAgent),"yandex") then
Using vbTextCompare makes it a case-insensitive comparison... If you don't have some test data that has known positives and known negatives, it doesn't matter what you try as you will never know if its working.
Posted
Senior Member
bobby131313
Posts: 1163
1163
Thanks everyone. It appears my code is working. The clicks were due to IE5 downloading for "off-line" viewing. Got that addressed now after trudging through the logs.
 
You Must enter a message