webForumDet fria alternativet

lite fix i omröstningskod

ASP

29 svar · 1 430 visningar · startad av tank82 · sida 2 av 2

Frågan, av tank82

Jag igen :birp Nu behöver jag lite hjälp igen, om ni/du kollar den bifogade filen så är det koden till en röstningsfunktion. 1\. Skulle vara kanon om man gjorde så den funktionerade efter följande db struktur. tabell = rosta kolumner = pollID, fraga, svar1, svar2, svar3, klick (det ska endast finnas 3alternativ att välja mellan) 2\. Detta är inte så jätte viktigt men koden så man k

Läs frågan i sin helhet →
Medlem sedan jan. 20032 285 inlägg
#21

tank82 skrev:

jag det löser sig....
fy fan Sebbe du ska ha ett så stort tack för all hjälp att du trillar av stolen. TACK! ;)

Vassego! :)

Medlem sedan feb. 2003210 inlägg
#22

Koden till problem nr 2 iaf någon vill ha det på samma sätt som jag =)

    If Request.Cookies(sessionnamn1) = sessionnamn Then
      Response.Write("        <tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar(0) & " (" & intProc1 & " %)</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#7090B8"" height=""5""><img src=""poll.gif"" width=""" & intProc1 & "%"" height=""5"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar(1) & " (" & intProc2 & " %)</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#7090B8"" height=""5""><img src=""poll.gif"" width=""" & intProc2 & "%"" height=""5"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """>" & Svar(2) & " (" & intProc3 & " %)</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#7090B8"" height=""5""><img src=""poll.gif"" width=""" & intProc3 & "%"" height=""5"" border=""1""></td></tr>" & vbCrLf) 
      Response.Write("          <td rowspan=""2"" width=""" & breddR & """ valign=""bottom"" align=""right""></td>" & vbCrLf)
      Response.Write("        </tr>" & vbCrLf)
    Else
      Response.Write("       <tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """><a href=""" & sidan & "?page=vote&id=" & intPollID & "&option=1"">" & Svar("svar1") & "</a> (" & intProc1 & " %)</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#7090B8"" height=""5""><img src=""poll.gif"" width=""" & intProc1 & "%"" height=""5"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """><a href=""" & sidan & "?page=vote&id=" & intPollID & "&option=2"">" & Svar("svar2") & "</a> (" & intProc2 & " %)</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#7090B8"" height=""5""><img src=""poll.gif"" width=""" & intProc2 & "%"" height=""5"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & bredd & """><a href=""" & sidan & "?page=vote&id=" & intPollID & "&option=3"">" & Svar("svar3") & "</a> (" & intProc3 & " %)</td></tr>" & vbCrLf)
      Response.Write("          <td width=""" & BreddF & """ bgcolor=""#7090B8"" height=""5""><img src=""poll.gif"" width=""" & intProc3 & "%"" height=""5"" border=""1""></td></tr>" & vbCrLf)
      Response.Write("          <td rowspan=""2"" width=""" & breddR & """ valign=""bottom"" align=""right""></td>" & vbCrLf)
      Response.Write("        </tr>" & vbCrLf)
    End If

    Response.Write("        <tr>" & vbCrLf)
    Response.Write("          <td colspan=""2""></td>" & vbCrLf)
    Response.Write("        </tr>" & vbCrLf)

    Svar.Close
Medlem sedan jan. 20032 285 inlägg
#23

Upptäckte en "liten" bugg när jag vaknade imorse. ;)
Använd den här filen istället:

http://member.webforum.nu/4843/poll.zip

Medlem sedan feb. 2003210 inlägg
#24

Upptäckte en "liten" bugg när jag vaknade imorse.

Ok, vad var det för bugg? Nu har jag gjort om den så mycket så att sitta och jämmföra skulle ta sån tid. :OO

Medlem sedan jan. 20032 285 inlägg
#25

Nu har mina filer här på wF tydligen försvunnit, men jag har för mig att det enda jag ändrade var att jag ändrade raden

totalt = Conn.Execute("SELECT sum(svar) From svar Where pollID=" & intPollID)(0)

till

totalt = Conn.Execute("SELECT COUNT(*) From svar Where pollID=" & intPollID)(0)
Medlem sedan feb. 2003210 inlägg
#26

kanon :)

Medlem sedan feb. 2003210 inlägg
#27

Istället för att man kommer till en ny sida (index.asp?sidawww=klart") går det att göra så att när man klickar så kommer det upp en popup och där står det typ ”tack för din medverkan” och samtidigt som popupen kommer så uppdateras sidan man var på så att resultatet också uppdateras.?

Jag utgår från koden som är bifogad.

Medlem sedan jan. 20032 285 inlägg
#28

Har inte kunnat testa det, men här kommer det i alla fall.

Medlem sedan feb. 2003210 inlägg
#29

fan vad snabb du är Sebbe :)
den fungerade kanon när jag kör sidan helt själv men eftersom jag har den includerad i en sida så fungerar den inte. Om jag är på tex index.asp?sidan=bilder (Querystring) och sedan röstar så blir det tokigt, hmm jag kan inte riktigt förklara vad som strular..

[edit]
alltså när jag är på index.asp?sidan=bilder och sedan röstar så kommer jag till tillbaka till index.asp
[/edit]

Medlem sedan feb. 2003210 inlägg
#30

och jag vill inte lägga den i en iframe ;)

258 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)