skriver ut så här Typ: i databasen så finns det ju ett datum på varje rad men vill bara få ut det första datumet på sidan, på alla rader finns ett datum ibland så är det kanske 4 lika datum och då vill jag få ut ett av dessa (det första datumet) och slippa skriva ut samma datum mer än en gång, så om det står 2003-10-15 i fältet datum i databasen 8 gånger så vill jag bara få ut första typ, första datumet av 2003-10-15 och slippa skriva ut "kopiorna" Testa med:skriva ut datum en gång
<code> <%=RecSet("datum")%> </code>
och får detta resultat
2003-09-24 Djurgårdens IF - Linköpings HC
2003-09-25 Västra Frölunda HC - Luleå HF
2003-09-25 Leksands IF - Timrå IK
2003-09-25 HV 71 - Brynäs IF
2003-09-25 Södertälje SK - MODO Hockey
2003-09-25 MIF Redhawks - Färjestads BK
2003-09-27 MIF Redhawks - Västra Frölunda HC
2003-09-27 MODO Hockey - Färjestads BK
2003-09-27 Linköpings HC - Södertälje SK
2003-09-27 Brynäs IF - Djurgårdens IF
2003-09-27 Leksands IF - HV 71
2003-09-27 Luleå HF - Timrå IK
vill få det att bli så här
2003-09-24
Djurgårdens IF - Linköpings HC
2003-09-25
Västra Frölunda HC - Luleå HF
Leksands IF - Timrå IK
HV 71 - Brynäs IF
Södertälje SK - MODO Hockey
MIF Redhawks - Färjestads BK
MIF Redhawks - Västra Frölunda HC
MODO Hockey - Färjestads BK
Linköpings HC - Södertälje SK
Brynäs IF - Djurgårdens IF
Leksands IF - HV 71
Luleå HF - Timrå IK
går det att lösa på ett smart sätt ? kör ju SQL så här "ORDER BY datum ASC"
och det är datum som jag vill få ut så som jag har beskrivigt.
hoppas det finns ett lätt sätt.
/TommySv: skriva ut datum en gång
<code>
Dim LastDate
Do Until RecSet.EOF
If LastDate <> RecSet("datum") Then
'Skrivut datum
LastDate = RecSet("datum")
End If
'Skriv ut poster
RecSet.MoveNext
Loop
</code>Sv: skriva ut datum en gång
av din kod skrev jag så här och det hände inget då det blev samma resultat, gjorde jag rätt?
<code> <%
SQLsats = "SELECT * FROM matcher ORDER BY datum ASC"
Set RecSet = Con.Execute(SQLsats)
Dim LastDate
Do Until RecSet.EOF
If LastDate <> RecSet("datum") Then
'Skrivut datum
LastDate = RecSet("datum")
End If
%>
<font size="2"><%=RecSet("datum")%> "><%=RecSet("hemmalag")%> - <%=RecSet("bortalag")%></font><br>
<font size="2">
<% RecSet.MoveNext
loop
%> </code>Sv: skriva ut datum en gång
<code>
<font size="2">
<%
strSQL = "SELECT * FROM matcher ORDER BY datum ASC"
Set RecSet = Con.Execute(strSQL)
Dim LastDate
Do Until RecSet.EOF
If LastDate <> RecSet("datum") Then
LastDate = RecSet("datum")
Response.Write "<B>" & LastDate & "</B><BR>"
End If
Response.Write "" & RecSet("hemmalag") & " - " & RecSet("bortalag") & "<br>"
%>
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
%>
</font>
</code>