charkprodukter.asp består av ram1 (chark.asp), en sida som listar produkterna från databasen och ram2 (produktsvar.asp) där information om produkten spaltas upp.
chark.asp (kod):
<%Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=" & Server.MapPath("admin/jm.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Produkt ORDER BY Namn"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<%Do Until RecSet.EOF %>
<a href="produktsvar.asp?id=<%=RecSet("ProduktID")%>" target="svar"><%=RecSet("Namn") %></a><br>
<% RecSet.MoveNext
Loop
RecSet.Close %>
Denna kod fungerar bra och produkterna listas från db:n.
produktsvar.asp (kod):
<%Set Connect = Server.CreateObject("ADODB.Connection")Connect.Open "DBQ=" & Server.MapPath("admin/jm.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RecSet = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Namn, Bild, Kottmangd FROM Produkt, Kottmangd WHERE ProduktID = " & Request.Querystring("id")
Set RecSet = Connect.Execute (strSQL)%>
<ul>
<li><b><% =RecSet("Namn") %></b><br>
<br>
<img src="<% =RecSet("Bild") %>"<br>
<br>
<b>Köttmängd: </b><% =RecSet("Kottmangd") %>
Namn och bild som hämtas från orodukt-tabellen visas rätt när man klickar på produkt-länken i ram1 (chark.asp) men köttmängden som hämtas från tabellen Kottmangd blir densamma för alla produkter även om de har olika värden i db:n. Någon som kan svara på varför det blir så?
Använd kod-taggen, till att börja med. Vänta..
<%Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=" & Server.MapPath("admin/jm.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Produkt ORDER BY Namn"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<%Do Until RecSet.EOF %>
<a href="produktsvar.asp?id=<%=RecSet("ProduktID")%>" target="svar"><%=RecSet("Namn") %></a><br>
<% RecSet.MoveNext
Loop
RecSet.Close %>
Denna kod fungerar bra och produkterna listas från db:n.
produktsvar.asp (kod):
<%Set Connect = Server.CreateObject("ADODB.Connection")Connect.Open "DBQ=" & Server.MapPath("admin/jm.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RecSet = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Namn, Bild, Kottmangd FROM Produkt, Kottmangd WHERE ProduktID = " & Request.Querystring("id")
Set RecSet = Connect.Execute (strSQL)%>
<ul>
<li><b><% =RecSet("Namn") %></b><br>
<br>
<img src="<% =RecSet("Bild") %>"<br>
<br>
<b>Köttmängd: </b><% =RecSet("Kottmangd") %>