---

Hej

Hvordan vil i lave en funktion der gør at når den skriver dagens navn ind i
db'en

jeg har følgende :
Select Case weekday(Now,vbMonday)
Case 1
Response.Write "Mandag"
Case 2
Response.Write "Tirsdag"
Case 3
Response.Write "Onsdag"
Case 4
Response.Write "Torsdag"
Case 5
Response.Write "Fredag"
Case 6
Response.Write "Lørdag"
Case 7
Response.Write "Søndag"
End Select


Sql = "INSERT INTO nyheder (dagnavn) VALUES(''" & Select Case(Weekday) &
"')"


--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

---

"Kenneth Fuglsang" <kenneth-fuglsang@pc.dk> wrote in message
news:9g30e4$g1k$1@news.inet.tele.dk...
> Hvordan vil i lave en funktion der gør at når den skriver dagens navn ind
i
> db'en

Du kunne jo lave en lille tabel(Ok, måske lidt overnormalisering hvis det er
en lille applikation) med ugedagene sådan her:

1|Mandag
2|Tirsdag
4|Onsdag
osv..
Og så bare smide nummeret i din nyhedsdatabase. Så kunne du på et senere
tidspunkt gå fra at skrive tirsdat til at skrive bare tirs. eller lignende.

Men ellers

Sql = "INSERT INTO nyheder (dagnavn) VALUES(''" & WeekdayName(Weekday(Now(),
2), False, 2) &"')"

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "

---

"Kenneth Fuglsang" <kenneth-fuglsang@pc.dk> skrev:
> Select Case weekday(Now,vbMonday)
> Case 1
> Response.Write "Mandag"
> Case 2
> ....
> End Select
> Sql = "INSERT INTO nyheder (dagnavn) VALUES(''" &_
> Select Case(Weekday) & "')"

Dette blir helt galt. Select Case oppretter ingen funksjon,
men fungerer som en If..ElseIf-setning. Det du må lage er
en funksjon på denne måten:

<%

Function ukeDag()
Dim dagNummer, dagNavn
dagNummer = Weekday(Now(), vbMonday)

Select Case dagNummer
Case 1
dagNavn = "Mandag"
Case 2
dagNavn = "Tirsdag"
Case 3
dagNavn = "Onsdag"
Case 4
dagNavn = "Torsdag"
Case 5
dagNavn = "Fredag"
Case 6
dagNavn = "Lørdag"
Case 7
dagNavn = "Søndag"
End Select

ukeDag = dagNavn
End Function

%>

Hvis du nå skriver om SQL-setningen din, skal det fungere:

<%

strSQl = "INSERT INTO nyheder (dagnavn) " &_
"VALUES('" & ukeDag() & "')"

%>

--
Mvh
Asbjørn Ulsberg
asbjorn@tigerstaden.no

---

Hej

Nu ser mit script så sådan ud :
Function ugeDag()
Dim dagNummer, dagNavn
dagNummer = Weekday(Now(), vbMonday)

Select Case dagNummer
Case 1
dagNavn = "Mandag"
Case 2
dagNavn = "Tirsdag"
Case 3
dagNavn = "Onsdag"
Case 4
dagNavn = "Torsdag"
Case 5
dagNavn = "Fredag"
Case 6
dagNavn = "Lørdag"
Case 7
dagNavn = "Søndag"
End Select

ugeDag = dagNavn
End Function


