--- title: "är det jag som svalt hövvet eller kan ni inte heller hitta nåt fel i det här:" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13934-är-det-jag-som-svalt-hövvet-eller-kan-ni-inte-heller-hitta-nåt-fel-i-det-här" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "mikul" published: "2002-01-21T20:27:00.000Z" updated: "2002-01-21T23:52:00.000Z" replies: 8 views: 205 page: 1 pages: 1 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/13934-är-det-jag-som-svalt-hövvet-eller-kan-ni-inte-heller-hitta-nåt-fel-i-det-här" --- # är det jag som svalt hövvet eller kan ni inte heller hitta nåt fel i det här: ## #1 — mikul, 2002-01-21T20:27Z hallå... jag hittade nyligen ett gammalt forum som jag gjort en gång i tiden.... (som alltid funkat) men nu när jag testar det så går det inta att lägga till svar... jag får inget felmedelande eller nåt... den bara vägrar att lägga till.... ```

"> Namn:
 
Epost:

Rubrik:

svar:


<% End If IF request("text") <> "" Then Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") ' ################# plussa på antal svar börjar här ########################## Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM forum WHERE id LIKE "& Request.form("svarsid") RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic svarCount = RecSet("svar") svarCounted = svarCount + 1 RecSet("svar") = svarCounted RecSet.Update RecSet.Close Set RecSet = Nothing ' ########################### och slutar här ############################ ' ###################### här börjar läggtill rästen av infon #################### function fix(str) str=replace(trim(str),"'","''") fix=trim(str) end function SQL = "insert into forum([mail], [text], rubrik, skribent, ip, svarsid, [date]) "_ & "values ('"& request("mail") &"', '"& request("text") &"', '"& request("skribent") &"', '"& request("remote_adder") &"', '"& request("svarsid") &"', #"& now &"#)" connect.execute sql Connect.Close : Set Connect = Nothing Response.Redirect "forum.asp" END IF %> ``` tacksam för svar / Mikul Permalänk: https://www.webforum.nu/p/13934 ## #2 — LarsG, 2002-01-21T20:41Z Du får väl lägga in testutskrifter i visa.asp så att du kan följa vad som (inte) händer. Permalänk: https://www.webforum.nu/p/307856 ## #3 — mikul, 2002-01-21T20:48Z hur menar du då? där hängde jag inte med riktigt... / Mikul Permalänk: https://www.webforum.nu/p/307857 ## #4 — LarsG, 2002-01-21T20:57Z Du kan lägga till olika utskrifter t.ex ``` response.write "Före if request("text") /" & request.text & "/" IF request("text") <> "" Then response.write "Efter if request("text") /" ``` Om du då inte får ut texten "Efter if request " så kan du se att du aldrig gör något databasanrop Det troliga är att något villkor inte längre uppfylls beroende på olika parametervärden och då kan du ringa in vilket villkor det är och varför det inte uppfylls. Du har inte möjligtvis on error resume next någonstans i koden? Permalänk: https://www.webforum.nu/p/307858 ## #5 — mikul, 2002-01-21T21:04Z jag ska testa det sen... jag ska gå och kolla på en film som börjar nu... sen ska jag kolla det nej, jag har ingen on error resume next / Mikul Permalänk: https://www.webforum.nu/p/307859 ## #6 — mikul, 2002-01-21T22:47Z jag får inte äns ut texten "före Request(text)" vad kan detta bero på? / Mikul Permalänk: https://www.webforum.nu/p/307860 ## #7 — LarsG, 2002-01-21T22:59Z Svårt att säga då inte hela koden är med. Du får väl fortsätta och lägga till utskrifter och då längre upp i koden. Kontrollera om du över huvud taget kommer till sidan, sedan får du arbeta dig längre och längre fram i koden. Permalänk: https://www.webforum.nu/p/307861 ## #8 — mikul, 2002-01-21T23:03Z ``` <% If Request.querystring("id") <> "" then id = Request.querystring("id") Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") SQL = "SELECT * FROM forum WHERE id ="&id Set RecSet = Connect.Execute(SQL) rubrik = RecSet("rubrik") %>
 Rubrik: <%=rubrik%>

<%=RecSet("text")%>


<% If RecSet("mail") <> "" Then Response.Write " "& RecSet("skribent") &" " Else Response.write RecSet("skribent") End If %>

<%=RecSet("date")%>
<% IF recset("svarsid") <> "" then %> <% id = Request.querystring("id") SQL = "SELECT * FROM forum WHERE svarsid = '"& id &"' ORDER BY id DESC" Set RecSet = Connect.Execute(SQL) if recset.eof Then response.write " inga inlägg än...
" while not RecSet.EOF %>
 Rubrik: <%=rubrik%>

<%=RecSet("text")%>


<% If RecSet("mail") <> "" Then Response.Write " "& RecSet("skribent") &" " Else Response.write RecSet("skribent") End If %>

<%=RecSet("date")%>
<% RecSet.MoveNext Wend RecSet.Close Set RecSet = Nothing%>

<--tillbaka

"> Namn:
 
Epost:

Rubrik:

svar:


<% End If Response.write "Före if request(text) /" & request.Form("text") & "/" IF request.form("text") <> "" Then response.write "Efter if request(text) /" Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") ' ################# plussa på antal svar börjar här ########################## Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM forum WHERE id LIKE "& Request.form("svarsid") RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic svarCount = RecSet("svar") svarCounted = svarCount + 1 RecSet("svar") = svarCounted RecSet.Update RecSet.Close Set RecSet = Nothing ' ########################### och slutar här ############################ ' ###################### här börjar läggtill rästen av infon #################### function fix(str) str=replace(trim(str),"'","''") fix=trim(str) end function SQL = "insert into forum([mail], [text], rubrik, skribent, ip, svarsid, [date]) "_ & "values ('"& request("mail") &"', '"& request("text") &"', '"& request("skribent") &"', '"& request("remote_adder") &"', '"& request("svarsid") &"', #"& now &"#)" response.write sql connect.execute sql Connect.Close : Set Connect = Nothing Response.Redirect "forum.asp" END IF %> <% ' ********************* visa svar ********************** if Request.querystring("svar") <> "" then id = Request.querystring("svar") Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb") SQL = "SELECT * FROM forum WHERE id LIKE '%%"&id&"%%'" Set RecSet = Connect.Execute(SQL) %>
<%=RecSet("rubrik")%>

<%=RecSet("text")%>


<% If RecSet("mail") <> "" Then response.write(" " & RecSet("skribent") & " ") else response.write RecSet("skribent") End If %>

<%=RecSet("date")%>

<-- tillbaka

<% end if end if%> ``` Permalänk: https://www.webforum.nu/p/307862 ## #9 — mikul, 2002-01-21T23:52Z jag lyckades fixa det genom att lägga allat på en separat sida... asså allt som hade med själva sparandet att göra... men tack så mycket för hjälpen... om du har tid och lust så kan du väll ta dig en titt på den här tråden också: jag behöver värkligen lite hjälp med det.. tack i förhand... / Mikul Permalänk: https://www.webforum.nu/p/307863 --- Tråden på webben: https://www.webforum.nu/amne/asp/13934-är-det-jag-som-svalt-hövvet-eller-kan-ni-inte-heller-hitta-nåt-fel-i-det-här