Felter skal udfyldes i Loop
Hej, jeg har dette loop jeg kører igennem, og får x antal felter frem. Hvordan laver jeg en funktion for at sikrer alle felter bliver udfyldt?Do while not rs.eof
strSQL2 = " Select * from sellers where phoner_id = '" & rs("phoner_id") & "'"
Set na = Conn.Execute(strSQL2)
If BGColor = True Then
strBG = "#EDEDED"
BGColor = False
Else
strBG = "#FFFFFF"
BGColor = True
End If
Response.Write "<tr bgcolor='" & strBG & "'><td> " & day(rs("date"))&"-"&month(rs("date"))&"-"&year(rs("date")) & "</td><td>" & rs("phoner_id") & "</td><td>" & name & "</td><td>" & rs("calls") & "</td><td>" & rs("orders") & "</td><td><input maxlength='2' name='" & rs("report_id") & "' size='7'></td></tr>"
rs.MoveNext
Loop
Det er altså felterne rs("report_id")
På forhånd tak for hjælpen!
