Hentning fra database

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("opskrift.mdb")
SQL = "SELECT * FROM opskrifter"
Set rs = Conn.Execute(SQL)

if rs.eof then
response.write "Ingen opskrifter"
else
do until rs.eof

Response.write rs("ingrediens") & "<br>"

rs.movenext
loop

end if

Conn.close
Set Conn = Nothing
%>

Bare et eksempel

men hvordan sætter jeg link på og henviser til den nye side?

nyside.asp?vinter=forret

PÅ den nye side kommer din SQL til at se sådan ud

SQL = "SELECT * FROM opskrifter WHERE felt = '" & request("vinter") & "'"

set oRs = conn.Execute("select * from RetType")
do while not oRs.eof
  response.write "<a href=""RetType.asp?ID="&oRs("id")&""">"& oRs("type") &"</a><br>"& chr(13)
  oRs.MoveNext
loop               

"RetType.asp"
dim RetTypeID
RetTypeID = request.querystring("ID")
oRs = conn.execute("select opskrift.* from (opskrift left join Op2Ty on opskrift.id=Op2Ty.oID) where Op2Ty="&RetTypeID)
do while not oRs.eof
  Response.write "<a href=""Visopskrift.asp?ID="&oRs("id")&""">"& oRs("type") &"</a><br>"& chr(13)  oRs.eof
loop

"Visopskrift.asp"
dim OpID
OpID = request.querystring("ID")
set oRs = conn.Execute("select * from opskrift where id="& OpID)
do while not oRs.eof
  Skriv opskriften ud
  oRs.MoveNext
loop

Her har du lidt at arbejde med. Håber du forstod det. Jeg smutte lige et par timer nu, så hvis der ikke er andre der har hjulpet dig inden da, skal jeg nok komme tilbage.

Når så langt så godt, første del virker og ser sådanne her ud:

<!-- #include file="data.asp" -->
<%
Call OpenDataBase("opskrift.mdb")

Dim obj

Set obj = objConn.Execute("select * from RetType")
  do while not obj.eof
  response.write "<a href=""RetType.asp?ID="&obj("id")&""">"& obj("type") &"</a><br>"& chr(13)
  obj.MoveNext
loop               
    %>

Men anden del kan jeg bare ikke få til at virke, den ser sådanne her ud:

<!-- #include file="data.asp" -->
<%
Call OpenDataBase("opskrift.mdb")
dim RetTypeID
RetTypeID = request.querystring("ID")
obj = objConn.Execute("select opskrift.* from (opskrift left join Op2Ty on opskrift.id=Op2Ty.oID) where Op2Ty="&RetTypeID)
do while not obj.eof
  Response.write "<a href=""Visopskrift.asp?ID="& obj("id")&""">"& obj("type") &"</a><br>"& chr(13)
loop
%>

og på den får jeg denne fejl:

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/opskrift/RetType.asp, line 6

prøv lige at skrive select strengen ud:
response.write "select opskrift.* from (opskrift left join Op2Ty on opskrift.id=Op2Ty.oID) where Op2Ty="&RetTypeID

lige før din objConn.Execute, og fortæl mig hvad den indeholder.

Lige før der hvor der står objConn.Execute??

<!-- #include file="data.asp" -->
<%
Call OpenDataBase("opskrift.mdb")
dim RetTypeID
RetTypeID = request.querystring("ID")
obj = response.write "select opskrift.* from (opskrift left join Op2Ty on opskrift.id=Op2Ty.oID) where Op2Ty="&RetTypeID objConn.Execute
do while not obj.eof
  Response.write "<a href=""Visopskrift.asp?ID="& obj("id")&""">"& obj("type") &"</a><br>"& chr(13)
loop
%>

der kommer denne fejl:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/opskrift/RetType.asp, line 6

obj = response.write "select opskrift.* from (opskrift left join Op2Ty on opskrift.id=Op2Ty.oID) where Op2Ty="&RetTypeID objConn.Execute

det kan jeg godt forstå.....
Bare dette:
response.write "select opskrift.* from (opskrift left join Op2Ty on opskrift.id=Op2Ty.oID) where Op2Ty="&RetTypeID

ikke:
obj = response.write "select opskrift.* from (opskrift left join Op2Ty on opskrift.id=Op2Ty.oID) where Op2Ty="&RetTypeID objConn.Execute

Jeg tager på skitur nu, så jeg kan først hjælpe dig igen om en uge...

Hygge

har du fået løst problemet????

ja jeg har fået løst problemet. Jeg hvade lige puselig en hel uge til det.....he he he

Det havde jeg også regnet med, men da du ikke havde lukket spørgsmålet ville jeg lige høre ;)

Takker for opmærksonheden. det hele virker fint, men syntes bare ikke at der er nogle muligheder med det. Jeg kan opbevare opsrifter. men jeg ønsker at kunne lave sæsonskemer, indkøbs guider, råvarkendskab o.s.v med det kan jeg ikke ud fr det jeg har nu. Derfor skal jeg have lavet en ny menu hvor jeg har en menu + submenu + subsubmenu og så har menuhed for at indsætte tekst i hvert menu punkt. det at sætte tekst på hvert menupunkt er nok ikke så svært, men at udregne hvordn en menu i 3 led skal være er svært. måske det var noget du vil hjælpe mig med. det hele skal kører sammen med opskrifterne.

lukker da problemet er løst

Jeg kan godt hjælpe dig med menuen, men det kræver mere info om dit site, og hvad du vil kunne lave.

det jeg skal have er en hjemmeside med højtider. Et sted hvor alle danske højtider er samlet. Brugerne skal have mulighed for at hente eventyr, julepynt, opskrifter, Læse højtidens historie og hvad der nu falder ind i kategorien "Højtider".

Kort sagt, en samling med højtider.

Det hele er eneligt meget simpelt, hvis jeg skal sige det.

Siden skal indeholde en top menu med hovedet kategorierne "Højtiderne". Der skal være mulighed for at tilføje nye da der nok vil komme nye og jeg nok vil starte med en 10 stykker da der er rimlig mange.

Hver af "Top kategorierne" skal indeholde en under menu hvor det nu er muligt at komme tætter på det emme man søger. Hvis vi tager "julen" og der trykkes på den vil der komme en menu med "Jelesange" "Julepynt" "Juleeventyr" og trykkes der på en af "Julens" undermenu fx. "juleeventyr" vil der komme en undermenu i kategorien "juleeventyr" med alle eventyrne.

Jeg håber dette er forklaring nok ellers må du spørge.