Hur kan man göra en weekly poll som kållar om en viss ID har röstat redan. Den ska räkna hur många röster alternativen fått och göra staplar i prosent.

Kan nån göra en sån poll eller ijallafall en början till en sån poll?

Jodå, det kan jag nog...

Du ska ha en tabell enligt följande:

ID Long INTE självräknande
Voted Byte

lägg nuvarandes besökares id i variabeln lngID

rosta.asp


Testa ifall alternativet är gilltigt
öppna connection
strSQL = "select * from TABELLNAMN where ID=" & cstr(lngID)
öppna Recordset med strSQL

if RecSet.EOF then
RecSet.AddNew
RecSet("ID") = lngID
RecSet("Voted") = request.querystring("Voted")
RecSet.Update
RecSet.Close
Connection.Close
response.write("Röstningen lyckades")
else
RecSet.Close
Connection.Close
response.write("Tyvärr, du har redan röstat")
end if

visarost.asp

öppna connection
strSQL = "select * from TABELLNAMN"
öppna Recordset med strSQL

lngRSLen = RecSet.Recordcount
alternativ = array()
do while not RecSet.EOF
alternativ(recset("Voted")) = alternativ(recset("voted")) + 1
loop
recset.close()
connection.close

for i = 0 to ANTALALTERNATIV
alternativ(i) = clng(alternativ(i) / lngRSLen * 100)
next
response.write(cstr(lngRSLen + 1) & " personer har röstat")
response.write("Alternativ 1: " & alternativ(0) & "%")
response.write("Alternativ 2: " & alternativ(1) & "%")
response.write("Alternativ 3: " & alternativ(2) & "%")


Tror att det fungerar...

I Databasen ska det bara vara dom här grejerna eller?
ID = Tal
Voted = Tal

Vart ska man då lägga in frågorna

Har jag gjort rätt här. Det blir felijallafall

Visarost.asp

<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/Poll.mdb")&";"

strSQL = "select * from Poll"

lngRSLen = RecSet.Recordcount
alternativ = array()
do while not RecSet.EOF
alternativ(recset("Voted")) = alternativ(recset("voted")) + 1
loop
recset.close()
connection.close

for i = 0 to ANTALALTERNATIV
alternativ(i) = clng(alternativ(i) / lngRSLen * 100)
next
response.write(cstr(lngRSLen + 1) & " personer har röstat")
response.write("Alternativ 1: " & alternativ(0) & "%")
response.write("Alternativ 2: " & alternativ(1) & "%")
response.write("Alternativ 3: " & alternativ(2) & "%")




%>


rosta.asp

<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/Poll.mdb")&";"

strSQL = "select * from Poll where ID=" & Session(ID)

if RecSet.EOF then
RecSet.AddNew
RecSet("ID") = ID
RecSet("Voted") = request.querystring("Voted")
RecSet.Update
RecSet.Close
Connection.Close
response.write("Röstningen lyckades")
else
RecSet.Close
Connection.Close
response.write("Tyvärr, du har redan röstat")
end if

%>

Hur ska man göra ett röstnings formulär till Poll:en om man vill ha radio knappar?

Får felmedelandet

Microsoft VBScript runtime error '800a01a8'

Object required: 'RecSet'

/muffinman/db/Acomunity/poll/visarost.asp, line 7

I visarost.asp

Missat en rad:

set RecSet = server.createobject("vad det nu ska stå för att få ett recordset")

och efter strSQL="blablabla"

ska det stå:
RecSet.open strSQL, bla, bla, bla

fattar du?


<form action="rosta.asp">
Svara 1:<input type="radio" name="Voted" value="0"><br>
Svara 2:<input type="radio" name="Voted" value="1"><br>
</form>


du måste själv modifiera koden lite, den fungerar inte bara som den är.