|
|
 | Aktivitetsliste
Fra : Jørgen Nielsen |
Dato : 01-05-10 15:21 |
|
Aktivitetslisten på vores forenings hjemmeside er holdt op med at
virke efter 5 år tror det er noget at regne med aar, maaned, dag,
tid.
Her er koden jeg bruger.
<%
Function DanskDatoTid(dato)
arrDag = ",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
arrDag = Split(arrDag,",")
arrMaaned = ",januar,februar,marts,april,maj,juni,juli,august,"
arrMaaned = arrMaaned & "september,oktober,november,december"
arrMaaned = Split(arrMaaned,",")
DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " &
Day(dato) & ". "
DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato))
End Function
MDato = Year(now)
if len(month(now))= 1 then
MDato = MDato & "0" & month(now)
else
MDato = MDato & month(now)
end if
if len(day(now))= 1 then
MDato = MDato & "0" & day(now)
else
MDato = MDato & day(now)
end if
strSQL = "Select * from aktiviteter where ADato>='" & MDato & "'
order by aar, maaned, dag, tid"
Set rs = Conn.Execute(strSQL)
do
BTid = rs("maaned") & "/" & rs("dag") & "/20" & rs("aar")
%>
Håber der er nogle der kan hjælpe.
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
 Ukendt (02-05-2010)
| Kommentar
Fra : Ukendt |
Dato : 02-05-10 14:19 |
|
"Jørgen Nielsen" <jorgen-v@nielsen.mail.dk> skrev i en meddelelse
news:4bdc38b8$0$279$14726298@news.sunsite.dk...
> Aktivitetslisten på vores forenings hjemmeside er holdt op med at
> virke efter 5 år tror det er noget at regne med aar, maaned, dag,
> tid.
> Her er koden jeg bruger.
>
> <%
>
> Function DanskDatoTid(dato)
>
> arrDag = ",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
>
> arrDag = Split(arrDag,",")
>
> arrMaaned = ",januar,februar,marts,april,maj,juni,juli,august,"
>
> arrMaaned = arrMaaned & "september,oktober,november,december"
>
> arrMaaned = Split(arrMaaned,",")
>
> DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " &
> Day(dato) & ". "
>
> DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato))
>
> End Function
>
>
>
> MDato = Year(now)
>
> if len(month(now))= 1 then
>
> MDato = MDato & "0" & month(now)
>
> else
>
> MDato = MDato & month(now)
>
> end if
>
> if len(day(now))= 1 then
>
> MDato = MDato & "0" & day(now)
>
> else
>
> MDato = MDato & day(now)
>
> end if
>
> strSQL = "Select * from aktiviteter where ADato>='" & MDato & "'
> order by aar, maaned, dag, tid"
>
> Set rs = Conn.Execute(strSQL)
>
> do
>
> BTid = rs("maaned") & "/" & rs("dag") & "/20" & rs("aar")
>
> %>
>
> Håber der er nogle der kan hjælpe.
>
Hvad er fejlmeldingen...
Bjarne
| |
Jørgen Nielsen (02-05-2010)
| Kommentar
Fra : Jørgen Nielsen |
Dato : 02-05-10 15:21 |
|
bsn wrote in dk.edb.internet.webdesign.serverside.asp:
> "Jørgen Nielsen" <jorgen-v@nielsen.mail.dk> skrev i en meddelelse
> news:4bdc38b8$0$279$14726298@news.sunsite.dk...
> > Aktivitetslisten på vores forenings hjemmeside er holdt op med at
> > virke efter 5 år tror det er noget at regne med aar, maaned, dag,
> > tid.
> > Her er koden jeg bruger.
> >
> > <%
> >
> > Function DanskDatoTid(dato)
> >
> > arrDag = ",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
> >
> > arrDag = Split(arrDag,",")
> >
> > arrMaaned =
",januar,februar,marts,april,maj,juni,juli,august,"
> >
> > arrMaaned = arrMaaned & "september,oktober,november,december"
> >
> > arrMaaned = Split(arrMaaned,",")
> >
> > DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " &
> > Day(dato) & ". "
> >
> > DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato))
> >
> > End Function
> >
> >
> >
> > MDato = Year(now)
> >
> > if len(month(now))= 1 then
> >
> > MDato = MDato & "0" & month(now)
> >
> > else
> >
> > MDato = MDato & month(now)
> >
> > end if
> >
> > if len(day(now))= 1 then
> >
> > MDato = MDato & "0" & day(now)
> >
> > else
> >
> > MDato = MDato & day(now)
> >
> > end if
> >
> > strSQL = "Select * from aktiviteter where ADato>='" & MDato &
"'
> > order by aar, maaned, dag, tid"
> >
> > Set rs = Conn.Execute(strSQL)
> >
> > do
> >
> > BTid = rs("maaned") & "/" & rs("dag") & "/20" & rs("aar")
> >
> > %>
> >
> > Håber der er nogle der kan hjælpe.
> >
> Hvad er fejlmeldingen...
> Bjarne
>
>
Det er nok den her.
Technical Information (for support personnel)
Error Type:
Sun ONE ASP VBScript runtime (0x800A000D)
Type mismatch
/b-aktivitet4.asp, line 39
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
 Jørgen Nielsen (02-05-2010)
