agenda calendario orizzontale

[naverit]

non riesco a trovare nessuno script pre una agenda-calendario orizzontale... cioè una linea orizzontale per ogni giorno (e non raggruppata a calendarietto)

conoscete qualche esempio?

[Mems]

Cioè?

[naverit]

i giorni devono essere mostrati in righe orizzontali, uno per uno:


GIUGNO 2007
1 .................................................. .....
2 .................................................. .....
3 .................................................. .....
4 .................................................. .....
5 .................................................. .....
6 .................................................. .....
7 .................................................. .....
8 .................................................. .....
9 .................................................. .....

etc....

[Mems]

Una cosa tipo così?

<%
session.LCID = 1040
pagina = request.serverVariables("PATH_INFO")
g = request.queryString("g")
m = request.queryString("m")
a = request.queryString("a")

  if len(g) > 0 and isNumeric(g) then
    g = cLng(g)
  else
    g = datePart("d",date())
  end if

  if len(m) > 0 and isNumeric(m) then
    m = cLng(m)
  else
    m = datePart("m",date())
  end if

  if len(a) > 0 and isNumeric(a) then
    a = cLng(a)
  else
    a = datePart("yyyy",date())
  end if

response.write "<table width=""600"" border=""1"">" &vbCrLf
response.write"  <tr>" & vbCrLf
response.write "    <td colspan=""2"">" & monthName(m) & " " & a & "</td>" & vbCrLf
response.write " </tr>" &vbCrLf

  for i = 1 to 31
    classe = "spento"
    if isDate(i & "/" & m & "/" & a) then
      if i = g then classe = "accesso"
      response.write "  <tr>" & vbCrLf
      response.write "    <td width=""50"" class=""" & classe & """>" & i & "</td>" & vbCrLf
      response.write "    <td></td>" & vbCrLf
      response.write "  </tr>" & vbCrLf
    end if
  next

response.write "</table>" & vbCrLf
%>

[naverit]

ora testo e ti faccio sapere...

[naverit]

si proprio questo!!!

se non erro mi passo così la querystring x scegliere il mese vero?

calendario.asp?g=2&m=6&a=2007

[Mems]

Esatto.
Basta che fai i link per passare da mese a mese o da anno ad anno o da giorno a giorno...
Divertiti.

[naverit]

grazie... ancora una cosa...


è possibile far comparire i giorni della settimana?

1 venerdì
2 sabato
3 domenica

etc... ?

[Mems]

<%
session.LCID = 1040
pagina = request.serverVariables("PATH_INFO")
g = request.queryString("g")
m = request.queryString("m")
a = request.queryString("a")

  if len(g) > 0 and isNumeric(g) then
    g = cLng(g)
  else
    g = datePart("d",date())
  end if

  if len(m) > 0 and isNumeric(m) then
    m = cLng(m)
  else
    m = datePart("m",date())
  end if

  if len(a) > 0 and isNumeric(a) then
    a = cLng(a)
  else
    a = datePart("yyyy",date())
  end if

response.write "<table width=""600"" border=""1"">" &vbCrLf
response.write"  <tr>" & vbCrLf
response.write "    <td colspan=""2"">" & monthName(m) & " " & a & "</td>" & vbCrLf
response.write " </tr>" &vbCrLf

  for i = 1 to 31
    classe = "spento"
    if isDate(i & "/" & m & "/" & a) then
      if i = g then classe = "accesso"
      response.write "  <tr>" & vbCrLf
      response.write "    <td width=""100"" class=""" & classe & """>" & i & " " & weekDayName(datePart("w",i & "/" & m & "/" & a)) & "</td>" & vbCrLf
      response.write "    <td></td>" & vbCrLf
      response.write "  </tr>" & vbCrLf
    end if
  next

response.write "</table>" & vbCrLf
%>

[naverit]

si grazie 1000


così coloro anche le domeniche di rosso:




<%
session.LCID = 1040
pagina = request.serverVariables("PATH_INFO")
g = request.queryString("g")
m = request.queryString("m")
a = request.queryString("a")

if len(g) > 0 and isNumeric(g) then
g = cLng(g)
else
g = datePart("d",date())
end if

if len(m) > 0 and isNumeric(m) then
m = cLng(m)
else
m = datePart("m",date())
end if

if len(a) > 0 and isNumeric(a) then
a = cLng(a)
else
a = datePart("yyyy",date())
end if

response.write "<table width=""600"" border=""1"">" &vbCrLf
response.write" <tr>" & vbCrLf
response.write " <td colspan=""2"">" & monthName(m) & " " & a & "</td>" & vbCrLf
response.write " </tr>" &vbCrLf

for i = 1 to 31
classe = "spento"
if isDate(i & "/" & m & "/" & a) then
if i = g then classe = "accesso"
response.write " <tr>" & vbCrLf

giornoSettimana = weekDayName(datePart("w",i & "/" & m & "/" & a))

if giornoSettimana = "domenica" Then
color = "red"
else
color = "gray"
end if

response.write " <td width=""100"" class=""" & classe & """><span style='color:"&color&"';>" & i & " " & giornoSettimana & "</span></td>" & vbCrLf



response.write " <td></td>" & vbCrLf
response.write " </tr>" & vbCrLf
end if
next

response.write "</table>" & vbCrLf
%>




ciao e grazie