IF Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Overskrift, Nyhed, Forfatter, Email, Minut,
Time, År, Måned, Dag, Dagnavn) VALUES('" & fixQuotes( Overskrift ) & "','" &
fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "','" &
ixQuotes( Email ) & "','" & Minute(Time) & "','" & Hour(Time) & "','" &
Year(Time) & "','" & Month(Time) & "','" & Day(Time) & "','" & ugeDag() &
"')"
Con.Execute Sql

Men den laver en fejl i Insert Into Kommandoen

--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

---

"Kenneth Fuglsang" <kenneth-fuglsang@pc.dk> wrote in message
news:9g5gbt$qfm$1@news.inet.tele.dk...
> Men den laver en fejl i Insert Into Kommandoen

Har du prøvet at skrive din SQL ud?

Hvad var der galt med:

<%= WeekdayName(Weekday(Now(), 2), False, 2) %>

Den returnerer da fint navnet på ugedagen.

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "

---

On Tue, 12 Jun 2001 18:34:19 +0200, "Kenneth Fuglsang"
<kenneth-fuglsang@pc.dk> wrote:

> Sql = "INSERT INTO nyheder (Overskrift, Nyhed, Forfatter, Email, Minut,
>Time, År, Måned, Dag, Dagnavn) VALUES( <SNIP>

Hvorfor bruge så mange felter på en tidsangivelse, når databasen på
glimrende vis kan håndtere det hele i ét felt?

Mvh. Jørn

--
Jørn Andersen
Brønshøj

---

Hej

Hvordan det ? hvis jeg gerne vil stille det op på denne måde i mit script
der viser datoen.
Dagnavn d. Dag-Måned År Kl. Time:Minut

--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

"Jørn Andersen" <jorn.a@email.dk> skrev i en meddelelse
news:eklcito9i4rh2lj8uho0va0jaifkp01oqa@4ax.com...
> Hvorfor bruge så mange felter på en tidsangivelse, når databasen på
> glimrende vis kan håndtere det hele i ét felt?

---

On Tue, 12 Jun 2001 20:03:48 +0200, "Kenneth Fuglsang"
<kenneth-fuglsang@pc.dk> wrote:

>Hvordan det ? hvis jeg gerne vil stille det op på denne måde i mit script
>der viser datoen.
>Dagnavn d. Dag-Måned År Kl. Time:Minut

Kig fx her for inspiration:
<URL: http://www.html.dk/tutorials/asp/lektion4.asp>

<%
'-- Skriv dagens ugedag, dato og tid
Response.Write UCase(Left(WeekDayName(Weekday(Now, 2), True, 0), 1))
Response.Write Mid(WeekDayName(Weekday(Now, 2), False, 0), 2) & " "
Response.Write "den " & FormatDateTime(Now, vbLongDate)
Response.Write " kl. " & FormatDateTime(Now, vbLongTime)
Response.Write " (Uge " & DatePart("ww", Now, 0, 2) & ")"
%>

Giver: Tirsdag den 12. juni 2001 kl. 20:21:12 (Uge 24)

Hvis du bruger vbShortDate, får du: 12-06-01
Hvis du bruger vbShortTime, får du: 20:21

- der er masser af muligheder.

Hvis du skal have mere inspiration, så kig:
<URL: http://msdn.microsoft.com/scripting/vbscript/doc/vbstoc.htm>

- kig efter alt, der har med datoer at gøre, under "Alphabetic Keyword
List".


Good luck,
Jørn

--
Jørn Andersen
Brønshøj

---

Hvad vil koden så være for at få den til at skrive
Tirsdag d. 12. juni 2001 kl. 20:21
ind i databasen.

--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

---

Kenneth Fuglsang wrote:
>
> Hvad vil koden så være for at få den til at skrive
> Tirsdag d. 12. juni 2001 kl. 20:21
> ind i databasen.

Hvorfor er det, at du vil have en dato ind i databasen som en tekst og
ikke som en ...hmm... dato?

--
Lauritz

---

Det kan også være ligemeget hvis bare jeg kan få den til at hente det us som
tekst.

--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk
ICQ : 115251242

> Hvorfor er det, at du vil have en dato ind i databasen som en tekst og
> ikke som en ...hmm... dato?

---

On Tue, 12 Jun 2001 20:50:55 +0200, "Kenneth Fuglsang"
<kenneth-fuglsang@pc.dk> wrote:

>Hvad vil koden så være for at få den til at skrive
>Tirsdag d. 12. juni 2001 kl. 20:21
>ind i databasen.

Humlen er jo netop, at det skal du *ikke* gøre.
Gem tidsangivelsen i dato/tid-format, så kan du få fremvist det på
dine ASP-sider i det format, du ønsker.

Derimod kan du godt få databasen til at *vise* tidsformatet, hvis det
egentlig er det, du vil?

Hvis det er Access (97) gøres det under egenskabsen "Format" for det
pågældende tabelfelt - ved at angive

dddd" d. "d". "mmmm åååå tt:nn

- ugedagen bliver så godt nok med lille, det ved jeg ikke, hvordan man
løser??

Sæt cursoren i Format-feltet og tryk F1, hvis du vil have hjælp til at
ændre formatet.

Her er igen fordelen ved at gemme tids-data i dato/tid-format: Hvis du
nu ombestemmer dig og vil have det vist i et andet format i databasen
(eller for den sags skyld på ASP-siden), så skal du kun ændre det ét
sted.

Good luck,
Jørn


--
Jørn Andersen
Brønshøj

---

On Mon, 11 Jun 2001 19:50:19 +0200, "Kenneth Fuglsang"
<kenneth-fuglsang@pc.dk> wrote:

>Hvordan vil i lave en funktion der gør at når den skriver dagens navn ind i
>db'en

Hvorfor vil du egentlig have dagens navn ind i db'en, hvis du i
forvejen har datoen?
Du kan jo altid trække dagens navn ud, når du vil, hvis du kender
datoen.
Og du får det problem, at hvis du af en eller anden grund kommer til
at ændre datoen uden at ændre dagens navn - hvad gælder så??

Mit forslag er, at du *kun* gemmer datoen i db'en. Hvis du så skal
bruge ugedag, månedsnavn, år el. lign., så skaf dig den information ud
fra datoen.

Good luck,
Jørn

--
Jørn Andersen
Brønshøj