ID fraga alternativ alt1 alt1namn alt2 alt2namn alt3 alt3namn alt4 alt4namn alt5 alt5namn alt6 alt6namn alt7 alt7namn alt8 alt8namn
Där alt# innehåller en sifra (antal röster) och alt#namn innehåller alternativets beskrivning
9 svar · 215 visningar · startad av ConnyFox
Jag får detta felmeddelande när jag kör min kod.
Feltyp:
Microsoft JET Database Engine (0x80040E14)
Semikolon saknas i slutet av SQL-uttryck.
/seriöst/poll.asp, line 10
Ingen aning om vad detta innebär eller vad jag skall göra tyvärr så jag frågar er!
<%
set connection = server.createobject("ADODB.connection")
connection.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("poll.mdb")
set recset = server.createobject("ADODB.recordset")
SQL = "Select * FROM poll"
recset.open SQL, connection, 3, 3
if request.querystring("func") = "vote" then
votes = recset("" & request.form("vote") & "") + 1
Call connection.Execute("INSERT INTO poll (" & request.form("vote") & ") values (" & votes & ") where ID = " & request.querystring("ID") & "")
end if
%>
<html>
<head>
<title>Untitled</title>
<link rel="stylesheet" href="stylesheet.css">
</head>
<body topmargin="0">
<form name="poll" action="poll.asp?func=vote&ID=<%=recset("ID")%>" method="post">
<% i = 0
f = recset("alternativ")
do until i => f
i = i +1
%>
<input type="radio" name="vote" value="alt<%=i%>"><%=recset("alt" & i & "namn")%>
<br>
<%
loop
recset.close
connection.close
%>
har jag gjort en riktig dundertabbe eller? heh
ID fraga alternativ alt1 alt1namn alt2 alt2namn alt3 alt3namn alt4 alt4namn alt5 alt5namn alt6 alt6namn alt7 alt7namn alt8 alt8namn
Där alt# innehåller en sifra (antal röster) och alt#namn innehåller alternativets beskrivning
Ändra raden
Call connection.Execute("INSERT INTO poll (" & request.form("vote") & ") values (" & votes & ") where ID = " & request.querystring("ID") & "")
till
connection.Execute("INSERT INTO poll (" & request.form("vote") & ") values (" & votes & ") where ID = " & request.querystring("ID") & ";")
Antar jag att den menar?
Ta bort where, det hör inte hemma i Insert-satser. Eller vill du göra Update?
LarsG skrev:
Ta bort where, det hör inte hemma i Insert-satser. Eller vill du göra Update?
Inte tänkte väl jag på det?
jaa precis d e update jag försöker göra, e d helt fel o göra så då? =D
jag försöker lägga till 1 på det befintliga talet!
strVote = Request.Form("vote")
connection.Execute("UPDATE poll SET " & strVote & " = " & strVote & " + 1 where ID = " & request.querystring("ID"))
Det borde funka.
Ah man skriver update.. *doh*
körde annat sätt att updatera innan d va därför d blev virrigt
Tack iaf nu funkar det sig!
Det skulle också uppskattas om du skriver ut orden. Detta är ingen chat. Gör det enkelt för oss att förstå vad du menar.
Mvh,