fejl '80020009' Undtagelse opstod.
Jeg får denne fejl.fejl '80020009'
Undtagelse opstod.
/a/chat/chat.asp, linje 22
Nogen som kan hjælpe mig?
Linie 22 er:
If (rs("til") = "Alle" AND NOT rs("fra") = "Chatten" ) then
<%
Linier = "40"
farve1 = "#000000" 'Den farve normale chat sætninger foregår med.
farve2 = "#888888" 'Den farve der bliver sagt velkommen med.
farve3 = "#008000" 'Den farve private chat sætninger foregår med.
Opdatering = "5" 'Opdaterings frekvensen. Hvortit skal siden opdatere?
%>
<html>
<head>
<!--#include file="../header_main.asp" -->
<META HTTP-EQUIV='Refresh' CONTENT='<%=Opdatering%>;URL=chat.asp'>
<base target="_blank">
</head>
<body>
<%
strSQL = "SELECT * FROM chat WHERE Rum='"& session("rum") &"' ORDER BY id DESC "
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
For i=2 to ""&Linier
If (rs("til") = "Alle" AND NOT rs("fra") = "Chatten" ) then
Response.Write " <b>"& rs("fra") &"</b> : <font color='"&farve1&"'> "& rs("besked") &" </Font><BR> "
End if
If (rs("fra") = "Chatten" ) then
Response.Write " <font color='"&farve2&"'>System : "& rs("besked") &" </Font><BR> "
Else
End if
'If (rs("til") = ""&session("chat_id") &"" ) then
' Response.Write " Privat besked fra "& rs("fra") &" : <font color='"&farve3&"'> "& rs("besked") &" </Font><BR> "
'End if
'If (rs("fraid") = ""&session("chat_id") &"") then
' Response.Write "<font color=""#444444""> Privatbesked til "& rs("tilnavn") &" : <font color='"&farve3&"'> "& rs("besked") &" </Font></font><BR> "
'End if
rs.MoveNext
If (rs.BOF Or rs.EOF) Then
i = 20
End If
Next
Response.Write " "
Else
Response.Write "Der er ingen online"
End If
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
