Notifikationer

Markér alle som læst Log ud

doeboy Nybegynder

23. maj 2003 - 12:13 Der er 19 kommentarer og
1 løsning

Nyeste indlæg i forum øverst

Jeg er ved at lave forum og vil gerne have sådan at man ser det emne der sidst er svaret på øverst
har kun sidste emne oprettet til vise øverste nu

mit visemne er bygget op på 2 forbindelser til data basen og er ret noob så kan ikke helt overskue hvordan det skal gøres

først her er min kode der viser selve emnet og svaret
--------------------

<%
'sætter variabler til at skifte bestemte tekstkombinationer ud med smilies billeder i indlæg

function smileys(tekst)
tekst = replace(tekst, ":wow:", "<img src='images/wow.gif'>")
tekst = replace(tekst, ":afro:", "<img src='images/afro.gif'>")
tekst = replace(tekst, ":hot:", "<img src='images/hot.gif'>")
tekst = replace(tekst, ":ak:", "<img src='images/ak.gif'>")
tekst = replace(tekst, ":alien:", "<img src='images/alien.gif'>")

smileys = tekst
end function

'her laves en session til identificering af besked til besvarelse

Session("BeskedID") = Request("BeskedID")

'her åbnes databasen i forbindelse med Id feltet Beskedid

Set Forum = Server.CreateObject ("ADODB.Recordset")
Forum.Open "SELECT * FROM Beskeder WHERE beskedid=" & Request.QueryString ("Beskedid") , forbindelse
%>

<html>
<head>
<title>Forum</title>
</head>

<body bgcolor="black">
<center>
<% ' her vises det originale Indlæg %>

<table border="1" width="610" bgcolor="white" border="1">

<tr><td colspan="2" bgcolor="#c5c0d1">
<a href="nybesked.asp"><img src="images/new.gif" border="0"></a> <a href="nybesvarelse.asp"><img src="images/reply.gif" border="0"></a></font>
</td></tr>

<tr><td colspan="2" bgcolor="#c5c0d1">
<b><i><% = forum.Fields("BeskedEmne")%> </b></i>
</td></tr>

<tr>
<td width="150" align="left" valign="top">
<font size="1"><% = forum.Fields("Afsendernavn")%><br>
<% = forum.Fields("AfsenderEmail")%><br>
<br></font>
</td>

<td width="500" align="left" valign="top" ><font size='1'> Subject Created on   <% = forum.Fields("dato")%></font>
<br>

<hr style='position:absolute;' width='150'>

<% = smileys(forum.Fields("Beskedtekst"))%> </td>

</tr>

</table>

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

<%
' Svar til det original
Set forum = Server.CreateObject ("ADODB.Recordset")
forum.Open "SELECT * FROM Beskeder WHERE SvarID = " & Request.QueryString ("Beskedid") , forbindelse
%>

<%
' sålænge der er poster kører den tabellen igennem
While NOT forum.EOF
%>

<table border="1" width="610" bgcolor="white" border="1">
<tr>
<td colspan="2" background="top.jpg">
<br>
</td></tr>

<tr>
<td width="150" align="left" valign="top">
<font size="2"><% = forum.Fields("Afsendernavn")%><br><% = forum.Fields("AfsenderEmail")%><br>
<br></font>
</td>
<td width="500" align="left" valign="top" ><font size='1'>Created on   <% = forum.Fields("dato")%></font>
<br>
<hr style='position:absolute;' width='150'>
<% = smileys(forum.Fields("Beskedtekst"))%> </td>
</tr>

</table>
</table>

<%
' viser næste indlæg
forum.Movenext
wend

%>

<%
' her lukkes database forbindelsen
forum.close
set forum = Nothing
%>

<br>

</center>
</body>
</html>

Synes godt om

doeboy Nybegynder

23. maj 2003 - 12:16 #1

her er min forside hvor jeg vil have til at vise seneste besvaret indlæg
----------------------

<%@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>

<head>
<style type="text/css">
A:link {text-decoration: none; color: White;}
A:visited {text-decoration: none; color: Blue;}
</style>
</head>

<body bgcolor="black">

<table border="0" cellpadding="0" cellspacing="1" width="650" align="center" bgcolor="black">
<tr>
<td><br><br><a href="nybesked.asp"><br><br><br><br><img src="images/new.gif" border="0" align="right"></a> <font size="1" color="white" > </td>
</table>

