Notifikationer

Markér alle som læst Log ud

svinget Praktikant

09. februar 2006 - 18:12 Der er 11 kommentarer og
1 løsning

Datoformat på website

Hej

Med god hjælp har jeg fået lavet en listning af aftaler i en Access databse sorteret efter måned.

Er det muligt at få listet datoformat som LØ 26-02 på websiten i stedet for 26-02-2006?

<%
session.lcid = 1030
strSQL = "Select * from kalender order by start"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<tr>
<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a>  </td>
<td width="75" class="menutext"><%=kalender("slut") &" aftale nr:" & aftalenr%> </td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%> </td>

</tr>
<% kalender.MoveNext
loop
set kalender = nothing
'close conn
%>

/Kim

Synes godt om

Slettet bruger

09. februar 2006 - 18:59 #1

jamen det er det da...
Du skal bare lige have en funktion med så... sådan her:
<%
function ugedag(Wstreng)
if isdate(Wstreng) then
Wstreng = WeekDay(Wstreng)
if Wstreng = 1 then
Wstreng = "SØ"
elseif Wstreng = 2 then
Wstreng = "MA"
elseif Wstreng = 3 then
Wstreng = "TI"
elseif Wstreng = 4 then
Wstreng = "ON"
elseif Wstreng = 5 then
Wstreng = "TO"
elseif Wstreng = 6 then
Wstreng = "FR"
elseif Wstreng = 7 then
Wstreng = "LØ"
end if
ugedag = Wstreng
else
ugedag = ""
end if
end function
session.lcid = 1030
strSQL = "Select * from kalender order by start"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<tr>
<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a>  </td>
<td width="75" class="menutext"><%=ugedag(kalender("slut")) & " " & kalender("slut") &" aftale nr:" & aftalenr%> </td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%> </td>

</tr>
<% kalender.MoveNext
loop
set kalender = nothing
'close conn
%>

- her går jeg ud fra at det er "kalender("slut")" der udgør datoen...

\Dan

Synes godt om

Slettet bruger

09. februar 2006 - 19:05 #2

- Sorry! Det skal selvfølgelig se sådan her ud... Det kunne jo være jeg skulle prøve at læse hele dit spørgsmål en anden gang... hehe
<%
function ugedag(Wstreng)
if isdate(Wstreng) then
tid = Wstreng
Wstreng = WeekDay(Wstreng)
if Wstreng = 1 then
Wstreng = "SØ"
elseif Wstreng = 2 then
Wstreng = "MA"
elseif Wstreng = 3 then
Wstreng = "TI"
elseif Wstreng = 4 then
Wstreng = "ON"
elseif Wstreng = 5 then
Wstreng = "TO"
elseif Wstreng = 6 then
Wstreng = "FR"
elseif Wstreng = 7 then
Wstreng = "LØ"
end if
ugedag = Wstreng & " " & day(tid) & "-" & month(tid)
else
ugedag = ""
end if
end function
session.lcid = 1030
strSQL = "Select * from kalender order by start"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<tr>
<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a>  </td>
<td width="75" class="menutext"><%=ugedag(kalender("slut")) &" aftale nr:" & aftalenr%> </td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%> </td>

</tr>
<% kalender.MoveNext
loop
set kalender = nothing
'close conn
%>

\Dan

Synes godt om

svinget Praktikant

09. februar 2006 - 21:00 #3

hmmm Der er ingen forskel i det der vises - Det er stadig 26-02-2006 :?)

