pagina sondaggio:
<%
dim strCode
strCode="innovatel"
dim intVal
intVal = "0"

Set Conn=Server.CreateObject("ADODB.Connection")

strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("db_sond.mdb")
strConn=strConn & ";pwd=" & strCode

Conn.Open (strConn)
sql = "SELECT * FROM Sondaggio"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

rs.filter = " val = 'OK' "

if not(rs.eof) then
%>

<html>
<head>
<title>Sondaggio Asp</title>
<script>
<!-- Begin
function PopUp(pagina,w,h) {
window.open(pagina, 'PopUp','scrollbars=yes,status=no,menubar=no,width ='+w+',height='+h);
}
End -->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>


<body bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#FF0000" alink="#FF0000">
<div align="center">
<form method="post" action="vota.asp" target='PopUp'>
<table width="233" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><%=rs(1)%></div>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="7"><%=rs(2)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="8" checked><%=rs(3)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="9"><%=rs(4)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="10"><%=rs(5)%>
</td>
</tr>
<tr>
<td>
<input type="radio" name="voto_sond" value="11"><%=rs(6)%>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<div align="center">
<input type="submit" value="Vota !" onclick="javascript:PopUp('vota.asp',200,100)">
</div>
</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<div align="center">Guarda i risultati</div>
</td>
</tr>
</table>
</form>
</div>
<div align="center">

<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>

<div align="center"><font color="#FFFFFF"></font></div>
</td>
</tr>
</table>
</div>
</body>
</html>

<%
else
response.end
end if

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>