--- title: "Forum" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/126850-forum" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Kreles" published: "2005-04-21T14:00:44.000Z" updated: "2005-04-26T10:10:13.000Z" replies: 52 views: 965 page: 1 pages: 3 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/126850-forum" --- # Forum _Sida 1 av 3._ ## #1 — Kreles, 2005-04-21T14:00Z Jag har en uppgift i skolan som går ut på att göra en blogg. Jag har kört fast totalt och har ingen aning om hur jag fortsätter. :( Uppgifterna i formuläret läggs inte in i databasen, jag vet inte hur jag ska få en kort ingress (utan att besökarna får skriva den själv. Jag vill alltså få ingressen automatiskt från den första raderna i inlägget), jag vill ha ämnet klickbart, men vet inte hur man gör det. Permalänk: https://www.webforum.nu/p/126850 ## #2 — voigtann1, 2005-04-21T21:00Z Du kan använda denna funktion: Permalänk: https://www.webforum.nu/p/1598134 ## #3 — Kreles, 2005-04-22T10:04Z Provad den. Får felmeddelande: Microsoft VBScript compilation error '800a03ea' Syntax error /inetv05akli/miniprojekt/Fsupp_1.asp, line 39 function intro(id,las,text,tal) 'Skapar funktionen intro() ^ Permalänk: https://www.webforum.nu/p/1598253 ## #4 — @nders, 2005-04-22T10:05Z Visa mer kod. Funktionsdefinitionen får inte ligga i en loop, utan ska ligga utanför annan kod på sidan. Permalänk: https://www.webforum.nu/p/1598254 ## #5 — Kreles, 2005-04-22T10:26Z Hela sidan \<% dim conn, data, sql Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Blogg.mdb") %\> \ \ \START\ \ \ \\Lägg till ny artikel\\ \ \ \ \\Ämne\\ \\Författare\\ \\Inlägg\\ \\Datum\\ \ \<% Set data =Conn.Execute("SELECT \* from Artiklar") While Not Data.EOF %\> \ \\<%=data("Amne")%\>\ \\<%=data("Forfattare")%\>\ \
\<% Function intro(id,las,text,tal) 'Skapar funktionen intro() myarr = split(text, " ") i = 0 for i = lbound(myarr) to ubound(myarr) select case i case tal-1 response.write(myarr(i) & " ... \\" &las& "\\") exit for case else response.write(myarr(i) & " ") end select next end function response.write intro(2,"Läs mer \>\>","\<%=data("Inlagg")%\>",6) %\> \ \\<%=data("Datum")%\>\ \ \<% Data.MoveNext Wend %\> \ \ \ Permalänk: https://www.webforum.nu/p/1598263 ## #6 — @nders, 2005-04-22T10:35Z > **@nders skrev:** > > Funktionsdefinitionen får inte ligga i en loop, utan ska ligga utanför annan kod på sidan. Permalänk: https://www.webforum.nu/p/1598267 ## #7 — Kreles, 2005-04-22T10:36Z Såg det. Men jag har ju ingen aning om var den ska ligga istället... (utanför naturligtvis..), tänkte om någon kunde fixa till det lite åt mig? Permalänk: https://www.webforum.nu/p/1598268 ## #8 — @nders, 2005-04-22T10:38Z ``` <% dim conn, data, sql Function intro(id,las,text,tal) 'Skapar funktionen intro() myarr = split(text, " ") i = 0 for i = lbound(myarr) to ubound(myarr) select case i case tal-1 response.write(myarr(i) & " ... " &las& "") exit for case else response.write(myarr(i) & " ") end select next end function Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Blogg.mdb") %> START

Lägg till ny artikel

