Ezen az oldalon szeretnék rendszeres szavazásokat tartani. Sajnos egyelőre a Portál látogatottsága miatt kevesen élnek a lehetőséggel. Remélem tavasszal a választások idején aktívabb lesz az Internetezők tábora, és gyakrabban látogatják, a Marcali Portált. Ha így lesz, akkor természetesen a körzetben induló országgyűlési képviselő jelöltekről, a pártlistákról is készítek szavazást. És természetesen ősszel az önkormányzati választások is sorra kerülnek. Ugyanakkor szívesen fogadok ötleteket a szavazás kérdéseire.


 

 

Melyik párt nyeri a választásokat?

<% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT sum(Score) AS [partok.total] FROM partok" rs.Open sql, "portal" On Error Resume Next rs.MoveFirst do while Not rs.eof tot = Server.HTMLEncode(rs.Fields("partok.total").Value) rs.MoveNext loop Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "portal" Set RS = Conn.Execute("SELECT * FROM partok ORDER BY partok.Score DESC;") %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop %>
<%=Server.HTMLEncode(rs.Fields("Name").Value)%> <%=Server.HTMLEncode(rs.Fields("Score").Value)%> - szavazat <% sco = Server.HTMLEncode(rs.Fields("Score").Value) totk = clng(tot) scok = clng(sco) toto = (scok/totk) totk = (toto*100) totb = (totk+0.5) totw = Int (totb) response.write(totw) %> %
összesen: <% response.write(tot) %> - szavazat 

 

 

 

 

Szavazok: Kattints ide!

 

 

Ki lesz a polgármester a (2002 őszi) önkormányzati választásokon?

<% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT sum(Score) AS [pmester.total] FROM pmester" rs.Open sql, "portal" On Error Resume Next rs.MoveFirst do while Not rs.eof tot = Server.HTMLEncode(rs.Fields("pmester.total").Value) rs.MoveNext loop Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "portal" Set RS = Conn.Execute("SELECT * FROM pmester ORDER BY pmester.Score DESC;") %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop %>
<%=Server.HTMLEncode(rs.Fields("Name").Value)%> <%=Server.HTMLEncode(rs.Fields("Score").Value)%> - szavazat <% sco = Server.HTMLEncode(rs.Fields("Score").Value) totk = clng(tot) scok = clng(sco) toto = (scok/totk) totk = (toto*100) totb = (totk+0.5) totw = Int (totb) response.write(totw) %> %
összesen: <% response.write(tot) %> - szavazat 

 

 

 

 

Szavazok: Kattints ide!

 

 

Milyen gyakran látogatsz az oldalra?

<% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT sum(Score) AS [pvisit.total] FROM pvisit" rs.Open sql, "portal" On Error Resume Next rs.MoveFirst do while Not rs.eof tot = Server.HTMLEncode(rs.Fields("pvisit.total").Value) rs.MoveNext loop Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "portal" Set RS = Conn.Execute("SELECT * FROM pvisit ORDER BY pvisit.Score DESC;") %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop %>
<%=Server.HTMLEncode(rs.Fields("Name").Value)%> <%=Server.HTMLEncode(rs.Fields("Score").Value)%> - szavazat <% sco = Server.HTMLEncode(rs.Fields("Score").Value) totk = clng(tot) scok = clng(sco) toto = (scok/totk) totk = (toto*100) totb = (totk+0.5) totw = Int (totb) response.write(totw) %> %
összesen: <% response.write(tot) %> - szavazat 

 

 

 

 

Szavazok: Kattints ide!

 

 

Mi a véleményed a Portál külalakjáról?

<% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT sum(Score) AS [pdesign.total] FROM pdesign" rs.Open sql, "portal" On Error Resume Next rs.MoveFirst do while Not rs.eof tot = Server.HTMLEncode(rs.Fields("pdesign.total").Value) rs.MoveNext loop Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "portal" Set RS = Conn.Execute("SELECT * FROM pdesign ORDER BY pdesign.Score DESC;") %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop %>
<%=Server.HTMLEncode(rs.Fields("Name").Value)%> <%=Server.HTMLEncode(rs.Fields("Score").Value)%> - szavazat <% sco = Server.HTMLEncode(rs.Fields("Score").Value) totk = clng(tot) scok = clng(sco) toto = (scok/totk) totk = (toto*100) totb = (totk+0.5) totw = Int (totb) response.write(totw) %> %
összesen: <% response.write(tot) %> - szavazat 

 

 

 

 

Szavazok: Kattints ide!

 

 

fel

Vágó Zoltán 1998 - 2002