<%
set conn=Server.CreateObject("Adodb.Connection")
dbPath=Server.MapPath("data/votedata.mdb")
conn.open "Provider=Microsoft.Jet.OleDb.4.0;Data Source="&dbPath
'显示调查的子过程
sub ShowVote()
dim sqlVote,rsVote,i
sqlVote="select top 1 * from Vote where IsSelected=True"
Set rsVote= Server.CreateObject("ADODB.Recordset")
rsVote.open sqlVote,conn,1,1
if rsVote.bof and rsVote.eof then
response.Write " 没有任何调查"
else
response.write "
"
end if
rsVote.close
set rsVote=nothing
end sub
%>
温州永隆管件有限公司
