Gruppere SQL udtræk

Slet ikke nogen ?

Du kan lave det sådan her, du skal lige havde rettet SQL sætningen sådan tabel navnet passer med din og connectionen passer med din database:


<%
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db10.mdb")

SQL = "select * from tblnavnet order by source, target"
Set rs=Conn.Execute(SQL)

Response.Write "<table>"
oldSource = ""
do while not rs.EOF
  if oldSource <> rs("source") then
    oldSource = rs("source")
    Response.Write "<tr><td colspan=""3""><b>" & rs("source") & ":</b></td></tr>"
  end if
  Response.Write "<tr>"
  Response.Write "<td>" & rs("target") & "</td>"
  Response.Write "<td>" & rs("packets") & "</td>"
  Response.Write "<td>" & rs("bytes") & "</td>"
  Response.Write "</tr>"
  rs.MoveNext
loop
Response.Write "</table>"
%>

Det er jo mildest talt smukt *får tårer i øjnene* Takker ;)