datoen skal køres igennem den her function for at få det rigtige format.
<%
Function ConvertToSqlDate(dato)
dim SQLYear,SQLMonth,SQLDay
SQLYear = Year(dato)
SQLMonth = Month(dato)
SQLDay = Day(dato)
if SQLDay<10 then
SQLDay = 0&SQLDay
end if
if SQLMonth<10 then
SQLMonth = 0&SQLMonth
end if
ConvertToSqlDate = SQLMonth&"-"&SQLDay&"-"&SQLYear
End Function
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("data.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
strSQL = "SELECT * FROM premiere WHERE dato >#" & ConvertToSqlDate(date()) & "# ORDER BY dato ASC"
Set rs = objConn.Execute(strSQL)
Do While Not rs.EOF
id = rs("id")
titel = rs("titel")
link = rs("link")
pic = rs("pic")
dato = rs("dato")
%>
<tr valign="top">
<td width="100"><a href="
http://www.filmnet.dk/trailer.asp?id=<%=link%>"><img src="pics/<%=pic%>" width="80" height="117" border="0"></a></td>
<td width="265" class="tekstboks"><strong>Titel:</strong><br><a href="
http://www.filmnet.dk/trailer.asp?id=<%=link%>"><strong><%=titel%></strong></a><br><br> <strong>Premiere:</strong><br><%=dato%><br><br>- <a href="
http://www.filmnet.dk/trailer.asp?id=<%=link%>">Se flere detaljer</a>
</td>
</tr>
<tr valign="top">
<td width="100"> </td>
<td width="275" class="tekstboks"> </td>
</tr>
<%
rs.movenext
loop
rs.Close
objConn.Close
%>