16 svar · 224 visningar · startad av ReloadMaster
Tjena!
Jag har 2 frågor jag jättegärna skulle vilja ha hjälp med:
1:
<%
If Request.Querystring("utId") Then
SQL = "SELECT ut FROM konton WHERE ID ="& Request.Querystring("ID")
Set RecSet = Connect.Execute(SQL)
aurl = RecSet("aurl")
SQL = "UPDATE konton SET ut = ut + 1 WHERE ID = "& Request.Querystring("ID")
Connect.Execute sql,,128
RecSet.Close
Set RecSet = Nothing
End If
%>
Där denna ska uppdatera fältet ut med en etta i datbasen...
Felet är:
Syntaxfel (operator saknas) i frågeuttrycket 'ID ='.
2.
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("forumdb.mdb")
SQL = "SELECT * From forum WHERE Orig= True ORDER BY forum.Iid,forum,ID"
Set RecSet = Connect.Execute(SQL)
%>
här är en annan kod jag får...
Felet är:
Det har inte angetts något värde för en eller flera nödvändiga parametrar
Kan felet vara att det inte finns något inlägg?
Eftersom Orig är ett Ja/Nej Fält...
Request.Querystring("ID") är odefinierat
skall det vara Request.Querystring("utID") som du använder tidigare eller
ligger det i request.form?
Felmeddelandet innebär att du anger ett kolumnnamn som inte finns. Du kanske vill sortera med avseende på forum.id
SQL = "SELECT * From forum WHERE Orig= True ORDER BY forum.Iid,forum.ID"
Vad kan detta betyda:
ADO kunde inte hitta objektet i mängden som överensstämmer med det begärda namnet eller numret. ?
Konstigt kolla om ni kan hitta något fel:
<%
If Request.Querystring("klick") = "ut" Then
SQL = "SELECT aurl, utklick FROM konton WHERE ID ="& Request.Querystring("ID")
Set RecSet = Connect.Execute(SQL)
aurl = RecSet("aurl")
SQL = "UPDATE konton SET utklick = utklick + 1 WHERE ID = "& Request.Querystring("ID")
Connect.Execute sql,,128
Response.Redirect(aurl)
RecSet.Close
Set RecSet = Nothing
End If
%>
Fälten heter utklick och aurl..
Som sagt var, kolla verkligen om alla databas namn finns i databasen...
annars går det inte att plocka ut det vettu...
Nja, det är inte så konstigt
str = "a.asp"
response.redirect str
'eller
response.redirect "a.asp"
är ju likvärdigt.
Om inte kolumnanmnet finns i tabellen så borde det bli fel vid execute.
Jag tycker att den kod som du har postat ser helt ok ut.
aurl = RecSet("aurl")
Är det den raden du får fel på?
Det funkar att att använda en Variabel för detta dock...
Tja!
Du har säkert rätt LarsG, har bara för mig att jag läst någonstans om att det inte går att göra så. 
Men man lär sig nytt varje dag 
r: En följdfråga, hur skulle händelseförloppet bli om aurl inte innehöll något värde.
mvh Jörgen
Raden jag har fått fel på är den tomma redan precis innan där det inte står en bokstav...
Tyvärr så förstår jag inte vilken rad du avser. Kan du inte bara peka ut den i koden?
<%
If Request.Querystring("klick") = "ut" Then
SQL = "SELECT aurl, utklick FROM konton WHERE ID ="& Request.Querystring("ID")
Set RecSet = Connect.Execute(SQL)
Den här tomma raden...
aurl = RecSet("aurl")
SQL = "UPDATE konton SET utklick = utklick + 1 WHERE ID = "& Request.Querystring("ID")
Connect.Execute sql,,128
Response.Redirect(aurl)
RecSet.Close
Set RecSet = Nothing
End If
%>
Nej, jag kan inte se något.
I och för sig så borde du lägga in någon kontroll på att du hittar någon post, men det borde inte ha något med detta problem att göra.
<%
If Request.Querystring("klick") = "ut" Then
SQL = "SELECT aurl, utklick FROM konton WHERE ID ="& Request.Querystring("ID")
Set RecSet = Connect.Execute(SQL)
if not recset.eof then
aurl = RecSet("aurl")
SQL = "UPDATE konton SET utklick = utklick + 1 WHERE ID = "& Request.Querystring("ID")
Connect.Execute sql,,128
else
aurl = ""
end if
RecSet.Close
Set RecSet = Nothing
if aurl <> "" then
response.redirect aurl
else
response.write "Sidan hittades ej <br>"
End If
%>
Tack LarsG
Det funkade så fort jag använde ditt exempel...
Magic.