ojbRS("hvad går der galt")
Hvorfor kan jeg ikke udskrive objRS("vareid") ??Det er den de 2 tabeller er i rellation på !!
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objconn
SQL2 = "SELECT [Ordrelinie].[Ordrenr], [Ordrelinie].[Vareid] AS Ordrelinie_Vareid, [Ordrelinie].[Farve], [Ordrelinie].[Antal], [varer].[vareid] AS varer_vareid, [varer].[varenavn], [varer].[varebeskrivelse], [varer].[size1], [varer].[size2], [varer].[size3], [varer].[size4], [varer].[color1], [varer].[color2], [varer].[color3], [varer].[color4], [varer].[varepris], [varer].[lager], [varer].[pic], [varer].[Kategori] FROM varer INNER JOIN Ordrelinie ON [varer].[vareid] =[Ordrelinie].[Vareid] WHERE [ordrelinie].[ordrenr]=" & ordrenr & ";"
objRS.Open SQL2
If objRS.EOF Then
Response.Write "<font color=red><b>Ingen Odrer !!</b></font>"
Else
Response.Write "<TABLE WIDTH=50% BORDER=1 CELLSPACING=0 CELLPADDING=0>"
Response.Write "<TR>"
Response.Write "<TD><b>Varenavn</b></TD>"
Response.Write "<TD><b>Farve</b></TD>"
Response.Write "<TD><b>Størrelse</b></TD>"
Response.Write "<TD><b>Antal</b></TD>"
Response.Write "<TD> </TD>"
Response.Write "</TR>"
Do while not objRS.EOF
farve = objRS("farve")
vareid = objRS("varenavn")
Response.Write "<TR>"
Response.Write "<TD>"& objRS("varenavn") &"</TD>"
Response.Write "<TD>"& farve &"</TD>"
Response.Write "<TD>.</TD>"
Response.Write "<TD>"& objRS("Antal") &"</TD>"
Response.Write "<TD><a href=""ordresevare.asp?vareid="">Se Annonce</a></TD>"
Response.Write "</TR>"
objRS.Movenext
Loop
Response.Write "</TABLE>"
End if
