Billeder fra DB, i tabel med 3 billeder i breden og så bare nedaf

Prøv sådan her:


<% if Request.QueryString("vis")="produkt" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("man.mdb")
Conn.Open DSN

SQL = "Select * FROM Produkter WHERE ProduktNummer=" & Request.QueryString("id")
Set rs = Conn.Execute(SQL)

antalPrRow=3
noPrRow=0
Response.Write "<table>"
do while not rs.EOF
  if noPrRow=0 then Response.Write "<tr>"
  Response.Write "<td>"
  Response.Write "<img src=""" & rs("billede") & """>"
  Response.Write "</td>"
 
  noPrRow=noPrRow+1
  if noPrRow=antalPrRow then
    Response.Write "</tr>"
    noPrRow=0
  end if
  rs.Movenext
loop
if noPrRow>0 then Response.Write "</tr>"
Response.Write "</table>"
%>

!!!!!!!!!!

<%
Conn.Close
Set Conn = Nothing
end if %>

Den kommer med denne fejl...:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

vis.asp, line 333

det lyder enten som om Request.QueryString("id") er tom, altid der er ikke overført et ID til siden. Eller ProduktNummer kolonnen er defineret som tekst?

den får dette input: default.asp?vis=produkt&id=3039

Og kolonnen i DB type er tal

ok prøv at lave SQL linje om til dette, med klammer omkring måske der er noget som driller den:

SQL = "Select * FROM [Produkter] WHERE [ProduktNummer]=" & Request.QueryString("id")

Den gør det sgu stadig... linie 333 er den linie hvor der står:
Set rs = Conn.Execute(SQL)

Men hvis det gør en forskel så ligger den inde i en anden DB-udtræk !

Det lyder noget underligt hvis disse to linjre er lige efter hinanden:

SQL = "Select * FROM Produkter WHERE ProduktNummer=" & Request.QueryString("id")
Set rs = Conn.Execute(SQL)


Du er sikker på kolonnen ikke hedder ProduktID eller ??
Du kan evt. prøve at udskrive SQL sætningen og se det er den rigtige:

SQL = "Select * FROM Produkter WHERE ProduktNummer=" & Request.QueryString("id")
Response.Write SQL
Response.End
Set rs = Conn.Execute(SQL)

Det virker ikke, vil du prøve at have filen over til dig...?

Udskriver den ikke noget ved det sidste?
den skulle gerne skrive  Select * FROM Produkter WHERE ProduktNummer=3039

den skriver bare:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

vis.asp, line 333

Hvis du har lavet :

SQL = "Select * FROM Produkter WHERE ProduktNummer=" & Request.QueryString("id")
Set rs = Conn.Execute(SQL)

om til disse:

SQL = "Select * FROM Produkter WHERE ProduktNummer=" & Request.QueryString("id")
Response.Write SQL
Response.End
Set rs = Conn.Execute(SQL)


Så er fejlen et andet sted for den stopper koden i Response.End.

Okay... sorry...

Bare kald mig dum, det var kun et af de første kommentare der var rigtige, efter din kommentar kl. 21:57:44 begyndte jeg åbenbart at uploade i en anden mappe...! spørg mig ikke hvordan jeg er havnet der, men det undskylder jeg for...

Selfølgelig skal du have point...
Undskyld ulejligheden...