Overskrifter

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

SQL = \"SELECT * FROM tabel\"
set rs = Conn.execute(SQL)
Do Until rs.EOF
%>
<%=rs(\"Country\")%>
<%
rs.MoveNext
Loop
%>

kan man også sætte på hvor mange der kan ses afgangen?

så viser den 10 poster :)

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")

SQL = \"SELECT TOP 10 * FROM tabel\"
set rs = Conn.execute(SQL)
Do Until rs.EOF
%>
<%=rs(\"Country\")%>
<%
rs.MoveNext
Loop
%>

det virker alså ikke..  ingen af dem =(

databasen ligger i en mappe der hedder data og den hedder guest.mdb

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data/guest.mdb\")

SQL = \"SELECT TOP 10 * FROM tabel\"
set rs = Conn.execute(SQL)
Do Until rs.EOF
%>
<%=rs(\"Country\")%>
<%
rs.MoveNext
Loop
%>

Vi skal også lige vide hvad din tabel hedder

Tabellen hedder messages

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data/guest.mdb\")

SQL = \"SELECT TOP 10 * FROM messages\"
set rs = Conn.execute(SQL)
Do Until rs.EOF
%>
<%=rs(\"Country\")%> <br>
<%
rs.MoveNext
Loop
%>

hvordan får man dem til at linke til \"default.asp\"?

det skal alle overskrifterne

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data/guest.mdb\")

SQL = \"SELECT TOP 10 * FROM messages\"
set rs = Conn.execute(SQL)
Do Until rs.EOF
%>
<a href=default.asp><%=rs(\"Country\")%></a><br>
<%
rs.MoveNext
Loop
%>

bare fordi man skal brænde en cd så snupper du lige det hele bjarke :)
(jeg lukkede outlook)

sorry Tpii.. men du fik da\' 25 af pointne... maybe next time

hehe ;-)

indhenter dig

jep det var ikke hentydet til dig det var til bjarke, det var et nemt spørgsmål :)

du mangler 5000 så det tror jeg ikke :)

hehe, you´ll never know......

DEn viser dem i den forkerte rejkefølge den skal vise de NYESTE ØVERST

jamen så klarer jeg da hurtigt lige det, men det gør du ved at bruger ORDER BY ID DESC i din SQL :)

<%
set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data/guest.mdb\")

SQL = \"SELECT TOP 10 * FROM messages ORDER BY ID DESC\"
set rs = Conn.execute(SQL)
Do Until rs.EOF
%>
<a href=default.asp><%=rs(\"Country\")%></a><br>
<%
rs.MoveNext
Loop
%>