Asp og acces database

set rs = conn.execute(\"select * from tabel where kollonne1 = 1 OR kollonne1 = 4 OR kollonne1 = 6\")

do until rs.eof
response.write(rs(\"felt\"))
rs.movenext
loop
set rs = nothing

Ok det fungere fint, så er det bare lige hvordan man piller de enkelte data ud så de kan placeres rundt på websiden, det har jeg ikke helt styr på.

<%
set rs = conn.execute(\"select * from tabel where kollonne1 = 1 OR kollonne1 = 4 OR kollonne1 = 6\")
do until rs.eof  %>
<TABLE BORDER=\"0\"><TR><TD><%=rs(\"felt\")%></TD></TR></TABLE>
<%rs.movenext
loop
set rs = nothing %>

Jeg kan ikke helt få ovenstående til at virke men jeg må da erligt indrømme at jeg heller ikke er nogen haj til ASP (endu). Jeg tror at du misforstod mig lidt, det jeg mangler er en funktion der plukker nogle priser ud fra en database, de priser skal så placeres rund i en tekst på hjemmesiden.

eks.
Pris for lysekrone uden chrom \"pris1\" Med chrom koster lysekronen \"pris2\", lysekronen kan også fåes i kobber til \"pris3\"

<%
set rs = conn.execute(\"select * from tabel where kollonne1 = 1 OR kollonne1 = 4 OR kollonne1 = 6\")
do until rs.eof  %>
Pris for lysekrone uden chrom <%=rs(\"pris1\")%> Med chrom koster lysekronen <%=rs(\"pris2\")%>, lysekronen kan også fåes i kobber til <%=rs(\"pris3\")%>

<%rs.movenext
loop
set rs = nothing %>

Jeg kan ikke få det til at virke den kommer med følgende fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EA)
Der er en syntaksfejl
/Default.asp, line 26, column 5
Pris for lysekrone uden chrom <%=rs(\"pris1\")
----^

Du har vist glemt %> efter do until rs.eof ?

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">
<html>
<head>
<title>Halogenlysekrone</title>
<meta name=\"generator\" content=\"Namo WebEditor v3.0\">
</head>

<body bgcolor=\"#181617\" text=\"white\" link=\"blue\" vlink=\"purple\" alink=\"red\">

<%
\' Databaseforbindelse
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"theis.mdb\")
Conn.Open DSN

<%
set rs = conn.execute(\"select * from theis where nr = 1 OR nr = 4 OR nr = 6\")
do until rs.eof  %>
\'Pris for lysekrone uden chrom <%=rs(\"pris1\")%> Med chrom koster lysekronen <%=rs(\"pris2\")%>, lysekronen kan også fåes i kobber til <%=rs(\"pris3\")%>

<%rs.movenext
loop
set rs = nothing %>

\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

</body>
</html>


Fejlen jeg får her er:

Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0400)
En sætning var ventet
/Default.asp, line 17
<%

hvis jeg så fjerne denne i linie 17 for jeg følgende fejl:

ADODB.Recordset (0x800A0CC1)
Elementet kan ikke findes i den samling, der svarer til det anmodede navn eller ordenstal.
/Default.asp, line 20

<% her <%
set rs = conn.execute(\"select * from theis where nr = 1 OR nr = 4 OR nr = 6\")

skal fjernes!

Så fungere det mange tak for hjælpen

:-)