fejl i afstemnings script...
Hejsa,Jeg sidder og leger med et afstemnings script, som jeg ikke helt kan få til at virke, grundkoden har jeg fået af en kammerat, som har skrevet den til access, men jeg vil gerne bruge den på mysql - skulle dette være et stort problem?
kan ses her: http://klas.dk/vw/
koden:
<%
' Opret et felt der hedder stemmer (tal) og et felt der hedder bedommelse (tal, decimal)
' ret navne på tabeller osv.. Så skulle det virke ;)
id = request.querystring("id")
bedom = request.querystring("bedom")
if id > 0 and bedom > 0 and bedom < 11 then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL};Server=localhost;database=klas;uid=;pwd=;"
' henter billede info
SQL = "select * from vwbedom where id="& id &""
Set RS = conn.execute(SQL)
stemmer = RS("stemmer") + 1
stemmer2 = RS("stemmer")
bedommelse2 = RS("bedommelse")
bedommelse = (bedommelse2 + bedom) / stemmer
bedomt = bedomt & id &","
' opdatere bedømmelse og antal stemmer
SQL = "UPDATE vwbedom SET bedommelse='" & bedommelse & "', stemmer='" & stemmer & "' WHERE id="& id &""
conn.execute(SQL)
' opdatere hvilke brugeren har bedømt
SQL = "UPDATE brugerdata SET bedomt='" & bedomt & "' WHERE id="& brugerid &""
conn.execute(SQL)
%>
Din stremme er registreret
<%
end if
conn.close
set conn = nothing
else
%>
FEJL!
<% end if %>
