Notifikationer

Markér alle som læst Log ud

nitram30 Nybegynder

08. februar 2004 - 15:11 Der er 49 kommentarer og
1 løsning

skal have lavet et udtræk af databasen.

Hejsa!

Er der en der er frisk på lige og lave udstæk af alle de nyeste 10 "Threads" i mit forum. På min hjemmeside kan i se hvad jeg mener og har lagt filerne klar til download på forsiden. :-)

Så det jeg mangler er en ny asp fil med alle de nyeste 10 "Threads" under hinanden. Og selvfølgelig de nyeste thread øverst osv.

Jeg kan ikke finde ud af asp så jeg skal have en færdig løsning. :-)

Vil godt give flere point hvis du/i også vil lave en admin login til min database så jeg kan slette/rette i den.
Men det snakker vi lige om. :-)

http://www.on-time.dk/forum/default.asp
----
Mvh
Martin

Synes godt om

avlund Nybegynder

08. februar 2004 - 15:18 #1

Du bliver nødt til lige at vise os din databasestruktur (feltnavne etc.) først.

Men umiddelbart vil jeg mene at det hedder noget i retning af SELECT TOP 10 name FROM threads ORDER BY ID DESC , såfremt du altså bruger Access.

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:23 #2

sql = "select top 10 * from threads order by tid desc"

så kan du udskrive dem med:

while not rs.eof
response.write rs.fields("thread")
rs.moveNext
wend

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:25 #3

jeg kigger lige på din fil...

Synes godt om

avlund Nybegynder

08. februar 2004 - 15:31 #4

Søndag morgen, jeg er blank. Havde slet ikke set at filerne var til at downloade...

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:41 #5

Prøv at lave en fil der ser ud som dette, og kald den fx. top10.asp


<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select top 10 * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
<td width="16%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Indlæg af:</font></strong></td>
<td width="26%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Dato:</font></strong></td>
</tr>
<% while not rs.eof %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if replyID = CInt("0") then
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
end if
%>
<td width="16%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF"><%=rs.fields("name")%></font></strong></td>
<td width="26%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF"><%=rs.fields("date")%></font></strong></td>
</tr>
<%
rs.movenext
wend
%>
</table>
</body>
</html>

Jeg tror det virker, men har ikke testet det.

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 15:50 #6

Hej Ellebaek!

Det var sørme hurtig respons. :-)

Det virker jo perfekt. Men jeg vil kun have dem der ligger under overskrift. :-)
http://www.on-time.dk/forum/top10.asp

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 15:53 #7

Hvad kan vi forhandle os frem til i point for en admin funktion så jeg kan rette/tilføje og slette i databasen. Ved dog heller ikke hvordan jeg lægger et password på databasen og om hvordan resten af filerne kommer i kontakt med databasen når der først er password på.. :-)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:58 #8

hvad mener du med dem der ligger under overskrift ??

Hvad vil du give for en sådan funktion ?

Den skal vel kunne redigere i indlæg, slette indlæg og tilføje indlæg eller hvad?

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:58 #9

hvis det er fordi du ikke vil have dato og bruger med, sletter du blot de 2 linier.

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 15:59 #10

altså sådan her:

<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<% while not rs.eof %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if replyID = CInt("0") then
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
end if
%>
</tr>
<%
rs.movenext
wend
%>
</table>

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 16:23 #11

Ja lige det jeg kunne bruge. :-)
Tak for det...

Hvad siger du til indlæg : 08/02-2004 15:53:33 ??
Hvad skal du have af samlede point for admin funktion også?
Er du tilfreds med 80 point? :-)

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 16:24 #12

Altså 80 samlet for admin og dette her du lige har lavet til mig. :-)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 16:34 #13

Jeg har lige overvejet min situation, og har desværre ikke tid til at hjælpe dig med adminmodulet håber du får det lavet.

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 16:55 #14

ØV. :-) Vil du så ikke bare lige hjælpe og rydde op i databasen for 15 point mere. evt oprette i "Forums" 4 hovedmenuer som du bare kalder 1, 2, 3, 4. altså i databasen?

og så evt sender filen til mig?

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 17:03 #15

er det muligt at smide et target="midt" ind i linket?

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 17:08 #16

