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 · 202 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? :OO
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,