problemer med server.createobject
Hvorfor for jeg denne error når jeg vil køre siden i min browser?Error Type:
Server object, ASP 0178 (0x80070005)
The call to Server.CreateObject failed while checking permissions. Access is denied to this object.
/aspchat2/Default.asp, line 5
---------------
default.asp
<%
\'
\' Create the ASPChat component because it\'s used throughout the page
\'
Set ASPChat = Server.CreateObject(\"ASPChat2.Chat\") <-- Linie 5
If Len(Request(\"Join\")) > 0 Or Len(Request(\"UserId\")) > 0 Then
EnterMessage = ASPChat.EnterMessage
ASPChat.EnterMessage = \"<font face=\"\"Verdana,Arial,sans-serif\"\" color=\"\"red\"\" size=\"\"2\"\">%userfrom% just entered this room...</font>\"
If ASPChat.JoinRoom(Request(\"RoomName\"), Request(\"UserId\")) Then
ASPChat.EnterMessage = EnterMessage
Response.Redirect(\"ChatMain.Asp\")
Else
ASPChat.EnterMessage = EnterMessage
ErrorSt = ASPChat.LastError
End If
End If
%>
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"en-us\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>ASP Chat Example - Logon</title>
</head>
<body style=\"font-family: Arial\" bgcolor=\"#C0C0C0\" text=\"#000000\" link=\"#000000\" vlink=\"#000000\" alink=\"#000000\">
<p align=\"center\"><font size=\"5\" face=\"verdana,arial,sans-serif\"><b>ASP Chat Example</b></font></p>
<form method=\"POST\" action=\"Default.Asp\">
<div align=\"center\">
<center>
<table border=\"1\" bordercolor=\"#000000\" cellspacing=\"0\">
<tr>
<td width=\"100%\" bgcolor=\"#808080\"><b><font face=\"verdana,arial,sans-serif\" size=\"2\">Please Logon</font></b></td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#C0C0C0\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\">
<tr>
<td rowspan=\"2\"><font face=\"verdana,arial,sans-serif\"><img border=\"0\" src=\"../Example5/AdmitOne.gif\" WIDTH=\"52\" HEIGHT=\"50\"></font></td>
<td align=\"right\"><font face=\"verdana,arial,sans-serif\" size=\"2\"><b>Select a User-Id:</b></font></td>
<td><font face=\"verdana,arial,sans-serif\"><input type=\"text\" name=\"UserId\" size=\"15\"></font></td>
</tr>
<tr>
<td align=\"right\"><font face=\"verdana,arial,sans-serif\" size=\"2\"><b>Room:</b></font></td>
<td><font face=\"verdana,arial,sans-serif\"><% = ASPChat.DisplayRoomListDropdown %></font></td>
</tr>
<tr>
<td colspan=\"3\">
<hr noshade size=\"1\" color=\"#000000\">
</td>
</tr>
<tr>
<td colspan=\"3\" align=\"center\">
<p align=\"center\"><input border=\"0\" src=\"Images/join_button.gif\" name=\"Join\" type=\"image\"></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</form>
<p align=\"center\"><font face=\"verdana,arial,sans-serif\"><%If Len(ErrorSt) > 0 Then
Response.Write(\"<script language=\"\"JavaScript\"\">\" & Chr(13))
Response.Write(\"<!--\" & Chr(13))
Response.Write(\"alert(\'\" & ErrorSt & \"\');\" & Chr(13))
Response.Write(\"// -->\" & Chr(13))
Response.Write(\"</script>\" & Chr(13))
End If%></font></p>
</body>
</html>
