Nyeste afstemning

hvad med det højeste nummer i din autonummering hvis du har sådan en?

/Søren Søndergård

Bare skriver:  <% Stem(NA) %>

Du behøver eller bør ikke lave et loop da du vil havde den nyeste id ud.
Hvis du vil gøre noget bør det måske være at tjekke du får en ID tilbage..:

if rsNyAfstemning.EOF then
  'danm ikke noget at stemme på
  NA = ""
else
  NA = rsNyAfstemning("id")
end if
rsNyAfstemning.Close
Set rsNyAfstemning = Nothing

<%
if NA <> "" then
  Stem(NA)
end if
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/mode/db/community.mdb")
Conn.Open DSN
%>
<%
strNyAfstemningSQL = "SELECT TOP 1 * FROM afstemning ORDER BY id DESC"
Set rsNyAfstemning = Conn.Execute(strNyAfstemningSQL)

if rsNyAfstemning.EOF then
  'danm ikke noget at stemme på
  NA = ""
else
  NA = rsNyAfstemning("id")
end if
rsNyAfstemning.Close
Set rsNyAfstemning = Nothing
%>
Det her i toppen...


Og der hvor jeg vil have afstemningen: <%
if NA <> "" then
  Stem(NA)
end if
%>

Eller hva?

Ja det skulle gerne virker.

Øhm... det viser bare fem stemmebokse, men ikke noget tekst ud for? Når jeg ser i koden viser den:

<tr><td valign="top" align="center" height="22">&nbsp;</td>
<td><span class="preview">
<font size='2' face='Verdana'>Hvad synes du om Donaldisten.dk?<html><head><title>Stem</title></head><body><form method='POST' action='stemreg.asp'><input type='hidden' name='Voteid' value=4><input type='radio' value='' name='R1'><br><input type='radio' value='' name='R1'><br><input type='radio' value='' name='R1'><br><input type='radio' value='' name='R1'><br><input type='radio' value='' name='R1'><br><p>&nbsp;<input type='submit' value='Stem' name='B1'>&nbsp;&nbsp; <input type='reset' value='Slet' name='B2'></p></form></body></html>
</span></td></tr>

----------Stem.inc----------
<%
' --------------------------------------------------------------
' Function Stem(id) - id = id i stem.mdb
' --------------------------------------------------------------
function stem(id)

  font    = "<font size='2' face='Verdana'>"
  faktor  = 1
  barcolor = "#FF0000"

  Set RsVote = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("/mode/db/community.mdb")
  RsVote.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Sql = "Select * from T_Vote where Id = " & id
  Set Record =  RsVote.Execute(Sql)
  If Not Record.EOF then
    If (Len(Request.Cookies("stem")(CSTR(id))))  then
      Dim Valg(5)
      valg(1) = Record("valg1")
      valg(2) = Record("valg2")
      valg(3) = Record("valg3")
      valg(4) = Record("valg4")
      valg(5) = Record("valg5")

      response.write font & Record("Beskrivelse")  & "<br><br>"

      Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id
      Set Record =  RsVote.Execute(Sql)
      Ialt = Record("found")

      Response.Write "<div align='left'><table border='0'><tr>"
      For i = 1 to 5
        If valg(i) <> "" then
          Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id & " and vote = '" & Valg(i) & "'"
          Set Record = RsVote.Execute(Sql)
          Procent = 100/Ialt * Record("Found")
          response.write "<td>" & font & Valg(i) & "</td><td>" & font & Round(procent) & "%</td><td><hr width='" & Procent * faktor & "' size='10' align='left' color='" & barcolor & "'></td></tr>"
        end if
      Next
      Response.Write "</table></div>"
    else
      session("retur") = Request.ServerVariables("SCRIPT_NAME")
      response.write font & Record("Beskrivelse")
      response.write "<html><head><title>Stem</title></head><body>"
      response.write "<form method='POST' action='stemreg.asp'>"
      response.write "<input type='hidden' name='Voteid' value=" & Id & ">"
      If Record("Valg1") <> "" then
        response.write "<input type='radio' value='" & Record("Valg1") & "' name='R1'>" & Record("Valg1") & "<br>"
      end if 
      If Record("Valg2") <> "" then
        response.write "<input type='radio' value='" & Record("Valg2") & "' name='R1'>" & Record("Valg2") & "<br>"
      end if
      If Record("Valg3") <> "" then
        response.write "<input type='radio' value='" & Record("Valg3") & "' name='R1'>" & Record("Valg3") & "<br>"
      end if
      If Record("Valg4") <> "" then
        response.write "<input type='radio' value='" & Record("Valg4") & "' name='R1'>" & Record("Valg4") & "<br>"
      end if
      If Record("Valg5") <> "" then
        response.write "<input type='radio' value='" & Record("Valg5") & "' name='R1'>" & Record("Valg5") & "<br>"
      end if
      response.write "<p>&nbsp;<input type='submit' value='Stem' name='B1'>&nbsp;&nbsp; <input type='reset' value='Slet' name='B2'></p>"
      response.write "</form></body></html>"
    end if
  else
    response.write font & "Id findes ikke!!!"
  end if
end function
%>

----------Stemreg.asp----------
<%
  ' --------------------------------------------------------------
  ' Opdater T_VoteResult hvis der er sat kryds
  ' --------------------------------------------------------------
  If Request("R1") <> "" then
    Response.Cookies("stem")(Request("Voteid")) = "x"
    Set RsVote = Server.CreateObject("ADODB.Connection")
    DBPath = "DBQ=" & server.mappath("/mode/db/community.mdb")
    RsVote.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
    Sql = "Insert into T_Voteresult (Voteid, Vote, Ip) values('" & Request("Voteid") & "','" & Request("R1") & "','" &  Request.ServerVariables("REMOTE_ADDR") & "')"
    RsVote.Execute(Sql)
  end if
  Response.redirect session("retur")
%>

i den ene hedder tabellen Afstemning i den anden hedder tabellen T_Vote er det ritigt ?

Nu fungerer det... det var en simpel database-fejl! :)