asp+access代码出错 请高手指导

<%if rs.eof and rs.bof then

response.Write("暂时没有信息")
else
Do Until rs.Eof
response.Write("联系人:"& rs("联系人"))

If vipuser = 0 Then
response.Write("
电话:"& rs("电话"))
Else
If vipuser = 1 Then
response.Write("
电话:"& rs("********"))
End If

response.Write("
地址:"& rs("地址"))
response.Write("
预约时间:"& rs("预约时间"))
response.Write("
报修项目:"& rs("报修项目"))
response.Write("
费用:"& rs("费用"))

%>
                            
<%
response.Write("

---

")
rs.MoveNext
Loop
end if%>
<%rs.close
set cods=nothing%>

上面代码提示下面错误
Microsoft VBScript 编译器错误 错误 '800a040e'

'loop' 语句缺少 'do'

/wap/b1.asp，行 52

Loop

在  前加入<% do while not rs.eof%>提示以下错误

Microsoft VBScript 编译器错误 错误 '800a03fb'

缺少 'Loop'

/wap/b1.asp，行 55

少了 个 end if