--- title: "Enkelt_nyhetsskript" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/38184-enkelt-nyhetsskript" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "crisse6" published: "2001-02-27T11:58:00.000Z" updated: "2001-02-27T11:58:00.000Z" replies: 0 views: 1077 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/38184-enkelt-nyhetsskript" --- # Enkelt_nyhetsskript ## #1 — crisse6, 2001-02-27T11:58Z ja, nu har jag satt ihop ett VÄLDIGT enkelt nyhetsskript som jag ska använda, men tänkte bara för er som inte vet hur man gör, så är det ju en grund iaf :e oki, först, skapa en databas te x news.mdb med tabell vid namn nyheter med fälten id | räknare rubrik | text nyhet | pm datum | datum/tid sidan som lägger till nyheter: nyhet.asp: \Kod:\ \ \ \ \Untitled\ \ \ \ \

\\Rubrik\\ \\\\\ \\\\\ \\Nyheten:\\ \\

\</textarea\>\</p\>
\<p\>\<input type="submit" name="skicka" value="Lägg till"\>\</p\>\</form\>
\</body\>
\</html\>

sedan nyheter.asp:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<% 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=C:\\inetpub\\wwwroot\\grodanews.mdb" 
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT \* FROM nyheter"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew

RecSet("rubrik") = Request.Form("rubrik")
RecSet("nyhet") = Request.Form("nyhet")
RecSet("datum") = Request.Form("datum")
RecSet.Update
RecSet.Close
Connect.Close %\>

\<b\>Här ser man lite vad man skrev som nyhet mm...:\</b\>\<p\>

Rubrik:\<br\>\<b\>\<% =Request.Form("rubrik") %\>\</b\>\<p\>
Nyheten:\<br\>\<b\>\<% =Request.Form("nyhet") %\>\</b\>\<p\>
Datum:\<br\>\<b\>\<% =Request.Form("datum") %\>\</b\>\<p\>

och sedan den kod som visar den nyhet med nyast datum, shownews.asp:

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsNews = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("news.mdb")
Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT \* FROM nyheter WHERE rubrik ORDER BY datum DESC"
rsNews.Open SQL, Databas, 1, 2

If rsNews.EOF then
%\>
Ingen nyhet!
%\>
\<% End If %\>

Rubrik:\<br\>
\<%=rsNews("rubrik")%\> 
\<br\>
Datum:\<br\>
\<%=rsNews("datum")%\>
\<br\>
Nyheten:\<br\>
\<%=rsNews("nyhet")%\>

klart :e

aja, du får kolla noga så allt stämmer i sökvägar, tabeller oså.... lycka till :)

psst.... tack för att ni ger skriptet sådanna toppbetyg :) kolla gärna på överskriften samt vad jag skrivit om det, känner ni kanske igen:

> ja, nu har jag satt ihop ett VÄLDIGT enkelt nyhetsskript som jag ska använda, men tänkte bara för er som inte vet hur man gör, så är det ju en grund iaf :e

\[Redigerat av crisse6 den 01 mar 2001\]

Permalänk: https://www.webforum.nu/p/38184

---

Tråden på webben: https://www.webforum.nu/amne/asp/38184-enkelt-nyhetsskript