--- title: "IDG nyhetsscript" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/5861-idg-nyhetsscript" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Asp Ny" published: "2000-05-13T14:02:00.000Z" updated: "2000-06-17T21:31:00.000Z" replies: 14 views: 218 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/5861-idg-nyhetsscript" --- # IDG nyhetsscript ## #1 — Asp Ny, 2000-05-13T14:02Z Jag har laddat hem: Och den jag får inte den att funka...jag får upp detta: Microsoft OLE DB Provider for ODBC Drivers fel '80004005' \[Microsoft\]\[ODBC Driver Manager\] Datakällan hittades inte och ingen standarddrivrutin är angiven /webroot/index.asp, rad 5 PÅ rad 5 står det: Connection.Open Application("NewsDatabasePath") \[Redigerat av Asp Ny den 13 maj 2000\] Permalänk: https://www.webforum.nu/p/5861 ## #2 — Asp Ny, 2000-05-13T19:12Z Någon som vet??? Permalänk: https://www.webforum.nu/p/243681 ## #3 — cgi, 2000-05-13T20:16Z Byt ut den raden mot: Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet MdbFilePath = Server.MapPath("news.mdb") 'Specifierar sökvägen till databasen Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen Permalänk: https://www.webforum.nu/p/243682 ## #4 — Asp Ny, 2000-05-13T20:34Z cgi\>\> NU funkar det lite, kolla nästa inlägg \[Redigerat av Asp Ny den 13 maj 2000\] Permalänk: https://www.webforum.nu/p/243683 ## #5 — Asp Ny, 2000-05-13T21:28Z Nu Kommer jag in i index.asp "lite" det kommer upp en text med detta: Körningsfel i Microsoft VBScript fel '800a000d' Inkompatibla typer: 'UBOUND' /nyhet/index.asp, rad 24 På rad 24 står det: For i = 0 To UBOUND(Session("MyArray"),2) Någon som vet vad som e fel?? Permalänk: https://www.webforum.nu/p/243684 ## #6 — AG, 2000-05-13T21:44Z Ersätt från \ till bott med: \ \ \Databasbaserad Nyhetsdatabas...\ \ \ \ \ \

\ \

\ \<% Do until RS.EOF Datum = FormatDateTime(RS("Datum"),2)%\> \\\\<%=Datum%\>\\ \\ \\ \

\\\<%= RS("Rubrik")%\>\\\ \\\\<%=RS ("Artikel")%\>\\\ \

\\\\Skrivet av : \<% If RS("Skribent")="" Then Response.write("Okänd") Else Response.write(RS("Skribent")) End If %\>\\\\\ \

\\ \<% RS.Execute %\> \ \

\ \

\ \ \

\\Sök nyheter\\\ \ \ \

\ \ \ \

\ \ \ \ \ \ \ \ Andreas Permalänk: https://www.webforum.nu/p/243685 ## #7 — Asp Ny, 2000-05-13T21:51Z detta kom fram Kompileringsfel i Microsoft VBScript fel '800a03fb' 'Loop' förväntas. /nyhet/index.asp, rad 33 \<% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=c:\\inetpub\\wwwroot\\nyhet\\news.mdb" SQL = "SELECT \* FROM Nyheter Order by Id Desc" Set RS = Connection.Execute(SQL) Datum=FormatDateTime(Now,2) %\> \ \ \Databasbaserad Nyhetsdatabas...\ \ \ \ \ \

\ \

\ \<% Do until RS.EOF Datum = FormatDateTime(RS("Datum"),2)%\> \\\\<%=Datum%\>\\ \\ \\ \

\\\<%= RS("Rubrik")%\>\\\ \\\\<%=RS ("Artikel")%\>\\\ \

\\\\Skrivet av : \<% If RS("Skribent")="" Then Response.write("Okänd") Else Response.write(RS("Skribent")) End If %\>\\\\\ \

\\ \<% RS.Execute %\> \ \

\ \

\ \ \

\\Sök nyheter\\\ \ \ \

\ \

\\\\ \\ \ \ \ \ \

\ \ \ \