kan jeg sagtens... Har du en mail jeg kan sende til ?

og mht. target:
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<% while not rs.eof %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if replyID = CInt("0") then
response.write "<a target=""midt"" href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
response.write "<a target=""midt"" href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
end if
%>
</tr>
<%
rs.movenext
wend
%>
</table>

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 17:12 #17

OK MANGE TAK. :-)
Hæver lige point til 30 er du tilfreds med det? :-)

jms@cafeer.dk

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 17:13 #18

OK fejl. har hævet til 50. :-) Det er bare guf det du gør for mig. :-)

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 17:44 #19

TAk for mailen tester straks. :-)
har lagt mærke til at der går ged i top10 hvis jeg besvare et indlæg f.eks. sker der det at der kommer en ny tråd til tråden i top10. Det er godt nok men dér sker noget med de id.. hmm hvordan skal jeg forklare det. :-)

Jo hvis jeg svare på et indlæg der hedder "hejsa" så kommer der den ny "hejsa" frem i top10. men problemet er at det der så er det øverste link kalder begynder tråden og ikke det nye svar til tråden. forstår du hvad jeg mener. :-)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 18:30 #20

jeg forstår godt hvad du mener...

Vil det sige at du kun vil have vist det nye link eller ?
Jeg er ikke helt sikker på hvordan du vil have det løst ?

Skal det være sådan at der kun kommer et link pr. indlæg selvom de sidste 4 indlæg (fx.) er lagt i samme tråd, så det kun er det sidste indlæg der vises mellem de nye?

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 18:38 #21

Hmm. :-)

Hvis det er muligt vil jeg kun have vist de nyeste links.
hvis det sker at en skriver et svar til et indlæg er det så mulilgt at linket i top10 henter hele tråden + svar?

Jeg ved desværre slet ikke hvordan man løser det men det vil være smartest at det der står øverst i top10 henter det nyeste svar.

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 19:02 #22

som top 10 er nu, skulle den gerne vise det nyeste svar først.
Samtidig skulle den også gerne vises alle indlæg i de forskellige tråde, gør den ikke det ?

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 19:28 #23

Nope. Det virker fint end til jeg svaret på tråden. mit svar på tråden ligger under det oprindelige spørgsmål. Tror det er noget med id der skaber problemer.

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 19:31 #24

se evt på http://www.on-time.dk/forum/top10.asp

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 19:58 #25

jeg tester lige...

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 19:59 #26

Det var fordi jeg lavede en fejl før da jeg lavede koden til top10.asp

koden skal se ud som dette:

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select top 10 * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
<td width="16%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Indlæg af:</font></strong></td>
<td width="26%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Dato:</font></strong></td>
</tr>
<% while not rs.eof %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
end if
%>
<td width="16%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF"><%=rs.fields("name")%></font></strong></td>
<td width="26%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF"><%=rs.fields("date")%></font></strong></td>
</tr>
<%
rs.movenext
wend
%>
</table>
</body>
</html>

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 20:10 #27

ja det ser bedre ud. :-)
Kunne jeg nøjes med så kun at få een af hver fremme i top 10?

Håber ikke jeg forlanger for meget af dig.

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 20:10 #28

altså jeg mener en jm og en tester osv.. :-)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 20:14 #29

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select top 10 distinct replyid from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
<td width="16%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Indlæg af:</font></strong></td>
<td width="26%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Dato:</font></strong></td>
</tr>
<% while not rs.eof %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
end if
%>
<td width="16%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF"><%=rs.fields("name")%></font></strong></td>
<td width="26%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF"><%=rs.fields("date")%></font></strong></td>
</tr>
<%
rs.movenext
wend
%>
</table>
</body>
</html>

Det her er en foreløbig løsning, den holder ikke helt, da den ikke kan tage hvis der er 2 nye spg. der er oprettet (disse har begge id = 0 i databasen...) Men jeg kigger på det lidt senere.

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 20:17 #30

OK skal jeg så ikkevente med at bruge det nye udkast? Og så kan du maile det rigtige resultat til mig når du får tid? Og så giver jeg dig dine point for det du har lavet for mig?

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 21:08 #31

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
while not rs.eof
if i < 10 then %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
for i = 0 to ubound(myarr)
if myarr(i) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
myarr(i) = 0
i = i+1
alert = ""
end if
end if
response.write "</tr>"

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Jeg vil umiddelbart tro dette virker, men det er ikke helt vildt god kode, men prøv det...

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 21:32 #32

