我是ASP的初学者，很多东西都不懂。今天又新问题出现，希望大家帮帮我这个菜鸟。谢谢了。
那段红色的脚本为不能将IP地址写入数据库。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
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
response.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 = c_vote_ballot + 1 WHERE c_vote_no = '" & request("options") & "'")
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 %>