---
title: "Info med avseende på dag"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13770-info-med-avseende-på-dag"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2002-01-12T20:59:00.000Z"
updated: "2002-01-14T16:46:00.000Z"
replies: 9
views: 149
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/13770-info-med-avseende-på-dag"
---

# Info med avseende på dag

## #1 — Gimbo, 2002-01-12T20:59Z

Hejsan, 

Jag har ett script som slumpar ut skämt från databasen, men nu är det som så at jag vill att detta script skall hämta ett skämt per dag, dvs ett nytt skämt för varje ny dag...

så här ser min kod ut:

```
<%
' Här skapar vi en dsn-less connection mot qoute
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databasen.mdb")
Connect.Open DSNtemp

'Vi slumpar fram ett skämt och skriver ut det.
Set RS_count = Connect.Execute ("SELECT COUNT(*) AS count FROM skämt")
Randomize
wisdom = INT(RND*RS_count("count"))
Set r=Connect.Execute("SELECT * FROM skämt")
r.Move wisdom
Response.Write r("skamt")
'Vi stänger databasen
Connect.close
Set Connect=nothing 
%>
```

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

## #2 — LarsG, 2002-01-12T21:27Z

Du får spara datum och skämtet i en application-variabel och kontrollera datumet mot dagens datum.

```
<%
if  cdate(application("jokedate")) <> date then
' Här skapar vi en dsn-less connection mot qoute
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databasen.mdb")
Connect.Open DSNtemp
'Vi slumpar fram ett skämt och skriver ut det.
Set RS_count = Connect.Execute ("SELECT COUNT(*) AS count FROM skämt")
Randomize
wisdom = INT(RND*RS_count("count"))
Set r=Connect.Execute("SELECT * FROM skämt")
r.Move wisdom
application.lock
application("jokedate") = date
application("joke") = rs("skamt")
application.unlock
'Vi stänger databasen
Connect.close
Set Connect=nothing 
end if
%>

response.write application("joke")
```

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

## #3 — Gimbo, 2002-01-12T21:56Z

hmmm... alltså i tabellen ska jag ha 3st kolumner, ID, Skämt och datum

och varje skämt ska ha ett datum 2002-01-01 nästa skämt datumet 2002-01-02 osv. eller hur ska man gå tillväga för det blir rätt så jobbigt att skriva in 365skämt och datumet för varje skämt...

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

## #4 — Pace, 2002-01-12T22:07Z

Det är precis det LarsGs kod gör, som du bad om i första inlägget alltså! ;)

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

## #5 — Gimbo, 2002-01-12T22:11Z

okej men hur ska datumet skrivas, ska det skrivas som jag visa dvs i denna form 2002-01-01 osv eller på ngt annat sätt?

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

## #6 — Pace, 2002-01-12T22:14Z

Det kvittar. Eftersom dagens datum inte är detsamma som 2001-01-01 kommer det automatiskt att slumpas fram ett nytt skämt. Men om nu dagens datum skulle vara detsamma som 2001-01-01 så tas skämtet från Applcation-variabeln.

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

## #7 — Gimbo, 2002-01-13T01:49Z

Jag ska göra kunskaprutor istället...

Så här ser min tabell i databasen ut:
Tabellens namn är kunskap och kolumnerna är ID, kunskap, datum

och så här ser kopplingen ut:

```
<%
if cdate(application("datum")) <> date then
' Här skapar vi en dsn-less connection mot qoute
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databasen.mdb")
Connect.Open DSNtemp
'Vi slumpar fram ett skämt och skriver ut det.
Set RS_count = Connect.Execute ("SELECT COUNT(*) AS count FROM kunskap")
Randomize
wisdom = INT(RND*RS_count("count"))
Set r=Connect.Execute("SELECT * FROM kunskap")
r.Move Visdom
application.lock
application("datum")= date
application("kunskap") = rs("kunskap")
application.unlock
'Vi stänger databasen
Connect.Close
Set Connect=nothing
End if
```

Jag får det inte att fungera jag har listat upp några grejer i databasen, till varje ID har jag en kunskapstext och sedan ett datum, men det fungerar ju inte... Den skriver inte ut ngt från databasen...

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

## #8 — Pace, 2002-01-13T14:25Z

Svengelska!

```
wisdom = INT(RND*RS_count("count"))
Set r=Connect.Execute("SELECT * FROM kunskap")
r.Move [b]V[/b]isdom
```

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

## #9 — Gimbo, 2002-01-13T22:01Z

heheh, har gjort det till rent Engelska dvs bytt ut V mot W men den skriver fortfarande inte ut ngt från databasen, jag får varken ngt felmeddelande lr ngt annat rutan blir bara tom

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

## #10 — Gimbo, 2002-01-14T16:46Z

Ingen som kan hjälpa mig??

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13770-info-med-avseende-på-dag