Jag sitter och försöker göra ett forum...Räkna poster i forum...
Problemet är när jag listar "huvudkategorierna" och vill skriva ut hur många trådar det finns under det...
jag får följande fel:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Open'
/linkov/forum/index.asp, line 27
Line 27 är den som öppnar rsFMcatCount.
dbOpen.asp
<code>
<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Driver={MySQL};SERVER=localhost;DATABASE=forum"
Set rsMcat = Server.CreateObject("ADODB.Recordset")
Set rsThread = Server.CreateObject("ADODB.Recordset")
%>
</code>
RsFMcat = Huvudkategorierna
rsFMcatCount har jag gjort för att kunna räkna antalet poster i den katergorin..
Det finns säkert något enklare sätt att göra detta på, men jag vet inte hur, så kom gärna med förslag!
/Anders
Forum.asp
<code>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../common/includes/dbOpen.asp"-->'
<!--#include file="../common/includes/adovbs.inc"-->
<%
strSqlFMcat = "SELECT * FROM mcat"
rsFMcat.Open strSqlFMcat, objCon, 3, 3
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../common/css/main.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<div align="center">
<% Do until rsFMcat.eof%>
<table width="595" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> <table width="550" border="0" cellpadding="0" cellspacing="0" class="FMcatTable">
<tr>
<td width="250" class="FMcatTable2">"><%= rsFMcat("name") %></td>
<%
strSqlFMcatCount = "select mcID from forum where mcID='"&rsFMcat("Id")&"'"
response.Write(strSqlFMcatCount)
rsFMcatCount.Open strSqlFMcatCount, objCon, 3, 3
%>
<td class="FMcatTable2">12</td>
<td class="FMcatTable2">Senast post: 15/7</td>
</tr>
<tr>
<td colspan="3" class="ForumDescText"><%= rsFMcat("desc") %></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<% rsFMcat.MoveNext
loop
%>
</div>
</body>
</html>
<!--#include file="../common/includes/dbClose.asp"-->
</code>