Prøv istedet:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/test.mdb")
Conn.Open DSN
strSQL = "Select * from test"
Set rs = Conn.Execute(strSQL)
if not RS.eof then
response.write "<TABLE CELLSPACING=""0"" CELLPADDING=""2""
BORDER=""0"">"
Do While not RS.eof
Response.write "<TR><TD><a href=" & rs("URL") & " target='_blank'>"
& rs("test") & "</TD></TR>"
rs.MoveNext
Loop
response.write "</TABLE>"
Conn.Close
Set Conn = Nothing
%>
"Lars Hørmann" <hoermann@sol.dk> wrote in message
news:9ovccn$sko$1@sunsite.dk...
> Hej NG!
> Jeg ønsker i et access database udtræk at lave en tabel med celler som man
> kan definere i scriptet (størrelse farver mm.)
> Der skal oprettes en ny celle for hver post der skrives til siden. Jeg
> bruger nedenstående script nu - men her kommer de bare ud på en kedelig
> række!!
>
> <%
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath ("/test.mdb")
> Conn.Open DSN
>
> strSQL = "Select * from test"
>
> Set rs = Conn.Execute(strSQL)
>
> Do
>
> Response.write "<a href=" & rs("URL") & " target='_blank'>" & rs("test") &
> "<br>"
>
> rs.MoveNext
>
> Loop While Not rs.EOF
>
>
> Conn.Close
> Set Conn = Nothing
>
> %>
>
> Jeg har en ide om at det er et eller andet med at få scriptet til at
skrive
> "tabel start" og "celle start" efter hver post er skrevet, for så at
skrive
> "tabel slut" efter sidste post er udtrukket..!
>
> Håber der er en der har en løsning!
>
> På forhånd TAK!
>
> Venligst Lars Hørmann
>
>