--- title: "Varför funkar inte...?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/11868-varför-funkar-inte" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "ampy" published: "2001-09-29T21:22:00.000Z" updated: "2001-09-30T11:52:00.000Z" replies: 27 views: 324 page: 1 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11868-varför-funkar-inte" --- # Varför funkar inte...? _Sida 1 av 2._ ## #1 — ampy, 2001-09-29T21:22Z Är hela denna kod rätt. ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From personligt" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("namn") = Session("username") RecSet("epost") = Session("epost") RecSet("rubrik") = Request.Form("rubrik") RecSet("inlagg") = Request.Form("inlagg") RecSet("datum") = Now RecSet("ipnummer") = Request.ServerVariables("REMOTE_ADDR") If Request.QueryString("ID") = "svar" Then RecSet("ref_id") = Request.QueryString("ref_id") NyPoang = RecSet("poang") + 100 strSQL="UPDATE members SET poang =" & NyPoang & " WHERE ID = " & RecSet("id") 'Response.Write "SQL= " & strSQL Connect.execute (strSQL) End If RecSet.Update RecSet.Close If Request.QueryString("ID") = "svar" Then Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From personligt WHERE id="&Request.QueryString("ref_id") RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic svar = RecSet("antalsvar") RecSet("antalsvar") = svar + 1 RecSet.Update RecSet.Close End If Connect.Close Set RecSet = nothing Set Connect = nothing Response.Redirect "forum.asp" %> ``` För när jag lägger till 100 poäng i databasen så läggs det inte till någontin. Kan ni kolla igenom att jag har skrivit koden rätt. Permalänk: https://www.webforum.nu/p/11868 ## #2 — icaaq, 2001-09-29T21:28Z /r. ska kolla mer .. :r Permalänk: https://www.webforum.nu/p/287701 ## #3 — ampy, 2001-09-29T21:39Z Ska det inte vara efter, om inte hur ska HELA koden se ut i så fall? Permalänk: https://www.webforum.nu/p/287702 ## #4 — icaaq, 2001-09-29T21:49Z jag förstår inte denna denna del: ``` If Request.QueryString("ID") = "svar" Then RecSet("ref_id") = Request.QueryString("ref_id") NyPoang = RecSet("poang") + 100 strSQL="UPDATE members SET poang =" & NyPoang & " WHERE ID = " & RecSet("id") 'Response.Write "SQL= " & strSQL Connect.execute (strSQL) End If [b]RecSet.Update RecSet.Close[/b] ``` vad uppdaterar du med den feta texten?? om du bara ska uppdatera poang med hundra kan du göra så här: ``` strSQL="UPDATE members SET poang = poang + 100 WHERE ID = " & RecSet("id") 'Response.Write "SQL= " & strSQL Connect.execute (strSQL) ``` :) Permalänk: https://www.webforum.nu/p/287703 ## #5 — ampy, 2001-09-29T21:53Z Det funkar inte när jag har lagt in koden så att det ser ut så här: ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From personligt" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("namn") = Session("username") RecSet("epost") = Session("epost") RecSet("rubrik") = Request.Form("rubrik") RecSet("inlagg") = Request.Form("inlagg") RecSet("datum") = Now RecSet("ipnummer") = Request.ServerVariables("REMOTE_ADDR") If Request.QueryString("ID") = "svar" Then RecSet("ref_id") = Request.QueryString("ref_id") strSQL="UPDATE members SET poang = poang + 100 WHERE ID = " & RecSet("id") 'Response.Write "SQL= " & strSQL Connect.execute (strSQL) End If RecSet.Update RecSet.Close If Request.QueryString("ID") = "svar" Then Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From personligt WHERE id="&Request.QueryString("ref_id") RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic svar = RecSet("antalsvar") RecSet("antalsvar") = svar + 1 RecSet.Update RecSet.Close End If Connect.Close Set RecSet = nothing Set Connect = nothing Response.Redirect "forum.asp" %> ``` Har jag lagt in koden rätt? Permalänk: https://www.webforum.nu/p/287704 ## #6 — icaaq, 2001-09-29T22:05Z Jag skulle gjort så här: ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";" strSQL1 = "INSERT INTO personligt(namn, epost, rubrik, inlagg, ipnummer)VALUES('"&Session("username&"', '"&Session("epost")&"', '"&Request.Form("rubrik")&"', '"&Request.Form("inlagg")&"', #"&now()&"#, '"&Request.Servervariables("REMOTE_ADDR")&"')" Connect.Execute(strSQL1),,128 If Request.Querystring("ID") ="svar" Then strSQL2 = "UPDATE members SET poang = poang + 100, antalsvar = antalsvar + 1 WHERE ID = " & Request.QueryString("ref_id") 'Response.Write "SQL= " & strSQL2 Connect.execute (strSQL2),,128 End If Connect.Close Set Connect = Nothing ``` typ så kanske :) /r. glömde End If :r Permalänk: https://www.webforum.nu/p/287705 ## #7 — ampy, 2001-09-29T22:15Z Din kod fungerar inte. Har du inte någon annan lösning? Permalänk: https://www.webforum.nu/p/287706 ## #8 — icaaq, 2001-09-29T22:15Z blir det nått felmess? Permalänk: https://www.webforum.nu/p/287707 ## #9 — jorgen, 2001-09-29T22:20Z Hej! Jag undviker addnew så långt som möjligt (precis som icaaq). Men jag hade förändrat icaaqs kod lite: 1) jag hade kastat bort filen adovbs.inc 2) jag hade dimmat och definierat variabler istället för att lägga in tex hela Request.Form("rubrik") 3) kommenterat koden Men det är en smaksak. mvh Jörgen :) Permalänk: https://www.webforum.nu/p/287708 ## #10 — icaaq, 2001-09-29T22:23Z vad får du om du skriver ut SQL-satserna med Response.Write?? Permalänk: https://www.webforum.nu/p/287709 ## #11 — ampy, 2001-09-29T22:23Z KODEN FUNGERAR INTE, HUR SKA JAG GÖRA? Permalänk: https://www.webforum.nu/p/287710 ## #12 — jorgen, 2001-09-29T22:26Z Hej! Lite paranteser var missade: ``` strSQL1 = "INSERT INTO personligt (namn, epost, rubrik, inlagg, ipnummer)VALUES('"&Session("username")&"', '"&Session("epost")&"', '"&Request.Form("rubrik")&"', '"&Request.Form("inlagg")&"', #"&now()&"#, '"&Request.Servervariables("REMOTE_ADDR")&"')" Connect.Execute(strSQL1),,128 ``` mvh Jörgen :) Permalänk: https://www.webforum.nu/p/287711 ## #13 — ampy, 2001-09-29T22:31Z koden fungerar inte, varför fungerar inte denna kod: ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From personligt" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("namn") = Session("username") RecSet("epost") = Session("epost") RecSet("rubrik") = Request.Form("rubrik") RecSet("inlagg") = Request.Form("inlagg") RecSet("datum") = Now RecSet("ipnummer") = Request.ServerVariables("REMOTE_ADDR") If Request.QueryString("ID") = "svar" Then RecSet("ref_id") = Request.QueryString("ref_id") End If RecSet.Update RecSet.Close If Request.QueryString("ID") = "svar" Then Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From personligt WHERE id="&Request.QueryString("ref_id") RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic svar = RecSet("antalsvar") RecSet("antalsvar") = svar + 1 RecSet.Update RecSet.Close End If Connect.Close Set RecSet = nothing Set Connect = nothing Response.Redirect "forum.asp" %> ``` Permalänk: https://www.webforum.nu/p/287712 ## #14 — ampy, 2001-09-29T22:33Z Fel kod, varför fungerar inte denna kod? \[kod\] \ <% Response.Buffer = TRUE Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forumet.mdb")&";" strSQL1 = "INSERT INTO personligt(namn, epost, rubrik, inlagg, ipnummer)VALUES('"&Session("username&")', '"&Session("epost")&"', '"&Request.Form("rubrik")&"', '"&Request.Form("inlagg")&"', #"&now()&"#, '"&Request.Servervariables("REMOTE_ADDR")&"')" Connect.Execute(strSQL1),,128 If Request.Querystring("ID") ="svar" Then strSQL2 = "UPDATE members SET poang = poang + 100, antalsvar = antalsvar + 1 WHERE ID = " & Request.QueryString("ref_id") 'Response.Write "SQL= " & strSQL2 Connect.execute (strSQL2),,128 End If Connect.Close Set Connect = Nothing Response.Redirect "forum.asp" %> ``` så får jag detta felmeddelande: Microsoft OLE DB Provider for ODBC Drivers fel '80040e14' \[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel i sträng i frågeuttrycket '''. /community/add_post.asp, rad 10 Permalänk: https://www.webforum.nu/p/287717 ## #19 — jorgen, 2001-09-29T22:47Z Vilken är rad 10 ? Permalänk: https://www.webforum.nu/p/287718 ## #20 — ampy, 2001-09-29T22:49Z Connect.Execute(strSQL1),,128 Permalänk: https://www.webforum.nu/p/287719 --- Tråden på webben: https://www.webforum.nu/amne/asp/11868-varför-funkar-inte Nästa sida: https://www.webforum.nu/amne/asp/11868-varför-funkar-inte/page2.md