<table border="0" cellpadding="0" cellspacing="1" width="650" align="center">
<tr bgcolor="#a8a8a8">
<td>
<table border="0" width="100%" cellpadding="4" cellspacing="1">
<tr bgcolor="#666666">

<td width="280">
<font size="1" color="#ffffff" face="Verdana, Helvetica, sans-serif">
<b>Topic</b>
</font>
</td>

<td width= ="180">
<font size="1" color="#ffffff" face="Verdana, Helvetica, sans-serif">
<b>Topics Author</b>
</font>
</td>

<td width="160">
<font size="1" color="#ffffff" face="Verdana, Helvetica, sans-serif">
<b>posted on</b>
</font>
</td>

</tr>

<%
While NOT forum.EOF

%>

<tr>

<td valign="top" align="left" bgcolor="#333333">
<font size="2" face="Verdana, Helvetica, sans-serif">
<a href="visemne.asp?beskedid=<% = forum.Fields("Beskedid")%>"><%=forum.Fields("BeskedEmne")%></A></font>
</td>

<td valign="top" bgcolor="#333333" align="left">
<font size="2" face="Verdana, Helvetica, sans-serif" color="yellow">
<%=forum.Fields("AfsenderNavn")%></font></td>

<td valign="top" bgcolor="#333333" align="left">
<font size="1" face="Verdana, Helvetica, sans-serif" color="white">
<%=forum.Fields("dato")%></font></td>
</tr>

<%
forum.Movenext
wend
%>

</table>
</table>
<br>

</body>
</html>

Synes godt om

doeboy Nybegynder

23. maj 2003 - 12:39 #2

hmmmmmm er der ikke nogen der lige kunne bruge 200 points ¿o_O?

Synes godt om

-master-d- Nybegynder

23. maj 2003 - 13:47 #3

Hvad med denne.

<%@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

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

%>

<html>

<head>
<style type="text/css">
A:link {text-decoration: none; color: White;}
A:visited {text-decoration: none; color: Blue;}
</style>
</head>

<body bgcolor="black">

<table border="0" cellpadding="0" cellspacing="1" width="650" align="center" bgcolor="black">
<tr>
<td><br><br><a href="nybesked.asp"><br><br><br><br><img src="images/new.gif" border="0" align="right"></a> <font size="1" color="white" > </td>
</table>

<table border="0" cellpadding="0" cellspacing="1" width="650" align="center">
<tr bgcolor="#a8a8a8">
<td>
<table border="0" width="100%" cellpadding="4" cellspacing="1">
<tr bgcolor="#666666">

<td width="280">
<font size="1" color="#ffffff" face="Verdana, Helvetica, sans-serif">
<b>Topic</b>
</font>
</td>

<td width= ="180">
<font size="1" color="#ffffff" face="Verdana, Helvetica, sans-serif">
<b>Topics Author</b>
</font>
</td>

<td width="160">
<font size="1" color="#ffffff" face="Verdana, Helvetica, sans-serif">
<b>posted on</b>
</font>
</td>

</tr>

<%
While NOT forum.EOF

%>

<tr>

<td valign="top" align="left" bgcolor="#333333">
<font size="2" face="Verdana, Helvetica, sans-serif">
<a href="visemne.asp?beskedid=<% = forum.Fields("Beskedid")%>"><%=forum.Fields("BeskedEmne")%></A></font>
</td>

<td valign="top" bgcolor="#333333" align="left">
<font size="2" face="Verdana, Helvetica, sans-serif" color="yellow">
<%=forum.Fields("AfsenderNavn")%></font></td>

<td valign="top" bgcolor="#333333" align="left">
<font size="1" face="Verdana, Helvetica, sans-serif" color="white">
<%=forum.Fields("dato")%></font></td>
</tr>

<%
forum.Movenext
wend
%>

While not rs.eof("BeskedEmne")
Response.Write rs("")
rs.movenext
loop

</table>
</table>
<br>

</body>
</html>

Synes godt om

doeboy Nybegynder

23. maj 2003 - 13:54 #4

afprøver den lige

Synes godt om

doeboy Nybegynder

23. maj 2003 - 13:58 #5

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/doeboydk/default.asp, line 92

loop

Synes godt om

-master-d- Nybegynder

23. maj 2003 - 14:00 #6

hov ændrer lige

While not rs.eof("BeskedEmne")
Response.Write rs("")
rs.movenext
loop

Til

do While not rs.eof
Response.Write rs("BeskedEmne")
rs.movenext
loop

Synes godt om

oasen Nybegynder

23. maj 2003 - 14:05 #7

do - loop
while - wend

Synes godt om

