Fejl i dato kode

Hejsa

Får fejl i min kode efter den er flyttet over på en 2003 server.


Fejlmeddelse
--------------
Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'make_double_date'

/right.asp, line 18



Koden
---------------
<%
Set Con = Server.Createobject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("db/norsgender.mdb") & "; password=test"
Con.Open strDSN

strSql = "SELECT * FROM courses WHERE end_date >= #"&Now()&"# ORDER BY start_date"
Set rs = con.execute(strSql)

strSql = "SELECT TOP 2 * FROM activities WHERE end_date >= #"&Now()&"# ORDER BY start_date"
Set rs2 = con.execute(strSql)   
%>

<p class="text" style="border-bottom: 1px solid #000000; padding-bottom: 15px;">
    <span style="color: #873333;"><b>Next course</b></span><br /><br />
    <a href="main.asp?page=course_programme&mode=single&id=<%=rs("id")%>"><%=rs("course_name")%></a><br /><br />
    <span style="color: #873333;">Date:</span><br />
    <% make_double_date rs("start_date"), rs("end_date")%><br /><br />
    <span style="color: #873333;">Venue:</span><br />
    <%=rs("location")%><br /><br />
    <% if rs("registration_deadline") <> "" then %>
        <span style="color: #873333;">Deadline:</span><br />
        <% make_date rs("registration_deadline")%><br />
    <% end if %>
</p>

<p class="text">
    <span style="color: #873333;"><b>Other upcoming events</b></span>
    <% do while not rs2.eof %>
        <br /><br /><a href="main.asp?page=activities&mode=single&id=<%=rs2("id")%>"><%=rs2("header")%></a></span><br /><br />
        <span style="color: #873333;">Date:</span><br />
        <% make_double_date rs2("start_date"), rs2("end_date")%><br /><br />
        <span style="color: #873333;">Venue:</span><br />
        <%=rs2("location")%>
    <% rs2.movenext
    loop
    %>
</p>

<%
rs.close
rs2.close
set con = nothing
%>



-------


det er denne linie <% make_double_date rs2("start_date"), rs2("end_date")%>

Datoerne i databasen ser fx sådan her ud. 10-10-2008