udtræk fra db..

sql strengen skal se sådan her ud:

select top 5 id, left(nyhed,20) as nyhed from tabel order by dato

og så udskriver du bare sådan her:

<%
while not rs.eof
  response.write rs("nyhed")
  if len(trim(rs("nyhed")))= 20 then response.write "..."
  response.write "<br><a href=""link.asp?id=" & rs("id") & ">Læs mere</a><br><br>"
  rs.movenext
wend
%>

Har du et eksempel??
Er ikke helt sikker...:o)

Øhh... eksemplet er jo lige der.  du skal bare lave din database connection og åbne recordsettet (og huske at lukke dem igen efter du er færdig med at bruge dem).  Og selvfølgelig lige huske at ændre tabel og feltnavne til dem, du har i din database.

Hvis jeg har min dbconn i en anden fil kan jeg så bare includere den i toppe??

El. det er måske smarter at lave forbindelse - hente data - og lukke igen.

Får en fejl...

Microsoft VBScript compilation error '800a03fd'

Expected 'Case'

/left.asp, line 15

select top 2 id, left(nyhed,15) as nyhed from tabel order by dato
-------^

Kan du se hvad der er galt?

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("news/nyheder.mdb")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news/nyheder.mdb")

strSQL = "select top 2 id, left(Nyhed,15) as Nyhed from nyheder order by dato"

while not rs.eof
  response.write rs("Nyhed")
  if len(trim(rs("Nyhed")))= 15 then response.write "..."
  response.write "<br><a href=""link.asp?id=" & rs("id") & ">Læs mere</a><br><br>"
  rs.movenext
wend

Conn.Close
Set Conn = Nothing

Prøv med den her (du havde lige et par overflødige linjer med... og så skriv, den præcise fejlkode, du får, samt indiker linjen, der er fejl i.

Og husk lige at tilpasse felt- og tabelnavnene, så de hedder det samme som i din database. Både i sqlstrengen og der hvor du udskriver indholdet af recordsettet.


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news/nyheder.mdb")

strSQL = "select top 2 id, left(Nyhed,15) as Nyhed from nyheder order by dato"

'åbn recordsettet
set rs = conn.execute(strSQL)

'udskriv indholdet af recordsettet
while not rs.eof
  response.write rs("Nyhed")
  if len(trim(rs("Nyhed")))= 15 then response.write "..."
  response.write "<br><a href=""link.asp?id=" & rs("id") & ">Læs mere</a><br><br>"
  rs.movenext
wend

Conn.Close
set rs = nothing
Set Conn = Nothing

Så får jeg denne...

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters

/test_agm/left.asp, line 22

Line 22:
set rs = conn.execute(strSQL)

Gentager lige paragraf 2 fra forrige svar:

Og husk lige at tilpasse felt- og tabelnavnene, så de hedder det samme som i din database. Både i sqlstrengen og der hvor du udskriver indholdet af recordsettet.

Ja du havde ret... jeg havde klokket i det...
Hvis de skal være sorteret efter dato og tid kan jeg så bare skrive & TIME

Dato er navnet på dit datofelt - så længe du har gemt både dato og klokkeslet i feltet,  sorterer den efter begge.

Så tager den bare den ældste først...hmm...

så skal du skrive "...ORDER BY dato DESC" - altså tilføj "DESC" til enden af din sqlstreng.

Super mange tak for hjælpen....