چرا اجرا نميشه؟

golmehr · Sep 14, 2005

<%
dim adoconn
set adoconn = server.CreateObject("ADODB.connection")
adoconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
adoconn.Open
Set rs = Server.CreateObject("adodb.recordset")

rs.Open "SELECT * from ozv ", adoconn , 2, 3

while not rs.eof
do
response.write rs("name")
rs.movenext
loop

rs.Close
adoconn.Close
set adoconn=nothing
%>
------------
Microsoft VBScript compilation (0x800A03FA)
Expected 'Wend'
/mobile/test.asp, line 26
------------------
نمي دونم چرا اجرا نميشه
ميذارم loopچه
نمي شهWend' چه

؟؟؟