jeg har en loop inde i en tabel som jeg ikke kan få til at virke
Jeg har følgende kode:<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={MySQL ODBC 3.51 Driver}; Server=kursus314; Database=pumps_n_pipes; Uid=root;Pwd=;"
strSQL = "SELECT * FROM orderhead, orderline WHERE orderhead.OrderNo=orderline.OrderNo AND orderhead.OrderNo=19"
set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
'Do
Response.Write"<table border='1' cellpadding='0' cellspacing='0' summary='' width='100%'>"&_
"<tr><td><b>Ordre Nr: </b></td><td>"& rs("OrderNo") &"</td><td colspan='2'></td><td><b>Leveringsdato: </b></td><td>"& rs("DeliveryDate") &"</td></tr>" &_
"<tr><td><b>Navn: </b></td><td>"& rs("InvoiceToName") &"</td><td colspan='2'></td><td><b>Bogført dato: </b></td><td>"& rs("AccountingDate") &"</td></tr>" &_
"<tr><td colspan='1'><b>Adresse: </b></td><td colspan='5'>"& rs("InvoiceToAddr1") &"</td></tr>" &_
"<tr><td colspan='1'><b>By: </b></td><td colspan='5'>"& rs("InvoiceToCity") &"</td></tr>" &_
"<tr><td colspan='1'><b>Postnr: </b></td><td colspan='5'>"& rs("InvoiceToPostalCode") &"</td></tr>" &_
"<tr><td colspan='1'><b>Tlf: </b></td><td colspan='5'>"& rs("InvoiceToPhoneNo") &"</td></tr>" &_
"<tr><td colspan='1'><b>Email: </b></td><td colspan='5'>"& rs("InvoiceToEmail") &"</td></tr>" &_
"<tr><td colspan='1'><b>CVR Nr: </b></td><td colspan='5'>"& rs("InvoiceToCVR") &"</td></tr>" &_
Do
Response.Write"<tr><td>" & rs("ItemNo") & "</td><td>" & rs("Quantity") & "</td><td>" & rs("Weight") & "</td><td>" & rs("TotalWeight") & "</td><td>" & rs("Text") & "</td><td>" & rs("ItemPrice") & "</td><td>" & rs("LineTotal") & "</td><td>" & rs("Discount") & "</td><td>" & rs("LineDiscount") & "</td><td>" & rs("LineDate") & "</td></tr>"
rs.MoveNext
Loop While Not rs.EOF
'Response.Write"<tr><td><b>Rabat: </b></td><td>"& rs("Discount") &"</td><td><b>Pris Eksl. moms: </b></td><td>"& rs("TotalExclVAT") &"</td><td><b>Pris Incl. moms: </b></td><td>"& rs("TotalInclVAT") &"</td></tr>" &_
"<tr><td colspan='1'><b>Bemærkninger: </b></td><td colspan='5'>"& rs("Remarks") &"</td></tr>" &_
"</table>"
'response.write "<tr><td colspan='1'><b>Bemærkninger: </b></td><td colspan='5'>"& rs("Remarks") &"</td></tr></table>"
' Gå til næste Record i rs
'rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
'Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
Jeg får godt nok loopen udskrevet, men det efter loopen kommer ikke med
Måske nogen kan hjælpe
