<html dir="rtl">
<head>
<title>תוצאות הסקר</title>
<meta http-equiv="content-type"
content="text/html;charset=windows-1255" /><meta name="verify-v1" content="BnfsFfYT6nNW4AcnOhWGZAgtpjcsVw51ehnhYAKW5Lc=" />
</head>
<body bgcolor="#465584">
<center>
<% number= Request.From("opt") %>
<% ip= Request.ServerVariables("REMOTE_ADDR") %>
"איפוס אפלקציות
<% For i=1 to 4 %>
<% Application("Voting" & i)=0 %>
<% Next %>
"מתחבר ובודק אם קיים אותו אייפי במסד
<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set TableCheck=Server.CreateObject("ADODB.Recordset")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\seker.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
mySql= "Select * From table1 WHERE ip=('"&ip&"')"
TableCheck.Open mySql, oConn,3,3
%>
"אם לא מצא את האייפי בצע
<% IF TableCheck.EOF Then %>
<%
oConn.Close
Set oConn= nothing
%>
"התחברות והשמת האייפי וההצבעה
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\seker.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
mySQL = "Insert Into table1(ip,num) values('"&ip&"','"&number&"')"
oConn.Execute(mySQL)
oConn.close
Set oConn= nothing
%>
"התחברות ובדיקת ההצבעות בטבלה הווירטואלית והשמתם באפלקציות
<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set tableRs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\seker.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
<% For j=1 to 4 %>
mySql= "Select * From table1 WHERE num=('"&j&"')"
tableRs.Open mySql, oConn,3,3
%>
<% counter=tableRs.recordcount %>
<% Application("Voting" & j)=counter %>
<% Next %>
<%
oConn.Close
Set oConn= nothing
%>
<font size="7">
-תוצאות הסקר
</font>
<br>
"הדפסת האפלקציות
<% For i2=1 to 4 %>
אפשרות
<% =i2 %> :
<% =Application("Voting" & i2) %>
<br>
<% Next %>
"אם מצא אייפי תבצע
<% Else %>
"התחברות ובדיקת ההצבעות בטבלה הווירטואלית והשמתם באפלקציות
<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set tableRs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq= D:\content\users1\aviad\db\seker.mdb;" & _
"Uid=admin;" & _
"Pwd=;"
<% For j=1 to 4 %>
mySql= "Select * From table1 WHERE num=('"&j&"')"
tableRs.Open mySql, oConn,3,3
%>
<% counter=tableRs.recordcount %>
<% Application("Voting" & j)=counter %>
<% Next %>
<%
oConn.Close
Set oConn= nothing
%>
"הדפסת האפלקציות
<table>
<tr><td>
<font size="7">
-תוצאות הסקר
</font>
</td></tr>
<tr><td>
אפשרות 1:
<% =Application("Voting1") %>
<tr><td>
אפשרות 2:
<% =Application("Voting2") %>
</td></tr>
<tr><td>
אפשרות 3:
<% =Application("Voting3") %>
</td></tr>
<tr><td>
אפשרות 4:
<% =Application("Voting4") %>
</td></tr>
<tr><td>
<font color="red><b>
הצבעת בסקר זה, אינך יכול להצביע שנית.
</b></font>
</td></tr>
</table>
</center>
<% End IF %>
</body>
</html>
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
מוזר שהוא מנתב אותך לתיקיה אחרת כנראה שה / גורם לו לחשוב שאתה מתכוון לתת תיקיה
