<% @language="VBScript" %>
<% option explicit
' This poll requires that the directory containing the mdb file be world-writable
' because it uses an Insert query, and accesses are performed by the anonymous user
' It modifies the MDB files and creates a temporary LDB file during the update.
' See http://support.microsoft.com/support/kb/articles/Q175/1/68.ASP for details
Const cspath = "dbpoll.mdb"
Const csProvider = "DRIVER={Microsoft Access Driver (*.mdb)}; "
Dim conn
Dim s
%>
Poll results
<%
'------------------------------------------------
private sub InitVars()
Dim cnpath
Set conn = Server.CreateObject ("ADODB.Connection")
cnpath = server.mappath (cspath)
' Response.Write "
Thanks for sharing your opinion with the world,
<%
s = Trim (Request.Form ("GIVEN"))
s = UCase (Left (s, 1)) & LCase (Mid (s, 2))
Response.Write Server.HTMLEncode (s) & "."
%>
We hope it will help Inprise clear its position up on Open Source issues.
In a few moments, you will be redirected to our
main page, or you can leave now.
<%
end sub
'------------------------------------------------
private sub ShowRes()
Const csqShowRes= "select * from tblpoll"
Dim rs
Dim i
Dim q
Response.Write "
"
q = csqShowRes
' Response.Write "
New q = " & q
Set rs = conn.Execute (q)
For i = 0 to rs.Fields.Count - 1
Response.Write "
" & rs.Fields(i).Name
next
do while not rs.eof
Response.Write "
"
For i = 0 to rs.Fields.Count - 1
Response.Write "
" & rs.Fields(i)
next
rs.movenext
loop
rs.close
set rs = nothing
Response.Write "
