På vores hjemmeside har vi i højre side så vi kan se de næste 5
aktiviter har virket fint medens der der kun har været et ciffer
i aar i databasen nu der står 10 i databasen viker det ikke mere.
koden for at vise aktiviter er.
<%
Function DanskDatoTid(dato)
arrDag =
",mandag,tirsdag,onsdag,torsdag,fredag,lørdag,søndag"
arrDag = Split(arrDag,",")
arrMaaned = ",jan.,feb.,mar.,apr.,maj,juni,juli,aug.,"
arrMaaned = arrMaaned & "sep.,okt.,nov.,dec."
arrMaaned = Split(arrMaaned,",")
DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " &
Day(dato) & ". "
DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato))
End Function
GP = 0
AYear = Year(Date)
AMonth = Month(Date)
ADOMonth = Day(Date)
Akt = AYear
if len(AMonth)= 1 then
Akt = Akt & "0" & AMonth
else
Akt = Akt & AMonth
end if
if len(ADOMonth)= 1 then
Akt = Akt & "0" & ADOMonth
else
Akt = Akt & ADOMonth
end if
strSQL = "Select * from aktiviteter order by aar, maaned, dag,
tid"
Set rs = Conn.Execute(strSQL)
do
Akt2 = "200" & rs("aar")
if len(rs("maaned"))= 1 then
Akt2 = Akt2 & "0" & rs("maaned")
else
Akt2 = Akt2 & rs("maaned")
end if
if len(rs("dag"))= 1 then
Akt2 = Akt2 & "0" & rs("dag")
else
Akt2 = Akt2 & rs("dag")
end if
if Akt2 => Akt then
GP = GP + 1
BTid = rs("maaned") & "/" & rs("dag") & "/200" & rs("aar")
Response.Write DanskDatoTid(BTid)
if rs("tid") <> "" then
response.write " kl." & rs("tid")
end if
response.write "<br>" & rs("overskrift")
response.write "<br><a href='VisAkt.asp? Anr=" & rs("id") & "'
target='tekst'>Læs mere her</a>"
response.write "<br>" & "------------" & "<br>"
end if
rs.movenext
loop until GP = 5
Conn.Close
Set Conn = Nothing
%>
er der nogen 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