2 ?: Vise de 5 seneste indlæg - trække første 40 karakterer ud af disse 5 recordset

1) du fyrer av denne SQL:

SQL = \"SELECT TOP 5 * FROM dinTabell ORDER BY datoKolonne DESC\"

og itererer resultatet av denne...

2) response.write LEFT( RS(\"dinKolonne\"), 40 ) & \"<br>\"

/nute

nute .. du kan også ORDER BY id DESC .. tror jeg er hurtigere for bl.a. Access database end at sortere på et datofelt.

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * from Nyheder order by Dato Desc\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../../db/jac/jac.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 3
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount %>

<!-- News -->
<table border=\"0\" cellpadding=\"3\" cellspacing=\"0\">

<% Do While Not rs.EOF And intRecCount > 0 %>

<tr>
<td><font face=verdana size=2><b><% response.write rs(\"Dato\") %></b>&nbsp;</font></td>
<td><font face=verdana size=1><% response.write rs(\"KortNyhed\") %></font></td>
</tr>
<%  intRecCount = intRecCount - 1
    rs.MoveNext
    Loop %>
    <tr>
    <td><font face=verdana size=1><a href=\"#AllNews\" onClick=\"openWindow(\'allenyheder.asp\',\'\',\'width=450, height=470, noresize, top=75 left=165\')\">All news</a></font></td>
    </tr>
<% else
response.write \"<td><font face=verdana size=2><b>\" & Date & \"</b>&nbsp;</td><td><font face=verdana size=1>No news at the moment</td>\" %>

<!-- News -->
</table>
</td>
</tr>
</table>
<%

End If

rs.Close
Set rs = Nothing
%>

du skal bare ændre din rs.PageSize til 5 istedet for 3

invisibleman >> jo, jeg kan være enig i det.

cthun >> hmmm...jeg tror ikke det var paging som var ønsket...

nute >> Så er du sur???

cthun >> hvorfor skulle jeg være det ??

Hmm? Den skal jeg have udpenslet :o(

Mellem <head></head> har jeg:

<%
Set connect = Server.CreateObject(\"ADODB.Connection\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database/include.mdb\")
Connect.Open strDSN
Set include = Connect.Execute(\"SELECT * FROM debat\")
%>

<%
SQL = \"SELECT TOP 5 * FROM debat ORDER BY dato DESC\"
%>

Mellem <body></body> har jeg:

<span class=\"sorttekst\">response.write LEFT( rs(\"nickname\"), 40 ) & \"<br>\"</span>

Dette er hvad der bliver vist:

response.write LEFT( rs(\"nickname\"), 40 ) & \"
\"

Det er åbenlyst ikke sat rigtigt op. Du bliver nødt til at \"tage mig i hånden\" og vise mig helt nøjagtigt, hvad jeg skal skrive, og hvor det skal stå.

Jeg har en database, der hedder \"include.mdb\". I databasen har jeg en tabel, der hedder \"debat\"

<html>
<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
dbConn = \"SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"include.mdb\")
Conn.open dbConn

SQL = \"SELECT TOP 5 * FROM debat ORDER BY ID DESC\"
RS = Conn.Execute( SQL )

while NOT RS.EOF
  response.write LEFT(RS(\"nickname\"),40) & \"<br>\"
  RS.MoveNext
wend
RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>
</body>
</html>

/nute

nute, jeg får en fejlmeddelelse:

Microsoft VBScript runtime error \'800a01b6\'

Object doesn\'t support this property or method: \'EOF\'

MitASP-Dokument.asp, line 46

Linie 46: while NOT RS.EOF

?

uha...bytt denne linje:

RS = Conn.Execute( SQL )

ut med denne linje:

Set RS = Conn.Execute( SQL )

/ntue

Det VIRKER! :o)

nute, jeg vil gerne have vist flg. (bundlinie.gif er en seperator):

OVERSKRIFT
[..........bundlinie.gif.........................]

[nickname1]        [Emne]
[kommentar](40 karakterer):sdj fklh fjkh
                          sdufh sdulfh sdl sdjfkl
                          sdfsfd asdful sdfg s
[..........bundlinie.gif.........................]

[nickname2]          Emne: [Emne]
[kommentar](40 karakterer):sdj fklh fjkh
                          sdufh sdulfh sdl sdjfkl
                          sdfsfd asdful sdfg s
[..........bundlinie.gif.........................]

[nickname3]        [Emne]
[kommentar](40 karakterer):sdj fklh fjkh
                          sdufh sdulfh sdl sdjfkl
                          sdfsfd asdful sdfg s
[..........bundlinie.gif.........................]

[nickname4]        [Emne]
[kommentar](40 karakterer):sdj fklh fjkh
                          sdufh sdulfh sdl sdjfkl
                          sdfsfd asdful sdfg s
[..........bundlinie.gif.........................]

[nickname5]        [Emne]
[kommentar](40 karakterer):sdj fklh fjkh
                          sdufh sdulfh sdl sdjfkl
                          sdfsfd asdful sdfg s
[..........bundlinie.gif.........................]

<a href=\"login.asp\">Login</a>

<a href=\"signup.asp\">Ikke medlem endnu? Tilmeld dig GRATIS her!</a>

<a href=\"email_password.asp\">Glemt dit password? Tryk her!</a>

Forstår du spørgsmålet? Jeg har ikke udtrykt mig ordentligt fra start, men det var det her jeg mente.

[..........bundlinie.gif.........................]

[nickname1]        [Emne]
[kommentar](40 karakterer):sdj fklh fjkh
                          sdufh sdulfh sdl sdjfkl
                          sdfsfd asdful sdfg s
[..........bundlinie.gif.........................]

<html>
<body>

<table width=\"500\">
  <tr>
      <td colspan=\"2\">
            OVERSKRIFT       
        </td>
    </tr>
  <tr>
      <td colspan=\"2\">
            <img src=\"bundlinje.gif\" border=\"0\" alt=\"\">
        </td>
    </tr>   
    <%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    dbConn = \"SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"include.mdb\")
    Conn.open dbConn
   
    SQL = \"SELECT TOP 5 * FROM debat ORDER BY ID DESC\"
    Set RS = Conn.Execute( SQL )
   
    while NOT RS.EOF
      response.write \"<tr><td width=\"\"50%\"\">\" & RS(\"nickname\") & \"</td>\"
        response.write \"<td width=\"\"50%\"\">\" & RS(\"emne\") & \"</td></tr>\"
        response.write \"<tr><td colspan=\"\"2\"\">\" & LEFT( RS(\"kommentar\"), 40 ) & \"</td></tr>\"
        response.write \"<tr><td colpan=\"\"2\"\"><img src=\"\"bundlinje.gif\"\" border=\"\"0\"\"></td></tr>\"
      RS.MoveNext
    wend
    RS.Close
    Set RS = nothing
    Conn.Close
    Set Conn = nothing
    %>
</table><br>
<a href=\"login.asp\">Login</a><br>
<a href=\"signup.asp\">Ikke medlem endnu? Tilmeld dig GRATIS her!</a><br>
<a href=\"email_password.asp\">Glemt dit password? Tryk her!</a>
</body>
</html>

hov...de linjene som ligger over \'<html>\' skal ikke være med :)

10-4 :o)

Kan du ikke svare på denne her: http://www.eksperten.dk/spm/143813

Håber du er her endnu, nute:

Hvis jeg skriver lidt tekst, og laver
et linieskift, og

her et dobbelt, så kommer det til at se sådan her ud:

Hvis jeg skriver lidt tekst, og laver et linieskift, og her et dobbelt, så kommer det til at se sådan her ud:

Dvs. det hele bliver kørt ud i én smøre. Hvordan bibeholder jeg de linieskift, som folk laver?

Jeg har sat lidt point af på http://www.eksperten.dk/spm/173049

Hvis jeg skrev mit indlæg, ville det se sådan her ud:

Håber du er her endnu, nute: Hvis jeg skriver lidt tekst, og laver et linieskift, og her et dobbelt, så kommer det til at se sådan her ud: Hvis jeg skriver lidt tekst, og laver et linieskift, og her et dobbelt, så kommer det til at se sådan her ud: Dvs. det hele bliver kørt ud i én smøre. Hvordan bibeholder jeg de linieskift, som folk laver?

Jeg har det samme problem. Se mit script her: http://www.eksperten.dk/spm/173049..