这是一段在调线查项目程序，大家帮忙看看为何出错。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
'用ASP调用dbase.asp连接数据库接口

<%
dim rs
dim SQLStr
dim selected
'变量outcome是表示浏览者的投票情况
dim outcome
'提交后返回一个值,检测是否成功投票
outcome=0
'将用户的IP至COOKIE内
if request("options")<>""then
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
respone.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
end if
selected=request("options")

'查找当前浏览者的IP是否在IP表内
SQLStr="SELECT * FROM t_ip WHERE c_ip_address ='" & request.cookies("IPAddress") & "'"
set rs=conn.execute(SQLStr)
if not rs.eof then
'当表中同一IP的投票时间大于30分钟,则将些浏览者的投票结果增加到IP表中
if datediff("d",rs.fields("c_ip_datetime"),now)<1 and int(now-rs.fields("c_ip_datetime"))>30 then
     SQLStr="INSERT INTO t_ip valueS ('" & request.cookies("IPAddress") & "',getdate(),'" & request("options") & "' )"
        conn.execute(SQLStr)
     '返回值为1,表示已成功投票;否则返回值为-1时,表示此浏览者已投过票
     outcome=1
     else
     outcome=-1
     end if
    else
     SQLSst="INSERT INTO t_ip valueS('" & request.cookies("IPAddress") & "',getdate(),'" & request("options") & "')"
conn.execute(SQLStr)
     outcome=1
    end if
    rs.close
    '当成功提交时,更新投票结果页
    if outcome=1 then
     conn.execute("UPDATE t_vote SET c_vote_ballot + 1 WHERE c_vote_no = '" & request("option") & "'")
    end if
end if
%>









<%
if outcome=1 then
response.write
"onLoad=""MM_openBrWindow('outcome.asp?action=look','','left=200,top=175,width=400,height=250')"""
elseif outcome=-1 then
    response.write
"onLoad=""MM_openBrWindow(outcome.asp','','left=200,top=175,width=400,height=250')"""
end if
%>
>

您对本站的印象如何？

<% set rs=conn.execute("SELECT * FROM t_vote") do while not rs.eof %>            ">     <%=rs.fields("c_vote_name")%>     <%      rs.movenext      loop     %>

在WINXP，IIS5。0运行后出现以下提示。
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/99ds/research/TMP2t8nwjuqud.asp, line 79
"onLoad=""MM_openBrWindow('outcome.asp?action=look','','left=200,top=175,width=400,height=250')"""

樓上﹐去掉那兩段代碼的雙引號還是不行。
出現如下錯誤﹕
Microsoft VBScript 編譯階段錯誤 錯誤 '800a0400'

必須提供陳述式

/Research.asp, 列79

"onLoad=MM_openBrWindow('outcome.asp?action=look','','left=200,top=175,width=400,height=250')"
^

收到﹐謝了樓上。現在能正常運行了。