Mid

[FranckM]

This is the error I get when I try using mid:

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Mid'
/ESD-PSE/language.asp, line 4

This is the code I have that results in this error:

sString = Request.ServerVariables("HTTP_REFERER&quot
sExt = Mid (sString, Instr (sString, ".html&quot)

I have no idea what's wrong. If anyone can see what the problem, I would greatly appriciate the help. Thanks for reading and replying

 

[Sarky78]

mid has got the following prototype:

mid(Stringtouse,startposition,number of characters to return)

for instance:

sString = Request.ServerVariables("HTTP_REFERER&quot
sExt = Mid (sString, (Instr (sString, ".html&quot),4)

 

[FesterSXS]

If the Referer page does not contain the string ".html" then the InStr function will return a null value which in turn will cause an error in your Mid function.

You need to first check the result of your InStr before applying this to your Mid function

for example...

sString = Request.ServerVariables("HTTP_REFERER")
intValue = Instr(sString, ".html")

If intValue <> 0 Then
  sExt = Mid(sString, intValue)
End If

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[FranckM]

Yes, that's the problem fester, the referer is an asp page..
Thanks for the help, gonna be looking into that and see how I can work my way around the red ribbon...eheh