doeboy Nybegynder

23. maj 2003 - 14:07 #8

hmm det er stadig kun nyest oprette Emne der vises øverest og ikke emne med nyeste indlæg :/

Synes godt om

goose Nybegynder

23. maj 2003 - 14:34 #9

' udvælg det nyeste svar som ikke er et emne:

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

' udvælg emnet til det nyeste svar:

Set forum = Server.CreateObject("ADODB.Recordset")
forum.Open "SELECT * FROM Beskeder WHERE SvarID =" & rs(beskedID") &" , forbindelse

Du er nød til at finde det nyeste indlæg i databasen. Derefter finder du emnet der hører til dette indlæg.

/Goose

Synes godt om

doeboy Nybegynder

23. maj 2003 - 15:25 #10

ok tak må desværee lige prøve det lidt senere er på vej hjem nu
men giver respons / evt points når jeg hjemme og prøvet det af

Synes godt om

doeboy Nybegynder

23. maj 2003 - 15:47 #11

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/doeboydk/default.asp, line 14

forum.Open "SELECT * FROM Beskeder WHERE SvarID =" & rs(beskedID") &" , forbindelse

Synes godt om

doeboy Nybegynder

23. maj 2003 - 15:50 #12

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

med
------------------
' udvælg det nyeste svar som ikke er et emne:

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

' udvælg emnet til det nyeste svar:

Set forum = Server.CreateObject("ADODB.Recordset")
forum.Open "SELECT * FROM Beskeder WHERE SvarID =" & rs(beskedID") &" , forbindelse

Det var bare lige det du mente der skulle skiftes ikke ??

Synes godt om

doeboy Nybegynder

23. maj 2003 - 16:32 #13

i kan se det her hvis det kan hjælpe http://www26.brinkster.com/doeboydk

Synes godt om

doeboy Nybegynder

25. maj 2003 - 11:07 #14

Har stadig ikke fået det til virke hvis der nogen der kan få det til det vil jeg gerne give mere en 200points!!!

Synes godt om

goose Nybegynder

26. maj 2003 - 13:13 #15

Hvordan er din database bygget op, er svarid og beskedid = tal ?!?
Er beskedid selve tråden og svarid besvarelse til beskedid ?

/Goose

Synes godt om

doeboy Nybegynder

27. maj 2003 - 08:52 #16

Hey Goose
ja svarid og besked id er tal
beskedid er autonummering og svar id hentes i mit besvare indlæg
så den ved hvilke indlæg der høre til original emne
altså
Emne: Test (beskedid 1)
lalla test test
svar: dette er et svar på indlæg (beskedid 2 svarid 1)
også henter jeg mine emner på hovedesiden ved Hjælp af
forum.Open "SELECT * FROM Beskeder WHERE SvarID = 0
da alle Emner får svarid=0

Synes godt om

goose Nybegynder

27. maj 2003 - 09:34 #17

Hvis du vil have det skal jeg gerne kigge på, men så er du nød til lige at sende mig din database og dine asp filer.
send dem til: admin@goose.dk

/Goose

Synes godt om

goose Nybegynder

27. maj 2003 - 09:49 #18

tror jeg har misforstået dit spørgsmål ..... har nu læst det igen og må nok indse at jeg ikke kan hjælpe alligevel ... sorry

/Goose

Synes godt om

doeboy Nybegynder

27. maj 2003 - 10:11 #19

Np Goose
tak for hjælpen aligevel

Synes godt om

doeboy Nybegynder

31. maj 2003 - 20:12 #20

HAR selv løst det
tilføjet et felt i databasen der hedder last
og tilføjet dette til min gemsvar fil

<%
forum.Addnew
forum("svarid") = Request.Form("BeskedID")
forum("AfsenderNavn") = Request.Form("AfsenderNavn")
forum("id") = Request.Form("id")
forum("BeskedEmne") = Request.Form("BeskedEmne")
forum("BeskedTekst") = Request.Form("BeskedTekst")
forum("Dato") = Request.Form("Dato")
forum("avatar") = Request.Form("avatar")

forum.Update

%>

<%
Set update = Server.CreateObject ("ADODB.Recordset")
update.Open "SELECT * FROM beskeder where Beskedid =" & session("Beskedid"), forbindelse, 3, 3
%>

<%

update("last") = Request.Form("Dato")

update.Update
Response.Redirect("default.asp")

%>

og så henter på forsiden med dette

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

Lukker spørgsmålet og giver mig selv points =))

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	0	I dag 11:37	-
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