Avatar billede wareagle Nybegynder
20. august 2002 - 20:02 Der er 11 kommentarer og
1 løsning

Nyheder

Hej hvordan for jeg koden fra http://www.eksperten.dk/spm/241660 ( Kommentar no 1 ) til at vise alle 16 nyheder på samme måde

/WarEagle
Avatar billede flax Nybegynder
20. august 2002 - 20:04 #1
SQLstmt1 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"
SQLstmt2 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 1, 16;"
'
'response.write SQLstmt


my_conn.Execute (SQLstmt1)
my_conn.Execute (SQLstmt2)


Set rs7 = my_conn.Execute(SQLstmt1)
Set rs11 = my_conn.Execute(SQLstmt2)
Avatar billede wareagle Nybegynder
20. august 2002 - 20:09 #2
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/news.mdb")

SQLstmt1 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"
SQLstmt2 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 1, 16;"
'
'response.write SQLstmt


my_conn.Execute (SQLstmt1)
my_conn.Execute (SQLstmt2)


Set rs7 = my_conn.Execute(SQLstmt1)
Set rs11 = my_conn.Execute(SQLstmt2)

<font color="" size="2"><b><%=rs("title")%></b></font><br>| <b><%=rs("date")%><br></b>
<%=left(rs("news"),180)%>..<br>
<b><a href="news.asp?ID=<%=rs("id")%>">Läs hela</a></b><br><br>
<% end if
  rs.MoveNext
loop
%>
Avatar billede wareagle Nybegynder
20. august 2002 - 20:10 #3
sådan eller er det helt i skoven
Avatar billede wareagle Nybegynder
20. august 2002 - 20:11 #4
der skal ikke kun vær 16 nyheder antalet er lige meget
Avatar billede flax Nybegynder
20. august 2002 - 20:11 #5
det er forkert..!
Avatar billede wareagle Nybegynder
20. august 2002 - 20:12 #6
hvordan så asp er ikke min stærke side
Avatar billede flax Nybegynder
20. august 2002 - 20:12 #7
du skal ændre ser rs7 og rs11 til rs1 og rs2
Avatar billede flax Nybegynder
20. august 2002 - 20:13 #8
mener jeg, og så kan du bare ændre LIMIT 1, 16 til LIMIT 1, *
Avatar billede exp-ralle Nybegynder
20. august 2002 - 20:14 #9
ja du skal nok lige rette de steder hvor der står rs (rs("title") fx.) til rs7 eller rs11
Avatar billede flax Nybegynder
20. august 2002 - 20:15 #10
ja eller du kan bare rette
SQLstmt1 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"
SQLstmt2

til

SQLstmt7 = "SELECT * FROM nyheder ORDER BY id DESC LIMIT 0, 1;"
SQLstmt11

Det er lettere :-)
Avatar billede wareagle Nybegynder
20. august 2002 - 20:22 #11
kunne i prøve at sætte det ind her

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/news.mdb")

SQL = "SELECT TOP 16 * From news Order By Id Desc"
Set rs = MinCon.Execute(SQL)

firstPost = true
do while not rs.EOF
  if firstPost = true then
    firstPost = false
%> <font color="" size="2"><b><%=rs("title")%></b></font><br>
Skrivet av: <b><a href="mailto:<%=rs("email")%>"><%=rs("author")%></a></b> | <b><%=rs("date")%><br></b>
<%=left(rs("news"),180)%>..<br>
<b><a href="news.asp?ID=<%=rs("id")%>">Läs hela</a></b><br><br>
<% else %>
<font color="" size="2"><b><%=rs("title")%></b></font><br>| <b><%=rs("date")%><br></b>
<%=left(rs("news"),180)%>..<br>
<b><a href="news.asp?ID=<%=rs("id")%>">Läs hela</a></b><br><br>
<% end if
  rs.MoveNext
loop
%>

(grund koden)
Avatar billede wareagle Nybegynder
21. august 2002 - 12:59 #12
luk
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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