Flere tabeller af gangen!
Jeg er ved at lave en webshop, men jeg ved ikk hvordan det hænger sammen når man skal hente data fra flere tabbeller som én.. help:Jeg har flere tabeller med andre varer, men dem vil min webshop ikke tilføje til kurven :(
tabeller: varer1, varer2, varer3, varer4, varer5, varer6
<%
'Åben databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("/db/db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT produkt, pris, ImageURL FROM varer1"
rs.Open SQL, Conn
rs.MoveFirst
Function GetItemParameters(iItemID)
'Open database
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("/db/db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT* FROM varer1 WHERE produktnummer like '%" & iItemID & "%'"
rs.Open SQL1, Conn
rs.MoveFirst
Dim aParameters
aParameters = Array(rs("ImageURL"), rs("produkt"), rs("pris"))
' Return array containing product info.
GetItemParameters = aParameters
End Function
%>
help... Ron
