Asp classic 每季度两次之间回复一次

我有两次约会

strFrom = formatDateTime("11:15",4)
strTo = formatDateTime("16:30",4)

我想生成一个脚本，以便每个季度从strFrom到StrTo

11:15
11.30
11.45
12.00
12:15
12:30
12:45
13:00
13:15
...
...
...
16:00
16:30

---

首先需要转换为datetime，然后需要在循环中增加分钟数

<%
strFrom = formatDateTime("11:15",4)
strTo = formatDateTime("16:30",4)

dteFrom=CDate(strFrom)
dteTo=CDate(strTo)

Response.write(strFrom & "<br>")
Do While (dteFrom < dteTo)
    dteFrom=DateAdd("n",15,dteFrom)
    Response.write(formatDateTime(dteFrom,4) & "<br>")  
Loop
%>