fejl.
http://www.on-time.dk/forum/top10.asp

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 21:41 #33

Sådan her vil jeg tro.


<%
dim myarr(10)
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
while not rs.eof
if i < 10 then %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
for i = 0 to ubound(myarr)
if myarr(i) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
myarr(i) = 0
i = i+1
alert = ""
end if
end if
response.write "</tr>"

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 21:49 #34

Nej desværre. :-)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 21:53 #35

prøv denne så ;-)

Det kører bare lige nu!


<%
dim myarr(10)
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
while not rs.eof
if i < 10 then %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
for j = 0 to UBound(myarr)
if myarr(j) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
myarr(i) = 0
i = i+1
alert = ""
end if
end if
response.write "</tr>"

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 22:07 #36

Det virker men desværre ikke som vi snakkede om. :-)

Håber ikke du er ved at miste tålmodigheden med mig. !-)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 22:11 #37

Slet ikke ;-)

Det er jo sjovt nok at få det her til at virke...
Jeg har været inde på siden og kigge, så jeg tester lige om den ikke snart er som den skal være..


<%
dim myarr(10)
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
while not rs.eof
if i < 10 then %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
for j = 0 to UBound(myarr)
if myarr(j) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
else
myarr(i) = rs.fields("replyid")
i = i+1
alert = ""
end if

end if

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Der er et lille problem i at det er nestede spørgsmål, altså at man kan lave et svar til et svar, det giver en del flere id'er i tabellen replyid, men prøv lige at ligge denne side ud så jeg kan se hvad den skriver!

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 22:11 #38

vent lige 2 sek.

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 22:13 #39

<%
dim myarr(10)
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
while not rs.eof
if i < 10 then %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
else
for j = 0 to UBound(myarr)
if myarr(j) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & "&showsub=" & rs.fields("id") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
else
alert = ""
end if

end if

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Prøv denne.

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 22:28 #40

no. :-) Godt for problemer skal jo være sjove at løse. :-)

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 22:31 #41

den laver nogle udskiftninger men koden virker ikke helt orginal. :-)

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 22:50 #42

<%
dim myarr(10)
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
while not rs.eof
if i < 10 then %>

<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2"
color="#FFFFFF">
<% if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
else
for j = 0 to UBound(myarr)
if myarr(j) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & "&showsub=" & rs.fields("id") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
else
alert = ""
end if

end if

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Det er noget værre juks at det er opbygget sådan, for det gør det temmelig svært at gennemskue hvordan man laver det nemmest. Men prøv denne en gang

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 23:08 #43

Jeg kan godt se problemet. :-)
Men jeg vil mene at du har løst din del af opgaven og har fortjent dine point.
Men det ville nu være et kæmpe + hvis det bare virkede den sidste lille detalje.

Synes godt om

ellebaek Nybegynder

08. februar 2004 - 23:15 #44

jeg er helt enig i at det ville være fedt hvis den sidste detalje virkede...
Jeg smutter i seng nu, men jeg giver da lige et sidste forsøg i dag... Hvis det ikke er nok, så giv lyd, så kigger jeg på det i morgen.

mht. de der linier der er forkerte i tabellen, så burde det her virke. (og så har jeg ændret lidt i det, så måske virker den anden del også... Man ved aldrig ;-))


<%
dim myarr()
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
tal = 0
while not rs.eof
if tal < 10 then
if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<tr><td width=""55%"" bgcolor=""#00006C""><strong><font face=""Verdana"" size=""2"" color=""#FFFFFF"">"
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
tal = tal+1
else
for j = 0 to UBound(myarr)
if myarr(j) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<tr><td width=""55%"" bgcolor=""#00006C""><strong><font face=""Verdana"" size=""2"" color=""#FFFFFF"">"
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & "&showsub=" & rs.fields("id") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
tal = tal+1
else
myarr(i) = rs.fields("id")
i = i+1
alert = ""
end if

end if

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Synes godt om

nitram30 Nybegynder

08. februar 2004 - 23:21 #45

