急等（100分相送）:关于ASP向ACCESS表里写入一个时间段记录问题

我利用一个循环向表中写入数据：一个时间段的记录（date1－－date2）居然全部是date1的，且是死循环，求救各位！
<%
if Request.ServerVariables("REQUEST_METHOD")="GET" then
dim user,date1,date2,bz,mysql1,mysql2,date3,date4,dWeekday
user=Request.QueryString("user")
date1=Request.QueryString("kssj")'取一个时间控件的值，格式为yyyy-mm-dd
date3=date1'初始化date3，结果写入的全是date3的记录！！郁闷
date2=Request.QueryString("jzsj")
bz=Request.QueryString("marke")

strConnString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("reguser.mdb")
set myconn=Server.CreateObject("ADODB.Connection")
myconn.open strConnString
mysql1="select * from user where user_name='"&user&"'"
mysql2="select * from reguser where user_name='"&user&"'and user_lastlogin >= #"&Request.QueryString("kssj")&"# and user_lastlogin <= #"&Request.QueryString("jzsj")&"#" '数据库里如果是用户登录的时间到秒的，这个判断有用吗？

mysql3="insert into reguser (user_name,user_lastlogin,user_marke) values ('"&user&"','"&date3&"','"&bz&"') "

set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.open mysql1,myconn,3,3
set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open mysql2,myconn,3,3
if rs1.recordcount<=0 then
%>
<br />
<%
response.Write("用户名不能为空或无此用户名,请重新输入用户名!")
else if date1>date2 then
%>
<br />
<%
response.Write("截止时间不能小于开始时间!") '对于用户自动登录的也就是时间到秒的 这个if好像不起作用，不知道为什么！
else if rs2.recordcount>0 then
%>
<br />
<%
response.Write("用户在此时间段已有登录,请重新选择时间段!")
else

do while date3<=date2
dWeekday =Weekday(date3)
if Weekday(date3)<>1and Weekday(date3)<>7then
set rs3=myconn.Execute(mysql3)
end if
date3=DateAdd("d", 1, date1)
loop '就是这个循环啊，费了我一上午，没整出来！
%>
<br />
<%
Response.Write("保存成功!")

end if
end if
end if
myconn.Close
set rs1=nothing
set rs2=nothing
set rs3=nothing
end if
%>