Andet output ønskes

vi skal og¨så se funktionen DateSerial, som må være et eller andet sted

Kigger med :)

cpufan> DateSerial er indbygget http://www.w3schools.com/vbscript/func_dateserial.asp :-)

ups! :-)

Nu ved jeg ikke om det er det du mener, men prøv at fjerne "SomeDate+":

Response.Write("<td>" & taeller & "</td>")

Er det dette du er efter:

<%
response.write("<table>")
for maaned=1 to 12
  Response.Write("<tr>")
  for taeller=1 to Day(dateserial(aar,maaned+1,0))
    response.write("<td>" & taeller & "</td>")
  next
  Response.Write("</tr><td><br><br></td>")
next
response.write("</table>")
%>

Hejsa,

jeg var lidt træt i går, og kan nu godt se at det jo ikke var svært at gennemskue. Men det sidste script fennec posted er jo noget kortere og mere smart så det vil jeg bruge. Men vil lige høre om fennec har et lidt mere modificeret script. Jeg er nemlig ved at lære mig selv ASP og jeg er ved at lave en side der viser alle måneder. Dvs. 12 tabeller med alle dagene i. Gerne 3 tabeller af gangen og så ny linje. Håber det er til at forstå.

Hilsen Uneerup

... Jeg er desværre ikke helt med på hvad du mener. Men er det dette:

<%
response.write("<table>")
for maaned=1 to 12
  Response.Write("<tr>")
  for taeller=1 to Day(dateserial(aar,maaned+1,0))
    response.write("<td>" & taeller & "</td>")
  next
  Response.Write("</tr>")
  if (maaned mod 3) = 0 then Response.Write("<tr><td>&nbsp;</td></tr>")
next
response.write("</table>")
%>

Nej ikke helt :-)

Når du ser Outlooks kalender ude til højre så er den delt op i de forskellige måneder. Sådan at der står m t o t f l s over dagene.

Altså det skal sættes op ligesom på en rigtig kalender, bare med alle månederne i et helt år. Gerne med 3 måneder ved siden af hinanden og så linjeskift. Håber du forstår.

Hilsen Uneerup

Jeg vil gerne give lidt ekstra point hvis du kan finde ud af det, da det jo nok er lidt vanskeligere.

Så er jeg med :o)

Det er lidt mere indviklet, men det kan godt laves. Jeg skal dog bruge lidt tid på at lave det....

Det ville være kanon hvis du gider det. Så smider vi også lige lidt ekstra point i hatten:-)

<%
aar = 2004
Response.write "<table><tr>"
for maaned=1 to 12
  Response.write "<td valign=""top"">"
  response.write("<table border=""1"">")
  Response.write "<tr><td colspan=""7"">"& monthname(month(dateserial(aaa,maaned,1))) &"</td></tr>"
  Response.Write("<tr><td>M</td><td>T</td><td>O</td><td>T</td><td>F</td><td>L</td><td>S</td></tr>")
  Response.Write("<tr>")
  Response.write Weekday(dateserial(aar,maaned,1),vbMonday)
'  if Weekday(dateserial(aar,maaned,1),vbMonday) <> 7 then
    for temp=2 to Weekday(dateserial(aar,maaned,1),vbMonday)
      Response.write "<td>&nbsp;</td>"
    next
'  end if
  for taeller=1 to Day(dateserial(aar,maaned+1,0))
    response.write("<td>" & taeller & "</td>")
    if Weekday(dateserial(aar,maaned,taeller),vbMonday) = 7 then Response.write "</tr><tr>"
  next
  Response.Write("</tr>")
  response.write("</table>")
  Response.write "</td>"
  if (maaned mod 3) = 0 then Response.Write("</tr><tr>")
next
response.write("</tr></table>")
%>

kanon, tak for det, smid et svar.

Nu også med ugenummer :o)

<%
aar = 2004
Response.write "<table><tr>"
for maaned=1 to 12
  Response.write "<td valign=""top"">"
  response.write("<table border=""1"">")
  Response.write "<tr><td colspan=""8"">"& monthname(month(dateserial(aaa,maaned,1))) &"</td></tr>"
  Response.Write("<tr><td>&nbsp;</td><td>M</td><td>T</td><td>O</td><td>T</td><td>F</td><td>L</td><td>S</td></tr>")
  Response.Write("<tr>")
  Response.write "<td>"& datepart("ww",dateserial(aar,maaned,1),vbMonday,vbFirstFourDays) &"</td>"
  Response.write Weekday(dateserial(aar,maaned,1),vbMonday)
    for temp=2 to Weekday(dateserial(aar,maaned,1),vbMonday)
      Response.write "<td>&nbsp;</td>"
    next
  for taeller=1 to Day(dateserial(aar,maaned+1,0))
    response.write("<td>" & taeller & "</td>")
    if Weekday(dateserial(aar,maaned,taeller),vbMonday) = 7 then
        if taeller <>  Day(dateserial(aar,maaned+1,0)) then
        Response.write "</tr><tr><td>"& datepart("ww",dateserial(aar,maaned,taeller+1),vbMonday,vbFirstFourDays) &"</td>"
        end if
    end if
  next
  Response.Write("</tr>")
  response.write("</table>")
  Response.write "</td>"
  if (maaned mod 3) = 0 then Response.Write("</tr><tr>")
next
response.write("</tr></table>")
%>

.o) <-- One Eyed Jack

du kan bare smide et svar mere, kan man ikke det? :-)

nope, man kan ikke smide flere svar, når ?'et er blevet besvaret/accepteret :o)

Nå ok, well håber du er tilfreds med de 30 point... sig til hvis du vil ha flere så må vi oprette et nyt sp. :-) Tak for hjælpen.

Det er ikke nødvendigt. Jeg er her primært for at hjælpe andre. At point så tilføjer et konkurence element til det, gør det bare sjovere :o)