Sorry. nu gik det helt galt. :-)

Synes godt om

ellebaek Nybegynder

09. februar 2004 - 09:46 #46

Ja, det må du nok sige...


<%
dim myarr()
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
tal = 0
while not rs.eof
if tal < 10 then
if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<tr><td width=""55%"" bgcolor=""#00006C""><strong><font face=""Verdana"" size=""2"" color=""#FFFFFF"">"
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
tal = tal+1
else
for j = 0 to i
if myarr(j) = rs.fields("replyId") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<tr><td width=""55%"" bgcolor=""#00006C""><strong><font face=""Verdana"" size=""2"" color=""#FFFFFF"">"
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & "&showsub=" & rs.fields("id") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
tal = tal+1
else
myarr(i) = rs.fields("id")
i = i+1
alert = ""
end if

end if

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Sådan her så måske

Synes godt om

nitram30 Nybegynder

09. februar 2004 - 10:24 #47

desværre. :-)

Synes godt om

ellebaek Nybegynder

10. februar 2004 - 18:29 #48

Hmm...

Jeg bryder mig ikke om den nestede struktur, for det giver en del props mht. den måde den er opbygget på. Fordi man ikke har alle de forskellige id'er liggende så man kan benytte sig af dem...

Prøv lige denne.

<%
dim myarr()
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

strSQL = "select * from entries order by id desc"
Set rs = myConn.Execute(strSQL)
%>

<head>
<title>ASPForum [ Oversigt ]</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#5EAEFF" text="#000000" link="#000000" vlink="#000000" alink="#FFFFFF"
topmargin="2" leftmargin="0" marginwidth="0" marginheight="2">

<div align="left"></div>
<table border="0" width="550" cellspacing="1" cellpadding="0" bgcolor="#5EAEFF">
<tr>
<td width="55%" bgcolor="#00006C"><strong><font face="Verdana" size="2" color="#FFFFFF">Overskrift</font></strong></td>
</tr>
<%
i = 0
tal = 0
while not rs.eof
if tal < 10 then
if rs.fields("replyId") = CInt("0") then
myarr(i) = rs.fields("id")
i = i+1
response.write "<tr><td width=""55%"" bgcolor=""#00006C""><strong><font face=""Verdana"" size=""2"" color=""#FFFFFF"">"
response.write "<a href=""viewmsg.asp?id=" & rs.fields("id") & "&forumid=" & rs.fields("forumId") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
tal = tal+1
else
for j = 0 to UBound(myarr)
if myarr(j) = rs.fields("id") then
alert = "1"
end if
next

if not alert = "1" then
myarr(i) = rs.fields("replyId")
i = i+1
response.write "<tr><td width=""55%"" bgcolor=""#00006C""><strong><font face=""Verdana"" size=""2"" color=""#FFFFFF"">"
response.write "<a href=""viewmsg.asp?id=" & rs.fields("replyId") & "&forumid=" & rs.fields("forumId") & "&showsub=" & rs.fields("id") & """>" & rs.fields("subject") & "</font></strong></td>"
response.write "</tr>"
tal = tal+1
else
myarr(i) = rs.fields("id")
i = i+1
alert = ""
end if

end if

end if
rs.movenext
wend
%>
</table>
</body>
</html>

Synes godt om

nitram30 Nybegynder

10. februar 2004 - 18:31 #49

Giver du op? :-)
Uanset hvad så har har du løst den del af opgaven som jeg havde aller mest brug for.
Tak for hjælpen. :-)
Jeg har en opgave mere til dig hvis du er frisk?
http://www.eksperten.dk/spm/461932
Den kan du score 100 Point på?

---
Mvh
Martin

Synes godt om

ellebaek Nybegynder

10. februar 2004 - 18:33 #50

*ss*

Jeg prøvede lige den gang der, ved ikke om den virkede.
Men jeg læser lige dit spg igennem for at se om det er noget for mig.

Selv tak for hjælpen.
Skriv hvis der er flere props..

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

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Negativ billeder på samsung Af ALICE i Småopgaver	2	16/01/202610:29	16/01/202618:31
Flytte mappe fra stationær til bærbar Af valby i Småopgaver	20	07/05/202520:51	10/05/202513:43
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40

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