<% Set data =Conn.Execute("SELECT * from Artiklar") While Not Data.EOF %> <% Data.MoveNext Wend %>
Ämne Författare Inlägg Datum
<%=data("Amne")%> <%=data("Forfattare")%> <% response.write intro(2,"Läs mer >>","<%=data("Inlagg")%>",6) %> <%=data("Datum")%>
``` Använd helst \[kod\]-taggar när du postar kod, så blir det mer lättläst. mvh Permalänk: https://www.webforum.nu/p/1598269 ## #9 — Kreles, 2005-04-22T10:42Z Tack så mycket =) Fick felmeddelande ``` Microsoft VBScript compilation error '800a03ee' Expected ')' /inetv05akli/miniprojekt/Fsupp_1.asp, line 52 response.write intro(2,"Läs mer >>",")<%=data("Inlagg") -----------------------------------------------^ ``` Permalänk: https://www.webforum.nu/p/1598271 ## #10 — @nders, 2005-04-22T10:45Z ``` response.write intro(2,"Läs mer >>",data("Inlagg"),6) ``` Permalänk: https://www.webforum.nu/p/1598274 ## #11 — Kreles, 2005-04-22T10:51Z Tack så jättemycket för hjälpen :f sidan ser ut så just nu, men jag ska till skolan strax och försöka få iordning på det. Du kanske vet varför det man skriver in på en annan sida inte sparas i databasen? ``` <%option explicit%> <% dim conn, data, sql set conn = createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") if request.ServerVariables("remote_method")="post" then set data = server.createobject("ADODB.connection") sql = "select * from Artiklar" data.open sql, conn, 2, 3 data.addnew data("Ämne") = request.form("Amne") data("Författare") = request.form("Forfattare") data("Inlägg") = request.form("Inlagg") data("Datum") = request.form("Datum") data.uppdate end if conn.close %> Ny artikel
Rubrik:
Namn:
Inlägg:
Datum:
© <%=formatdatetime(date, vblongdate)%> ``` Permalänk: https://www.webforum.nu/p/1598275 ## #12 — @nders, 2005-04-22T10:55Z Jag skulle tro att det beror på if-satsen: ``` if request.ServerVariables("remote_method")="post" then ``` Jag tror inte det finns något som heter *remote_method*, däremot *request_method*. Jag hade dock kontrollerat på något annat sätt, exempelvis att något postats i fältet *inlagg*: ``` if request.form("Inlagg") <> "" then ``` mvh Permalänk: https://www.webforum.nu/p/1598276 ## #13 — Kreles, 2005-04-22T11:06Z Nu gick det nog bättre =) Fick ett felmeddelande när jag skickat formuläret =) (bättre än att inget händer tycker jag...) Den gnäller om att den inte hittar databasen \*suck\*, den ligger i samma mapp på samma server Permalänk: https://www.webforum.nu/p/1598279 ## #14 — @nders, 2005-04-22T11:09Z Exakt vad för felmeddelande får du? Ett litet fel till hittade jag. På denna rad: ``` conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") ``` , ska det inte vara något = efter conn.open. Mvh Permalänk: https://www.webforum.nu/p/1598280 ## #15 — Kreles, 2005-04-22T11:09Z Fixade det där. Laddade upp databasen igen, då gick det (fast den var där innan också..) Men nu står det ``` ADODB.Connection error '800a0e78' Operation is not allowed when the object is closed. /inetv05akli/miniprojekt/Fsupp_3.asp, line 17 ``` ``` <%option explicit%> <% dim conn, data, sql set conn = createobject("ADODB.connection") conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb") if request.form("Inlagg") <> "" then set data = server.createobject("ADODB.connection") sql = "select * from Artiklar" data.open sql, conn, 2, 3 data.addnew data("Ämne") = request.form("Amne") data("Författare") = request.form("Forfattare") data("Inlägg") = request.form("Inlagg") data("Datum") = request.form("Datum") data.uppdate end if conn.close %> Ny artikel
Rubrik:
Namn:
Inlägg:
Datum:
© <%=formatdatetime(date, vblongdate)%> ``` Permalänk: https://www.webforum.nu/p/1598281 ## #16 — @nders, 2005-04-22T11:12Z Fick du med dig mitt förra inlägg, eller missade du det i farten? :) Permalänk: https://www.webforum.nu/p/1598283 ## #17 — Kreles, 2005-04-22T11:21Z Oj, det såg jag inte... Nu är det fixat iaf. Fortfarande samma felmeddelande på rad 17. Permalänk: https://www.webforum.nu/p/1598287 ## #18 — @nders, 2005-04-22T11:24Z Ytterligare ett fel: ``` set conn = [b]Server.[/b]createobject("ADODB.connection") ``` Vilken är rad 17? Permalänk: https://www.webforum.nu/p/1598289 ## #19 — Kreles, 2005-04-22T11:26Z Rad 17 data.addnew Permalänk: https://www.webforum.nu/p/1598291 ## #20 — @nders, 2005-04-22T11:30Z Ah Lite fel objekttyp. ``` set data = server.createobject("ADODB.connection") ``` skall vara ``` set data = server.createobject("ADODB.recordset") ``` Mvh Permalänk: https://www.webforum.nu/p/1598296 --- Tråden på webben: https://www.webforum.nu/amne/asp/126850-forum Nästa sida: https://www.webforum.nu/amne/asp/126850-forum/page2.md