Fejl i min tagwall
Hej, jeg har brug for hjælp til min tagwall her.Den melder denne fejl:
Error Type:
Microsoft VBScript runtime (0x800A01C2)
Wrong number of arguments or invalid property assignment: 'rs1'
/RaiX/Community/Tagwall.asp, line 38
I line 38 står der:
Sql = strSQL = "select * from Community Where id = " & rs1("ejer")
KODE:
-----------------------------------------------------------------
<HTML>
<!--#include file="../whobanned.asp"-->
<%
If Session("brugernavn") <> "" Then
%>
<HEAD>
<TITLE>RaiX - Kreative nyheder!</TITLE>
</HEAD>
<BODY>
<b>Tagwall :.</b>
<br><br>
<%
Set rs3 = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("community.mdb")
rs3.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select count(*) as Found from Tagwall where ejer = " & Session("id")
Set Record = rs3.Execute(Sql)
Migselv = Record("found")
Set rs2 = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("community.mdb")
rs2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select count(*) as Found from Tagwall where id=true"
Set Record = rs2.Execute(Sql)
Ialt = Record("found")
Set rs1 = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("community.mdb")
rs1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "select * from Tagwall ORDER BY id DESC"
Set Record = rs1.Execute(Sql)
Set rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("community.mdb")
rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = strSQL = "select * from Community Where id = " & rs1("ejer")
Set Record = rs.Execute(Sql)
%>
Der er ialt skrevet <% =ialt %> beskeder, hvoraf du har skrevet <% =migselv %>.
<center>
<form action="CheckTagwall.asp" 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 rs1.EOF then
Response.write "<center><br>Der er ikke skrevet nogle beskeder.</font></center>"
Else
Do Until rs1.EOF
If not rs1("ejer") = "16" Then
Response.Write "Skrevet af <a href='Profil.asp?id=" & rs1("ejer") & "'><b>" & rs1("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. " & rs1("day") & "/" & rs1("month") & "-" & rs1("year") & " - " & rs1("hour") & ":" & rs1("minute") & ":" & rs1("second") & ""
if Session("status") = "6" Then
Response.Write " - IP: " & rs1("ip") & " - <a href=SletTagwall.asp?id=" & rs1("id") & ">Slet</a>"
End if
Response.Write "<br>" & rs1("besked") & "<br><br>"
Else
Response.Write "Skrevet af <a href=Profil.asp?id=16><font color=blue><b>RaiX</a> - Bot</b></b>- D. " & rs1("day") & "/" & rs1("month") & "-" & rs1("year") & " - " & rs1("hour") & ":" & rs1("minute") & ":" & rs1("second") & ""
if Session("status") = "6" Then
Response.Write " - <a href=SletTagwall.asp?id=" & rs1("id") & ">Slet</a>"
End if
Response.Write "<br>" & rs1("besked") & "<br><br>"
End if
RS1.MoveNext
Loop
End if
rs.Close
Set rs = Nothing
rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
rs3.Close
Set rs3 = Nothing
Conn.Close
Set Conn = Nothing
Else
Response.Write "Du er ikke logget korrekt ind."
End if
%>
</BODY>
</HTML>
-----------------------------------------------------------------
På forhånd tak...
