Har brug for hjælp til dette.
Hej, dette er scriptet til en gæstebog, som hver eneste bruger i mit community har.Den melder fejl når der jeg opretter besked og så kommer tilbage til siden.
Opret scriptet virker fint osv... det er bare her den melder fejl:
Error Type:
(0x80020009)
Exception occurred.
/RaiX/Community/ProfilBog.asp, line 55
KODE:
-----------------------------------------------------------------
<!--#include file="../whobanned.asp"-->
<%
If Session("brugernavn") <> "" Then
%>
<HTML>
<HEAD>
<TITLE>RaiX - Kreative nyheder!</TITLE>
</HEAD>
<BODY>
<b>Gæstebog :.</b>
<br><br>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("community.mdb") & ""
Set rs3 = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from ProfilBog Where ejer = " & Request.Querystring("id")
rs3.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Community where id = " & Request.Querystring("id")
rs.Open strSQL, Conn
ejer= Request.Querystring("id")
%>
<center>
<form action="OpretProfilBogOk.asp?id=<%=ejer%>" method="POST" class="css">
<table border="0" cellpadding="2" cellspacing="0" width="40%">
<tr>
<td align="left" width="40%" valign="top">Brugernavn:</td>
<td colspan="2" width="60%"><a href="Profil.asp?id=<%=Session("id")%>"><%=Session("brugernavn")%></a></td>
</tr>
<tr>
<td align="left" width="40%" valign="top">Besked:</td>
<td colspan="2" width="60%"><INPUT size="60" value="Besked her" onFocus="if(this.value=='Besked her'){this.value=''}" onBlur="if(this.value==''){this.value='Besked her'}" style="background:#FFFFFF" style="font-family: Tahoma; font-size: 8pt; border: 1 solid #000000" TYPE="text" NAME="besked"></td>
</tr>
<td width="60%"></td>
<td colspan="2" width="60%"><input style="font-family: Tahoma; font-size: 8pt; border: 1 solid #000000" type="submit"
name="B1" value="Tilføj"></td>
</tr>
</table>
</center>
<br>
<%
If rs3.EOF then
Response.write "<center><br>Der er ikke skrevet nogle beskeder.</font></center>"
Else
Do Until rs3.EOF
Response.Write "Skrevet af <a href='Profil.asp?id=" & rs3("skrevet") & "'><b>" & rs3("brugernavn") & "</a> "
If rs("status") = "2" Then
Response.Write "- V.I.P "
End if
If rs("status") = "3" Then
Response.Write "- Reporter "
End if
If rs("status") = "4" Then
Response.Write "- Chef Reporter "
End if
If rs("status") = "5" Then
Response.Write "- Redaktør "
End if
If rs("status") = "6" Then
Response.Write "- Ejer "
End if
Response.Write "</b>- D. " & rs3("day") & "/" & rs3("month") & "-" & rs3("year") & " - " & rs3("hour") & ":" & rs3("minute") & ":" & rs3("second") & ""
If Session("status") = "6" Then
Response.Write " - IP: " & rs3("ip") & " - <a href=SletProfilBog.asp?id=" & rs3("id") & ">Slet</a>"
End if
Response.Write "<br>" & rs3("besked") & "<br><br>"
RS.MoveNext
Loop
End if
rs.Close
Set rs = Nothing
rs3.Close
Set rs3 = Nothing
Else
Response.Write "Du er ikke logget korrekt ind."
End if
%>
</BODY>
</HTML>
-----------------------------------------------------------------
På forhånd tak
