Find fejlen!
Jeg får følgende fejlmeddelelse, når jeg loader min side.
Siden kan ikke vises
Der er opstået et problem med den side, du forsøger at se, og siden kan ikke vises.
--------------------------------------------------------------------------------
Prøv følgende:
Klik på knappen Opdater, eller forsøg igen senere.
Åbn localhost hjemmesiden, og søg derefter efter hyperlinks til de ønskede oplysninger.
HTTP 500,100 - Intern fejl på serveren - ASP-fejl -
Internet Information Services
--------------------------------------------------------------------------------
Tekniske oplysninger (for supportteknikere)
Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typerne passer ikke sammen
/active/chat_login.asp, line 86
Browsertype:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Side:
GET /active/default.asp?vis=chat
Klokkeslæt:
11. september 1999, 15:53:54
Yderligere oplysninger:
Microsoft Support
Koden er
<% Response.Buffer = true %>
<% If trim(Request.Form(\"name\")) = \"\" Then %>
<center>
<b>
<font face=\"tahoma\" size=\"2\" color=\"#000000\">
-- chat --
</b>
<br><br></center>
<form action=\"default.asp?vis=chat\" method=\"POST\">
<p align = center>Nickname<br><input type=\"text\" size=\"20\" name=\"Name\"></p>
<p align = center>
<select name=\"start\" value=\"- År -\">
<option value=\"-Aldrig\">Startår</option>
<option value=\"77\">1977</option>
<option value=\"78\">1978</option>
<option value=\"79\">1979</option>
<option value=\"80\">1980</option>
<option value=\"81\">1981</option>
<option value=\"82\">1982</option>
<option value=\"83\">1983</option>
<option value=\"84\">1984</option>
<option value=\"85\">1985</option>
<option value=\"86\">1986</option>
<option value=\"87\">1987</option>
<option value=\"88\">1988</option>
<option value=\"89\">1989</option>
<option value=\"90\">1990</option>
<option value=\"91\">1991</option>
<option value=\"92\">1992</option>
<option value=\"93\">1993</option>
<option value=\"94\">1994</option>
<option value=\"95\">1995</option>
<option value=\"96\">1996</option>
<option value=\"97\">1997</option>
<option value=\"98\">1998</option>
<option value=\"99\">1999</option>
<option value=\"00\">2000</option>
<option value=\"01\">2001</option>
</select>
-
<select name=\"slut\" value=\"- År -\">
<option value=\"\">Slutår</option>
<option value=\"77\">1977</option>
<option value=\"78\">1978</option>
<option value=\"79\">1979</option>
<option value=\"80\">1980</option>
<option value=\"81\">1981</option>
<option value=\"82\">1982</option>
<option value=\"83\">1983</option>
<option value=\"84\">1984</option>
<option value=\"85\">1985</option>
<option value=\"86\">1986</option>
<option value=\"87\">1987</option>
<option value=\"88\">1988</option>
<option value=\"89\">1989</option>
<option value=\"90\">1990</option>
<option value=\"91\">1991</option>
<option value=\"92\">1992</option>
<option value=\"93\">1993</option>
<option value=\"94\">1994</option>
<option value=\"95\">1995</option>
<option value=\"96\">1996</option>
<option value=\"97\">1997</option>
<option value=\"98\">1998</option>
<option value=\"99\">1999</option>
<option value=\"00\">2000</option>
<option value=\"01\">2001</option>
</select>
<br><br><br>
<input type=\"submit\" name=\"Submit\"value=\"Log ind\">
</form>
<p align = center>
<b>Online chattere</b><br>
<%
Dim users, refresh
\'Henter Applikation Arrays
users = Application(\"users\")
refresh = Application(\"refresh\")
\'Finder den aktive bruger og opdaterer hans refreshtime
For i = 1 To 50
If users(i) = Session(\"name\") Then \'her er linje 86 - med fejlen!
refresh(i) = Time
Exit For
End If
Next
\'Har nogen været væk i mere end 20 sekunder?
For i = 1 To 50
If users(i) <> \"\" Then
If DateDiff(\"s\",refresh(i), Time) > 20 Then
Application(\"conversation\") = Application(\"conversation\") & \"<b><i>\" & users(i) & \" [\" & Session(\"start\") & \"-\" &_
session(\"slut\") & \"]\" &_
\" har forladt fællesskabet</b></i><br>\"
users(i) = \"\"
Application(\"NumUsers\") = Application(\"NumUsers\") - 1
End If
End If
Next
Application.Lock
Application(\"users\") = users
Application(\"refresh\") = refresh
Application.Unlock
For i = 1 To 50
If users(i)<> \"\" Then
Response.Write users(i) & \" [\" & Session(\"start\") & \"-\" &_
session(\"slut\") & \"]\" & \"<br>\"
End If
Next
%>
</p>
<p align = center>
<a href=\"default.asp?vis=chat\" target=\"_self\"><img src=\"gfx/knap2.gif\" width=\"76\" height=\"26\" border=\"0\" alt=\"\" align=\"absmiddle\"></a>
</p>
<%
Else
Session(\"name\") = Request.Form(\"name\")
Session(\"start\") = Request.Form(\"start\")
Session(\"slut\") = Request.Form(\"slut\")
If Application(\"NumUsers\") = 0 Then
\' Intialisering af online brugere og dialogen
ReDim temp1(50)
ReDim temp2(50)
Application(\"users\") = temp1
Application(\"refresh\") = temp2
End If
\'Henter Applikation Arrays
users = Application(\"users\")
refresh = Application(\"refresh\")
\'Finder en tom plads og tilføjer den nye bruger
Dim i
For i = 1 To 50
If users(i) = \"\" Then
users(i) = Session(\"name\")
refresh(i) = time
Application.Lock
Application(\"NumUsers\") = Application(\"NumUsers\") + 1
Application.Unlock
Exit For
End If
Next
If i = 51 Then Response.Redirect \"default.asp?vis=toomany\"
\'Putter arrays tilbage til applikation
Application.Lock
Application(\"users\") = users
Application(\"refresh\") = refresh
Application.Unlock
If not IsEmpty(Application(\"conversation\")) Then
Application.Lock
Application(\"conversation\") = Application(\"conversation\")& \"<b><i>\" & Session(\"name\") & \" [\" & Session(\"start\") & \"-\" &_
session(\"slut\") & \"]\" & \" har tilsluttet sig fællesskabet</b></i><br>\"
Application.Unlock
End If
Response.Redirect \"chat_main.asp\"
End If
%>
</font>
</body>
Det sære er at linien der er tilsyneladende er fejl i virker på andre sider...jeg kan ikke se hvorfor typerne ikke passer sammen!
HJÆLP!
//Johan
