Notifikationer

Markér alle som læst Log ud

doeboy Nybegynder

27. marts 2003 - 12:26 Der er 11 kommentarer og
1 løsning

tælle mine svar til hvert emne i asp/acess db forum

det er lykkedes mig at lave t forum i asp selvom jeg er total asp noob ved at studere lidt andre forumer og DB'er her er min side der viser mine emner
hvordan får jeg nemmeste lavet så jeg kan få vist antal svar til mit emne ??
----------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>


<%
'opretter forbindelse til database og vælger poster der ikke er Svar

Set forum = Server.CreateObject("ADODB.Recordset")
forum.Open "SELECT * FROM Beskeder WHERE SvarID = 0 ORDER BY dato desc" , forbindelse
%>

<html>
<body bgcolor="black">
<center>
<table width="60%" bgcolor="Gray" border="1">
<tr><td width="100%" colspan="2" ><font size="5"><B><i>Welcome To Simpel ASP Forum</b></i></font></td></tr>
<tr><td width="50%" >Subject</td><td width="50%">Author </td></tr></center>
<%
While NOT forum.EOF
%>

<center>
<table width="60%" bgcolor="silver" border="1">
<tr>
<td width="50%">
<a href="visemne.asp?beskedid=<% = forum.Fields("Beskedid")%>"> <%=forum.Fields("BeskedEmne")%> </A> </td>
<td width="50%"> <%=forum.Fields("AfsenderNavn")%> </td>
</tr>

<%
forum.Movenext
wend
%>

<%
' her Lukkes det originale indlæg
forum.close
set forum = Nothing
%>

</table>
</center>
<br>
<a href="nybesked.asp">Opret et Indlæg i forumet</a>
</body>
</html>

Synes godt om

medions Nybegynder

27. marts 2003 - 12:27 #1

strSQL = "SELECT COUNT * FROM Beskeder WHERE SvarID = 0 ORDER BY dato desc"
Set objRs = objConn.Execute(strSQL)

Du henter så resulatatet sådan her:

Response.Write(objRs(0))

//>Rune

Synes godt om

medions Nybegynder

27. marts 2003 - 12:29 #2

Altså alt i alt, så brug SQL's indbygget funktion COUNT() til at hente dine antallet af records...

Evt. smut en tur forbi www.html.dk/tutorials/asp og læs mere om Access/ASP og SQL...

//>Rune

Synes godt om

doeboy Nybegynder

27. marts 2003 - 12:39 #3

Microsoft VBScript runtime error '800a01a8'

Object required: 'objConn'

/digit01a03/forum/Default.asp, line 11

altså denne linie
Set objRs = objConn.Execute(strSQL)

Synes godt om

doeboy Nybegynder

27. marts 2003 - 12:43 #4

og denne skal vel også laves lidt om ?
strSQL = "SELECT COUNT * FROM Beskeder WHERE SvarID = 0 ORDER BY dato desc"
ellers vil jeg kun få vist mine emner stadig da de er eneste med svarid=0 ?

kunne forestille mig noget som dette
strSQL = "SELECT COUNT * FROM Beskeder WHERE SvarID = beskedid ORDER BY dato desc"

da når man svare på et emne skrives beskedid som svar id ved hjælp af en session

Synes godt om

medions Nybegynder

27. marts 2003 - 12:44 #5

Præcist!

//>Rune

Synes godt om

doeboy Nybegynder

27. marts 2003 - 12:47 #6

okie takker må lige lege med det takker for hjælpen =)

Synes godt om

medions Nybegynder

27. marts 2003 - 12:52 #7

Anytime ;o)
Thx 4 Poinz

//>Rune

Synes godt om

doeboy Nybegynder

27. marts 2003 - 13:17 #8

hmmm bliver ved med at få fejl
Object required: 'objConn'
kan hente min database her hvis det til hjælp
http://www.digit.gts.dk/digit01a03/forum/forum.mdb
og min include fil http://www.digit.gts.dk/digit01a03/forum/forbindelse.asp
her er mit dokument som det ser ud nu
------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>


<%
'opretter forbindelse til database og vælger poster der ikke er Svar

Set forum = Server.CreateObject("ADODB.Recordset")

forum.Open "SELECT * FROM Beskeder WHERE SvarID = 0 ORDER BY dato desc" , forbindelse

strSQL = "SELECT COUNT * FROM Beskeder WHERE SvarID = beskedid ORDER BY dato desc"
Set objRs = objConn.Execute(strSQL)

%>

<html>
<body bgcolor="black">
<center>
<table width="60%" bgcolor="Gray" border="1">
<tr><td width="100%" colspan="2" ><font size="5"><B><i>Welcome To Simpel ASP Forum</b></i></font></td></tr>
<tr><td width="50%" >Subject</td><td width="50%">Author </td></tr></center>
<%
While NOT forum.EOF
%>

<center>
<table width="60%" bgcolor="silver" border="1">
<tr>
<td width="50%">
<a href="visemne.asp?beskedid=<% = forum.Fields("Beskedid")%>"> <%=forum.Fields("BeskedEmne")%> </A> </td>
<td width="50%"> <%=forum.Fields("AfsenderNavn")%> </td> <td>antal svar <% response.Write(objRs(0))%> </td>
</tr>

<%
forum.Movenext
wend
%>

<%
' her Lukkes det originale indlæg
forum.close
set forum = Nothing
%>
</table>
</center>
<br>
<a href="nybesked.asp">Opret et Indlæg i forumet</a>
</body>
</html>

håber du stadig vil hjælpe selvom du har fået points

Synes godt om

doeboy Nybegynder

27. marts 2003 - 13:19 #9

doohh man kan jo ikke hente en asp fil lol
her er min forbindelse.asp

<%
Set database = Server.CreateObject ("ADODB.Connection")
forbindelse = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forum.mdb")
%>

Synes godt om

medions Nybegynder

27. marts 2003 - 13:23 #10

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>

<%
'opretter forbindelse til database og vælger poster der ikke er Svar

Set forum = Server.CreateObject("ADODB.Recordset")

forum.Open "SELECT COUNT * FROM Beskeder WHERE SvarID = 0 ORDER BY dato desc" , forbindelse

%>

<html>
<body bgcolor="black">
<center>
<table width="60%" bgcolor="Gray" border="1">
<tr><td width="100%" colspan="2" ><font size="5"><B><i>Welcome To Simpel ASP Forum</b></i></font></td></tr>
<tr><td width="50%" >Subject</td><td width="50%">Author </td></tr></center>
<%
While NOT forum.EOF
%>

<center>
<table width="60%" bgcolor="silver" border="1">
<tr>
<td width="50%">
<a href="visemne.asp?beskedid=<% = forum.Fields("Beskedid")%>"> <%=forum.Fields("BeskedEmne")%> </A> </td>
<td width="50%"> <%=forum.Fields("AfsenderNavn")%> </td> <td>antal svar <%= (Forum.Fields(0))%> </td>
</tr>

<%
forum.Movenext
wend
%>

<%
' her Lukkes det originale indlæg
forum.close
set forum = Nothing
%>
</table>
</center>
<br>
<a href="nybesked.asp">Opret et Indlæg i forumet</a>
</body>
</html>

</BODY>
</HTML>

//>Rune

Synes godt om

doeboy Nybegynder

27. marts 2003 - 13:35 #11

tak endnu en gang

Synes godt om

medions Nybegynder

27. marts 2003 - 13:44 #12

NP ;o)

//>Rune

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS