mikken
February 18th, 2007, 08:23 AM
Hi I have som problems, and I suspect it's me being stupid:
I'm trying to combine two scripts, one fileupload script and fckeditor. I'm having som trouble getting the fckeditor to work, and the three browsers i test it in confuses me with different errors:
Firefox: Displays like i expect it to
Opera: Fails the compabilityscript, which is kind of surprising. Displays a textarea, which is what the script should do if it fails the IsCompatible() function.
IExplore 7: Does nothing right of course. It passes the compability-test, but fails to render... Shows nothing, although the source shows that correct(?) syntax is there.
My guess is that it's this script that's causing opera's problems:
Private Function IsCompatible()
Dim sAgent
sAgent = Request.ServerVariables("HTTP_USER_AGENT")
Dim iVersion
If InStr(sAgent, "MSIE") > 0 AND InStr(sAgent, "mac") <= 0 AND InStr(sAgent, "Opera") <= 0 Then
iVersion = CInt( ToNumericFormat( Mid(sAgent, InStr(sAgent, "MSIE") + 5, 3) ) )
IsCompatible = ( iVersion >= 5.5 )
ElseIf InStr(sAgent, "Gecko/") > 0 Then
iVersion = CLng( Mid( sAgent, InStr( sAgent, "Gecko/" ) + 6, 8 ) )
IsCompatible = ( iVersion >= 20030210 )
Else
IsCompatible = False
End If
End Function
With IE, i don't know, there's no reason why it shouldn't work as far as i know
This is the URL:
http://amp-up.no/blogg/saveany.asp
The upload script doesn't work yet and i know about the broken image-link, so no need to focus on that.
Any help would be much appreciated!
I'm trying to combine two scripts, one fileupload script and fckeditor. I'm having som trouble getting the fckeditor to work, and the three browsers i test it in confuses me with different errors:
Firefox: Displays like i expect it to
Opera: Fails the compabilityscript, which is kind of surprising. Displays a textarea, which is what the script should do if it fails the IsCompatible() function.
IExplore 7: Does nothing right of course. It passes the compability-test, but fails to render... Shows nothing, although the source shows that correct(?) syntax is there.
My guess is that it's this script that's causing opera's problems:
Private Function IsCompatible()
Dim sAgent
sAgent = Request.ServerVariables("HTTP_USER_AGENT")
Dim iVersion
If InStr(sAgent, "MSIE") > 0 AND InStr(sAgent, "mac") <= 0 AND InStr(sAgent, "Opera") <= 0 Then
iVersion = CInt( ToNumericFormat( Mid(sAgent, InStr(sAgent, "MSIE") + 5, 3) ) )
IsCompatible = ( iVersion >= 5.5 )
ElseIf InStr(sAgent, "Gecko/") > 0 Then
iVersion = CLng( Mid( sAgent, InStr( sAgent, "Gecko/" ) + 6, 8 ) )
IsCompatible = ( iVersion >= 20030210 )
Else
IsCompatible = False
End If
End Function
With IE, i don't know, there's no reason why it shouldn't work as far as i know
This is the URL:
http://amp-up.no/blogg/saveany.asp
The upload script doesn't work yet and i know about the broken image-link, so no need to focus on that.
Any help would be much appreciated!