Plocka ut från flera databasfiler med 2 loopar

Hur ser dina tabeller ut?

Om du tar View Source när du laddar din sida i en browser så ser du snabbt vad som är fel:

Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'rs(...).eof' /varor_smak.asp, line 293

Oftast när "inget syns" i en drop-down är det ett fel som syns när det skrivs ut då den texten kommer i själva <select ... </select> koden.

cya,
PatrikB

I produkter ser det ut så här
prodid (ID nummer)
item (Varugrupp)
vara
pris
smak
aktiv (true /False)

tblSmak filenser ut så här
smak (bokstaäver A,B osv)
ssmak (olika smaker som tillhör olika grupper av bokstäver)

Det har inte med det där att göra. Du kan inte använda metoden .eof på ett specifikt fält som du gör ovan, det måste göras på själva objektet, alltså ditt recordset.

<%
if "" & rs("smak") <> "" then 
    Response.Write "<select name=""smak"" class=""form_varor"">"

    [b]While Not rs.EOF[/b]
      Response.Write "<option value=""" & rs("ssmak") & """>" & rs("ssmak") & "</option>"

      rs.MoveNext
    Wend

    Response.Write "</select>"
  End If
%>

Problemet då är att då funkar det inte pga att jag en loop innan som ligger där kika på sidan

Ok, jag tror jag fattar. Men isåfall är det nog snarare så att det är enklare att göra om strukturen.

Om du hämtar alla smaker och produktens information i samma recordset och sedan skall loopa ut dem i olika former (om man nu säger så) kommer du få problem. Vi gör två recordset istället, det tjänar man nog på, förutom möjligtvis lite i prestanda.

Du får se över de två röda raderna, eftersom jag inte riktigt vet ifall kolumnnamn och liknande stämmer.

[red]set rs = conn.execute("SELECT * FROM table")[/red]

while not rs.eof 
   response.write rs("produktnamn")

   [red]set rsS = conn.execute("SELECT * FROM smak WHERE smakId = " & rs("smakId") & "")[/red]
   if not rsS.eof then
      Response.Write "<select name=""smak"" class=""form_varor"">"

      While Not rsS.EOF
         Response.Write "<option value=""" & rsS("ssmak") & """>" & rsS("ssmak") & "</option>"
         rsS.MoveNext
      Wend

      Response.Write "</select>"
   end if

rs.movenext
wend

Har du fått bukt med felmeddelandet jag postade här ovan???? eller har du missat det?

/PatrikB

PatrikB skrev:

Har du fått bukt med felmeddelandet jag postade här ovan???? eller har du missat det?

/PatrikB

Det berodde, som sagt på while not rs("kol").eof, som ju var lite galet. ;)

Skrev koden så här

<%
psmak = rs("smak")
sql1 = "SELECT * FROM tblSmak WHERE smak = " & psmak & ""
set rsS=Server.CreateObject("ADODB.Recordset")
rsS.Open sql1, conn

if not rsS.eof then
      Response.Write "<select name=""smak"" class=""form_varor"">"

      While Not rsS.EOF
         Response.Write "<option value=""" & rsS("ssmak") & """>" & rsS("ssmak") & "</option>"
         rsS.MoveNext
      Wend

      Response.Write "</select>"
   end if

%>

och får detta

SQLState: 07001
Native Error Code: -3010
[INTERSOLV][ODBC SequeLink driver][ACCESS][Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/varor_smak.asp, line 292

jag hittar inte felet

Felmeddelandet betyder att du har ett tabell- eller fältnamn som inte stämmer. Min gissning är att fältet smak är ett textfält, och därmed skall ha apostrofer runt värdet, annars tolkas det ju som ett fältnamn.

sql1 = "SELECT * FROM tblSmak WHERE smak = '" & psmak & "'"

Mvh