Fixa koden — webForum

RodanMedlem sedan juli 20021 523 inlägg

Trådstart8 feb. 2003 17:06#1

Hej

den här koden funkar nästan... men jag har lite problem ...

undrar om nån vänlig själ där ute kan fixa den så att om man inte fått några röster så kommer det fram typ ingen har röstat... och sen att man bara kan rösta en gång.... hoppas nån kan fixa den.. den är väldigt viktig

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databasen")&";pwd=losenordet"
SQL = "SELECT * FROM members WHERE id = " &Request.QueryString("checkid")
Set RecSet = Conn.Execute(SQL)

TotalaRoster = RecSet("TotalaRoster")
Poang = RecSet("Poang2")

Snitt = Round(Poang/TotalaRoster,2)

RecSet.Close
Conn.Close

Response.Write "<b>Genomsnittligt betyg:</b> "&Snitt&" (på "&TotalaRoster&" röster)"
%>

mvh //Rodan

SebbeMedlem sedan jan. 20032 285 inlägg

8 feb. 2003 18:30#2

<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("databasen")&";pwd=losenordet" 
SQL = "SELECT * FROM members WHERE id = " &Request.QueryString("checkid") 
Set RecSet = Conn.Execute(SQL) 

TotalaRoster = RecSet("TotalaRoster") 
Poang = RecSet("Poang2") 

Snitt = Round(Poang/TotalaRoster,2) 

RecSet.Close 
Conn.Close 

If TotalaRoster <> 0 Then

Response.Write "<b>Genomsnittligt betyg:</b> "&Snitt&" (på "&TotalaRoster&" röster)" 

Else

Response.Write "Ingen har röstat"

End If
%>

Sedan, där man röstar (när rösten läggs in i databasen) får du väl lägga till:

<%
If Request.Cookies("rostat")  <> "" Then

Response.Write "Du har redan röstat"

Else

Response.Cookies("rostat") = "ja"
Response.Write "Nu har du röstat"

End If
%>

Jag vet ju inte hur resten av din kod ser ut, men jag hoppas du förstår var du ska lägga in det. Säg till om det är totalt fel!