| Kommentar
Fra : Jørgen Nielsen |
Dato : 02-05-10 17:25 |
|
Jørgen Nielsen wrote in dk.edb.internet.webdesign.serverside.asp:
> bsn wrote in dk.edb.internet.webdesign.serverside.asp:
> > "Jørgen Nielsen" <jorgen-v@nielsen.mail.dk> skrev i en meddelelse
> > news:4bdc38b8$0$279$14726298@news.sunsite.dk...
> > > Aktivitetslisten på vores forenings hjemmeside er holdt op med at
> > > virke efter 5 år tror det er noget at regne med aar, maaned, dag,
> > > tid.
> > > Her er koden jeg bruger.
> > >
> > > <%
> > >
> > > Function DanskDatoTid(dato)
> > >
> > > arrDag =
",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
> > >
> > > arrDag = Split(arrDag,",")
> > >
> > > arrMaaned =
> ",januar,februar,marts,april,maj,juni,juli,august,"
> > >
> > > arrMaaned = arrMaaned &
"september,oktober,november,december"
> > >
> > > arrMaaned = Split(arrMaaned,",")
> > >
> > > DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " &
> > > Day(dato) & ". "
> > >
> > > DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato))
> > >
> > > End Function
> > >
> > >
> > >
> > > MDato = Year(now)
> > >
> > > if len(month(now))= 1 then
> > >
> > > MDato = MDato & "0" & month(now)
> > >
> > > else
> > >
> > > MDato = MDato & month(now)
> > >
> > > end if
> > >
> > > if len(day(now))= 1 then
> > >
> > > MDato = MDato & "0" & day(now)
> > >
> > > else
> > >
> > > MDato = MDato & day(now)
> > >
> > > end if
> > >
> > > strSQL = "Select * from aktiviteter where ADato>='" & MDato
&
> "'
> > > order by aar, maaned, dag, tid"
> > >
> > > Set rs = Conn.Execute(strSQL)
> > >
> > > do
> > >
> > > BTid = rs("maaned") & "/" & rs("dag") & "/20" & rs("aar")
> > >
> > > %>
> > >
Har nu fundet ud af hvis jeg fjerner denne her kode
<%=DanskDatoTid(BTid)%> kl.<%=rs("tid")%>
så kan jeg se alle aktiviteter fra foreningens start men uden dag måned
og tid.
Jeg skal jo kun se de nye aktiviteter og med dag måned og tid.
Jørgen
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
Christian Kragh (03-05-2010)
| Kommentar
Fra : Christian Kragh |
Dato : 03-05-10 11:02 |
|
> Har nu fundet ud af hvis jeg fjerner denne her kode
> <%=DanskDatoTid(BTid)%> kl.<%=rs("tid")%>
> så kan jeg se alle aktiviteter fra foreningens start men uden dag måned
> og tid.
> Jeg skal jo kun se de nye aktiviteter og med dag måned og tid.
Prøv med:
DateAdd funktion der lægger 0 til datoen... så er din variabel en dato...
<%=DanskDatoTid(DateAdd("m", 0, BTid))%> kl.<%=rs("tid")%>
Christian
| |
Ukendt (02-05-2010)
| Kommentar
Fra : Ukendt |
Dato : 02-05-10 16:44 |
|
"Jørgen Nielsen" <jorgen-v@nielsen.mail.dk> skrev i en meddelelse
news:4bdd8a60$0$282$14726298@news.sunsite.dk...
> bsn wrote in dk.edb.internet.webdesign.serverside.asp:
>> "Jørgen Nielsen" <jorgen-v@nielsen.mail.dk> skrev i en meddelelse
>> news:4bdc38b8$0$279$14726298@news.sunsite.dk...
>> > Aktivitetslisten på vores forenings hjemmeside er holdt op med at
>> > virke efter 5 år tror det er noget at regne med aar, maaned, dag,
>> > tid.
>> > Her er koden jeg bruger.
>> >
>> > <%
> > >
> > > Function DanskDatoTid(dato)
> > >
> > > arrDag = ",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
> > >
> > > arrDag = Split(arrDag,",")
> > >
> > > arrMaaned =
> ",januar,februar,marts,april,maj,juni,juli,august,"
> > >
> > > arrMaaned = arrMaaned & "september,oktober,november,december"
> > >
> > > arrMaaned = Split(arrMaaned,",")
> > >
> > > DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " &
> > > Day(dato) & ". "
> > >
> > > DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato))
> > >
> > > End Function
> > >
> > >
> > >
> > > MDato = Year(now)
> > >
> > > if len(month(now))= 1 then
> > >
> > > MDato = MDato & "0" & month(now)
> > >
> > > else
> > >
> > > MDato = MDato & month(now)
> > >
> > > end if
> > >
> > > if len(day(now))= 1 then
> > >
> > > MDato = MDato & "0" & day(now)
> > >
> > > else
> > >
> > > MDato = MDato & day(now)
> > >
> > > end if
> > >
> > > strSQL = "Select * from aktiviteter where ADato>='" & MDato &
> "'
> > > order by aar, maaned, dag, tid"
> > >
> > > Set rs = Conn.Execute(strSQL)
> > >
> > > do
> > >
> > > BTid = rs("maaned") & "/" & rs("dag") & "/20" & rs("aar")
> > >
> > > %>
>> >
>> > Håber der er nogle der kan hjælpe.
>> >
>> Hvad er fejlmeldingen...
>> Bjarne
>>
>>
>
> Det er nok den her.
>
> Technical Information (for support personnel)
>
> Error Type:
> Sun ONE ASP VBScript runtime (0x800A000D)
> Type mismatch
> /b-aktivitet4.asp, line 39
Kan se det er Sun ASP - mener der er noget specielt ved denne form for
ASP...måske andre vil forklare...
Men umiddelbart efter hvad fejlmeldingen siger, ser det ud til at du har
blandet æbler(dato) og pærer(tekst) sammen...
Bjarne
| |
Jørgen Nielsen (03-05-2010)
| Kommentar
Fra : Jørgen Nielsen |
Dato : 03-05-10 14:58 |
|
>
> Kan se det er Sun ASP - mener der er noget specielt ved denne form for
> ASP...måske andre vil forklare...
> Men umiddelbart efter hvad fejlmeldingen siger, ser det ud til at du har
> blandet æbler(dato) og pærer(tekst) sammen...
> Bjarne
>
>
Har fundet fejlen har på en på en eller anden måde fået slettet et 0 i alle
årstal under 2010 så rigtig årstal og dato var blevet blandet sammen.
Tak for hjælpen.
Jørgen
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials
| |
|
|