webForumDet fria alternativet

Problem med BrowserCapabilites

4 svar · 230 visningar · startad av scoxi

scoxiMedlem sedan jan. 200460 inlägg
#1

Jag har skapat ett script för skojs skull som gör berättar användarens IP och om den använder IE eller inte, det visade sig att det inte var så skoj.

Jag får upp detta felmeddelande:

Feltyp:
Serverobjekt, ASP 0177 (0x800401F3)
Ogiltigt ProgID. Mer information om det här felmeddelandet finns på webbplatsen för Microsofts onlinesupport: http://www.microsoft.com/contentredirect.asp.
/asp/index.asp, line 14

Min kod ser ut på följande vis:

<html>
<head>
<title>
da home auf scoxi
</title>
</head>

<%
'ASP
'Variablar
Dim IP

'Skapar ett objekt, kollar upp information om webläsaren
Set BC = Server.CreateObject("MSWC.BroswerType")

'Anger variabeln ett värde
IP = Request.ServerVariables("REMOTE_ADDR")
%>

<body bgcolor="#DFDFDF">

<table align="center" border="0" width="500">

<tr>
<td background="top_logo.jpg" colspan="2" height="102">
</td>
</tr>

<tr>
<td valign="top" height="150">
<font color="black" face="verdana" size="1">
<b>Navigation</b>
<br>
Index
<br>
Nyheter
<br>
Bilder
<br>
Guider
<br>
Gästbok
<br>
Besökshistorik
<br>
<br>
<br>
Login
<br>
<br>
<br>
Ditt IP är:
<br>
<%=IP%>
<br>
<br>
och du använder:
<br>
<%
If BC.Browser = "IE" Then
%>
IE
<%
Else
%>
Du använder ej IE
<%
End If
%>
</td>
<td background="main_pic.jpg" height="314" width="372">
</td>

</table>

<table align="center" border="0" cellpadding="6" width="500">

<tr>
<td background="bottom_pic.jpg" colspan="2" height="45">
<font color="black" face="verdana" size="1">
</font>
</td>
</tr>
</table>

</body>
</html>

Rad 14 skulle alltså vara:

Set BC = Server.CreateObject("MSWC.BroswerType")

.. grejen är att jag kan inte hitta något fel och inte heller något innan som kan göra att det blir fel så jag gjorde en test sida med bara IP och IE grejen och där ser koden ut på följande vis:

<html>
<%
Dim IP

Set BC = Server.CreateObject("MSWC.BrowserType")

IP = Request.ServerVariables("REMOTE_ADDR")

If BC.Browser = "IE" Then
%>

Du använder IE

<%
Else
%>

Du använder inte IE

<%
End If
%>
<%=IP%>

Det funkar utmärkt...

Någon som är så vänlig och berättar vad felet är?

scoxiMedlem sedan jan. 200460 inlägg
#2

Jag ber om ursäkt.. denna tråd bör bli flyttad till ASP.. såg fel kl 03.00 :(

MystiXMedlem sedan mars 200218 inlägg
#3

Du har stavat fel på Browser i den övre texten.

Set BC = Server.CreateObject("MSWC.BroswerType")

renholmMedlem sedan apr. 20012 266 inlägg
#4

Flyttas från ASP.NET

PoffeMedlem sedan apr. 20022 743 inlägg
#5

Använd gärna [KOD]-taggen också när man visa kod :)

130 ms totalt · 3 externa anrop · v20260731065814-full.0e50b1ef
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)