<%
function ugedag(Wstreng)
if isdate(Wstreng) then
tid = Wstreng
Wstreng = WeekDay(Wstreng)
if Wstreng = 1 then
Wstreng = "SØ"
elseif Wstreng = 2 then
Wstreng = "MA"
elseif Wstreng = 3 then
Wstreng = "TI"
elseif Wstreng = 4 then
Wstreng = "ON"
elseif Wstreng = 5 then
Wstreng = "TO"
elseif Wstreng = 6 then
Wstreng = "FR"
elseif Wstreng = 7 then
Wstreng = "LØ"
end if
ugedag = Wstreng & " " & day(tid) & "-" & month(tid)
else
ugedag = ""
end if
end function
session.lcid = 1030
strSQL = "Select * from kalender order by opstart"
' strSQL = "Select * from kalender where opstart >= #" &date()&"# order by opstart"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("opstart")) <> nuvmd then
response.write "<tr><td colspan = ""3"" class=""menutextbold"">" & monthname(month(kalender("opstart"))) &"</td></tr>"
' response.write "<tr><td colspan = ""3"">" & monthname(month(kalender("opstart"))) &"</td></tr>"
nuvmd = month(kalender("opstart"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<tr>
<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("opstart")%></a>  </td>
<td width="75" class="menutext"><%=kalender("slut")%> </td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%> </td>
</tr>
<% kalender.MoveNext
loop
%>

Synes godt om

Slettet bruger

09. februar 2006 - 21:08 #4

OK! Men hvad hedder det felt i databasen som udgør datoen???
Jeg har jo sat funktionen på den som hedder "kalender("slut")" Men jeg ved jo ikke om det er den dato du taler om?

\Dan

Synes godt om

svinget Praktikant

09. februar 2006 - 21:30 #5

Det er både "opstart" og "slut". Måske har jeg ikke fået det hele med. Har du ændret i denne:
<td width="75" class="menutext"><%=kalender("slut")%> </td>

Synes godt om

Slettet bruger

09. februar 2006 - 21:42 #6

Ja, det har jeg ændret i!
- Men prøv at komme med et eksempel på hvordan outputtet for eksempel kunne se ud ved henholdsvist "opstart" og "slut"...
Hvis disse for eksempel kunne se sådan her ud: "24-12-2006" skal kildekoden være som nedenstående:
<%
function ugedag(Wstreng)
if isdate(Wstreng) then
tid = Wstreng
Wstreng = WeekDay(Wstreng)
if Wstreng = 1 then
Wstreng = "SØ"
elseif Wstreng = 2 then
Wstreng = "MA"
elseif Wstreng = 3 then
Wstreng = "TI"
elseif Wstreng = 4 then
Wstreng = "ON"
elseif Wstreng = 5 then
Wstreng = "TO"
elseif Wstreng = 6 then
Wstreng = "FR"
elseif Wstreng = 7 then
Wstreng = "LØ"
end if
ugedag = Wstreng & " " & day(tid) & "-" & month(tid)
else
ugedag = ""
end if
end function
session.lcid = 1030
strSQL = "Select * from kalender order by start"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<tr>
<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=kalender("start")%></a>  </td>
<td width="75" class="menutext"><%=ugedag(kalender("slut")) &" aftale nr:" & aftalenr%> </td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%> </td>

</tr>
<% kalender.MoveNext
loop
set kalender = nothing
'close conn
%>

- Og du har da ikke noget der hedder "opstart" i databasen eller hvad?
Jeg kan i hvert fald ikke se det...

\Dan

Synes godt om

Slettet bruger

09. februar 2006 - 21:43 #7

VUPTI!!! Jeg går ud fra at du mener "start" og ikke "opstart"... Så skal det se sådan her ud:
<%
function ugedag(Wstreng)
if isdate(Wstreng) then
tid = Wstreng
Wstreng = WeekDay(Wstreng)
if Wstreng = 1 then
Wstreng = "SØ"
elseif Wstreng = 2 then
Wstreng = "MA"
elseif Wstreng = 3 then
Wstreng = "TI"
elseif Wstreng = 4 then
Wstreng = "ON"
elseif Wstreng = 5 then
Wstreng = "TO"
elseif Wstreng = 6 then
Wstreng = "FR"
elseif Wstreng = 7 then
Wstreng = "LØ"
end if
ugedag = Wstreng & " " & day(tid) & "-" & month(tid)
else
ugedag = ""
end if
end function
session.lcid = 1030
strSQL = "Select * from kalender order by start"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<tr>
<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=ugedag(kalender("start"))%></a>  </td>
<td width="75" class="menutext"><%=ugedag(kalender("slut")) &" aftale nr:" & aftalenr%> </td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%> </td>

</tr>
<% kalender.MoveNext
loop
set kalender = nothing
'close conn
%>

\Dan

Synes godt om

svinget Praktikant

09. februar 2006 - 21:59 #8

Kanont :) - kan man "tvinge" dato'en til at være 5 karakterer, så det er 03-02 i stedet for 3-2

Synes godt om

Slettet bruger

09. februar 2006 - 23:11 #9

tjae... det kan vi vel godt tvinge den til... men så skal du lige have en function som er noget længere end den ovenfor...
Så skal det hele se således ud:
<%
function ugedag(Wstreng)
if isdate(Wstreng) then
tid = Wstreng
Wstreng = WeekDay(Wstreng)
if Wstreng = 1 then
Wstreng = "SØ"
elseif Wstreng = 2 then
Wstreng = "MA"
elseif Wstreng = 3 then
Wstreng = "TI"
elseif Wstreng = 4 then
Wstreng = "ON"
elseif Wstreng = 5 then
Wstreng = "TO"
elseif Wstreng = 6 then
Wstreng = "FR"
elseif Wstreng = 7 then
Wstreng = "LØ"
end if
dag = day(tid)
if dag = 1 then
dag = "01"
elseif dag = 2 then
dag = "02"
elseif dag = 3 then
dag = "03"
elseif dag = 4 then
dag = "04"
elseif dag = 5 then
dag = "05"
elseif dag = 6 then
dag = "06"
elseif dag = 7 then
dag = "07"
elseif dag = 8 then
dag = "08"
elseif dag = 9 then
dag = "09"
end if
maaned = month(tid)
if maaned = 1 then
maaned = "01"
elseif maaned = 2 then
maaned = "02"
elseif maaned = 3 then
maaned = "03"
elseif maaned = 4 then
maaned = "04"
elseif maaned = 5 then
maaned = "05"
elseif maaned = 6 then
maaned = "06"
elseif maaned = 7 then
maaned = "07"
elseif maaned = 8 then
maaned = "08"
elseif maaned = 9 then
maaned = "09"
end if
ugedag = Wstreng & " " & dag & "-" & maaned
else
ugedag = ""
end if
end function
session.lcid = 1030
strSQL = "Select * from kalender order by start"
set kalender = Conn.Execute(strSQL)
do while not kalender.eof
if month(kalender("start")) <> nuvmd then
response.write "<tr><td colspan = ""3"">" & month(kalender("start")) &"</td></tr>"
nuvmd = month(kalender("start"))
aftalenr = 0
end if
aftalenr = aftalenr + 1
%>

<tr>
<td width="75" class="menutext"><a href="calender_change.asp?id=<%=kalender("id")%>"><%=ugedag(kalender("start"))%></a>  </td>
<td width="75" class="menutext"><%=ugedag(kalender("slut")) &" aftale nr:" & aftalenr%> </td>
<td width="250" class="menutext"><%=kalender("beskrivelse")%> </td>

</tr>
<% kalender.MoveNext
loop
set kalender = nothing
'close conn
%>

\Dan

Synes godt om

svinget Praktikant

21. april 2006 - 14:57 #10

Ser virker perfekt - takker (beklager min sene tilbagemelding). Poster du et svar?

/Kim

Synes godt om

svinget Praktikant

12. maj 2006 - 00:03 #11

Et svar?

Synes godt om

Slettet bruger

23. maj 2006 - 16:43 #12

OK!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS