Time Format In DW 8 - Not Working

I'm getting this error in a dropdown menu containing times. 07:00 am 07:15
am etc.........
I have the database field as Date/Time (Access 2003)
My code for the dropdown menu is below.
Any idea what the problem is???
Thanks
Andy

I'm getting this error:

-----------------------------------
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'DoDateTime'

-----------------------------------
<select name="LeavingDate" class="maintxt" id="LeavingDate">
<%
While (NOT RSTime.EOF)
%>
<option value="<%=(RSTime.Fields.Item("ID").Value)%>"><%=
DoDateTime((RSTime.Fields.Item("time").Value), 3, 1033) %></option>
<%
RSTime.MoveNext()
Wend
If (RSTime.CursorType > 0) Then
RSTime.MoveFirst
Else
RSTime.Requery
End If
%>
</select>