\ \ \ \ \ \ \ \ Permalänk: https://www.webforum.nu/p/243686 ## #8 — AG, 2000-05-14T10:25Z Mitt misstag Ersätt \<% RS.Execute %\> Med: \<% RS.MoveNext Loop %\> Borde det fungera Andreas Permalänk: https://www.webforum.nu/p/243687 ## #9 — Asp Ny, 2000-05-14T12:10Z Nu funkar det, har en fråga till på detta området. Jag ska skapa en ny sida, (ny.asp) Där ska man kunna se det 5 senaste nyheterna som man har lagt in i databasen. Hur gör man det?? \[Redigerat av Asp Ny den 14 maj 2000\] Permalänk: https://www.webforum.nu/p/243688 ## #10 — AG, 2000-05-14T13:32Z Spara filen som ny.asp bara: \<% Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=c:\\inetpub\\wwwroot\\nyhet\\news.mdb" SQL = "SELECT TOP 5 \* FROM Nyheter Order by Id Desc" Set RS = Connection.Execute(SQL) Datum=FormatDateTime(Now,2) %\> \ \ \Databasbaserad Nyhetsdatabas...\ \ \ \ \ \

\ \

\ \<% Do until RS.EOF Datum = FormatDateTime(RS("Datum"),2)%\> \\\\<%=Datum%\>\\ \\ \\ \

\\\<%= RS("Rubrik")%\>\\\ \\\\<%=RS ("Artikel")%\>\\\ \

\\\\Skrivet av : \<% If RS("Skribent")="" Then Response.write("Okänd") Else Response.write(RS("Skribent")) End If %\>\\\\\ \

\\ \<% RS.MoveNext Loop %\>\ \

\ \

\ \ \

\\Sök nyheter\\\ \ \ \

\ \

\\\\ \\ \ \ \ \ \

\ \ \ \

\ \ \ \ \ \ \ \ Koden är nästan samma som den tidigare bara att top 5 har lagts till i select satsen. Andreas Permalänk: https://www.webforum.nu/p/243689 ## #11 — Asp Ny, 2000-05-14T14:03Z Jag tackar så mycket för det!!! Undrar en grej, Om jag vill visa 40 tecken i nyheten, sen vill jag att det ska finns en länk till hela nyheten. Hur gör man då? Det stod: Om du skriver in ex, Compaq så ska den bli länkad direkt utan att du ska behöva göra något. Jag har lagt in den i databasen. Men inget händer när jag skriv compaq i en nyhet... vad har jag gjort för fel? Sedan en extra funktion, om man vill ha ett script som både kan ändra i nyheten, och ta bort hela nyheten... Hur blir koden då? \[Redigerat av Asp Ny den 14 maj 2000\] Permalänk: https://www.webforum.nu/p/243690 ## #12 — sgtpepper, 2000-05-14T14:18Z > Om jag vill visa 40 tecken i nyheten, sen vill jag att det ska finns en länk till hela nyheten. > Hur gör man då? Använd t.ex funktionen Left, som returnerar en delsträng på x antal tecken: ``` Dim art art = Rs("Artikel") If Len(art) > 40 Then Response.Write Left(art, 40) & "..." Else Response.Write art End If ``` Permalänk: https://www.webforum.nu/p/243691 ## #13 — fredrik99, 2000-05-14T15:22Z Jag vill oxå få reda på det som Asp Ny skrev i sitt senaste inlägg... Ingen som vet hur man gör det? Permalänk: https://www.webforum.nu/p/243692 ## #14 — DavidB, 2000-05-14T18:15Z Gå in på där står det om databaser hur man lägger till och tar bort m.m Permalänk: https://www.webforum.nu/p/243693 ## #15 — fredrik99, 2000-06-17T21:31Z När man skriver: ``` <% Dim art art = Rs("Artikel") If Len(art) > 100 Then Response.Write Left(art, 100) & "..." Else Response.Write art End If %> ``` Så blir resultatet: 1998-05-13 USA-domstol tillåter Microsoft att leverera Windows 98 som planerat. En appellationsdomstol ... Windows 98 levereras enligt tidsplan Skrivet av : Michael \----------------------------- Det ska blir: 1998-05-13 Windows 98 levereras enligt tidsplan USA-domstol tillåter Microsoft att leverera Windows 98 som planerat. En appellationsdomstol befriar Microsoft från ett föreläggande om att separera webbläsare och operativsystem. Det innebär att Windows 98 levereras till pc-leverantörer nu på fredag den 15 maj. Den officiella lanseringen är den 25 juni. Skrivet av : Michael \------------ Alltså rubriken hoppar ner...och det ska den inte göra. \[Redigerat av fredrik99 den 17 jun 2000\] Permalänk: https://www.webforum.nu/p/243694 --- Tråden på webben: https://www.webforum.nu/amne/asp/5861-idg-nyhetsscript