Afstemning, opdatering af stemmer
hejjeg er ved at lave en webside hvor brugeren skal kunne stemme på et forslag/emne. Stemmer afgives ved at trykke på en radiobutton. emner og stemmeantal ligger i en database(access). Jeg kan ikke få stemmerne opdateret, der sker intet når man har markeret radioknappen og trykker på stem.
Min kode:
siden kan ses på http://www.struermuseum.dk/kultur%20kanon/kultur_kanon.asp
dim emne, stemme
dim dbConn, strSql, rs
dim strDSN
Set dbConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strDSN = strPlacering
strSql = "SELECT emne, stemme FROM kulturkanon ORDER BY id"
dbConn.Open strDSN
rs.Open strSql, dbConn, AdOpenForwardOnly
while not rs.EOF
%>
<tr><td width="190" align="left"><%=rs("emne")%></td>
<td width="100" align="center"><%=rs("stemme")%></td>
<td width="50" align="center"><input name="valg" type="radio" value="<%=Trim(rs("stemme"))%>"></td>
</tr>
<%
rs.MoveNext
wend
rs.Close
set rs = nothing
kode til kanon.asp
dim rs, dbConn, strSql, strDSN
dim stemme, emne
dim valg
valg = Trim(Request.form("valg"))
Set dbConn = Server.CreateObject("ADODB.Connection")
("ADODB.Recordset")
strDSN = strPlacering
dbConn.Open strDSN
strSql = "UPDATE kulturkanon SET stemme = stemme + 1 WHERE emne = '" & valg & "'"
Response.Redirect("kultur_kanon.asp")
dbConn.Close
set dbConn = nothing