Okay har lige en sidste ting da jeg ikke kan få det til at vise de datoer son er > end NOW().
http://www.billundfodbold.dk/bif/team&results/top_program.aspKan det gøres letter end dette !? den kode der viser de 5 kampe som er <= NOW() har jeg ændret > til <= og den virker, men ikke denne og jeg har en dato som hedder 23-03-2006 som er frem i tiden iforhold til NOW().
Håber du lige vil kigge på denne lille sidste ting.
Og mange tak...
min kode er:
Sub Comming_Play()
Dim cnstDBPath
cnstDBPath = ("\dsn.mdb")
Dim strProvider
Set objConn = Server.CreateObject("ADODB.Connection")
strProvider = "" & "Provider=Microsoft.Jet.OLEDB.4.0;"
strProvider = strProvider & "Data Source=" & cnstDBPath & ";"
strProvider = strProvider & "Persist Security Info=False"
objConn.Connectionstring = strProvider
set fso = Server.CreateObject("Scripting.FileSystemObject")
objConn.Open
strSQL = "SELECT TOP 5 [TName], [MDate], [HTeam], [ATeam], [TScore] FROM Program"
strSQL = strSQL & " WHERE [MDate] >#"&DateFormater(Now(), "dd-mm-yyyy hh:nn", 0)&"#"
strSQL = strSQL & " AND [TScore] LIKE '%-%'"
strSQL = strSQL & " ORDER BY [MDate] DESC;"
Set objRS = objConn.Execute(strSQL)
If Not (objRS.BOF or objRS.EOF) Then
Response.Write("This is the Comming Match<br><br>")
Do While Not objRS.EOF
strTName = objRS("TName")
strMDate = objRS("MDate")
strHTeam = objRS("HTeam")
strATeam = objRS("ATeam")
strTScore = objRS("TScore")
Response.Write(strTName&" "&strMDate&" "&strHTeam&" "&strATeam&" "&strTScore&"<br><br>")
objRS.MoveNext
Loop
Response.Write ("")
Else
Response.Write "Der er ikke nogle kampe tilbage i denne sæson."
End If
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
End Sub