gerar classes

[Arrasted 0]

Tenho esse calendario que usa tabelas "Blergh".

A tabela é gerada dinamicamente, nao sei como fazer com classes, ja tentei.. mas sem chance

aRguma sugestão??? Queria gerar classes ai inves de tr's td's

 

Sub DisplayCalendar(mMonth, yYear)

dim sToday, nextMonth, pastMonth, dataBrasil

BgColor = "#F9F9F9"

Title = MonthName(mMonth) & " / " & yYear

dDay = DateSerial(yYear,mMonth,1)

mMonth = Month(dDay)

yYear = Year(dDay)

texto = Mid(Title, 1, 1)

Title = UCase(texto) & Mid(Title ,2)

FirstDayOfMonth = Weekday(dDay)

pastMonth = (DateAdd("m",-1,dDay))

nextMonth = (DateAdd("m",+1,dDay))

 

Response.Write "<table cellspacing=0 cellPadding=0 width=240 border=0>" & vbCrlf

Response.Write "<tr>" & vbCrlf

Response.Write "<td>" & vbCrlf

Response.Write "</tr>" & vbCrlf

Response.Write "</table>" & vbCrlf

Response.Write "<align='center' style='margin-top: 0; margin-bottom: 0'>" & vbCrlf

Response.Write "<table width=240 border=0 bgcolor=" & BgColor & ">" & vbCrlf

Response.Write "<tr valign=middle align=Center bgcolor=" & bgcolor & ">" & vbCrlf

For i = vbSunday To vbSaturday

 

Response.Write "<td width='18' bgcolor='#EDF3DE'><b><Font Face='Arial' Size='1' Color='#444'>" & Ucase(left(WeekDayName(i), 1)) & "</b></Font></td>" & vbCrlf

 

Next

 

Response.Write "</tr>" & vbCrlf

 

dDay = DateSerial(yYear,mMonth,1)

 

'aqui ele irá printar as 5 linhas da tabela

For j=1 to 5

 

Response.Write "<tr>" & vbCrlf

 

For i = vbSunday to vbSaturday

 

CellStr=" "

CellColor = "#FFFFFF"

 

If WeekDay(dDay) = i and Month(dDay) = mMonth then

 

sToday = dDay

 

dataBrasil = day(dDay) & "/" & month(dDay) & "/" & year(dDay)

 

if Cdate(dDay) > cDate(now) then

 

CellStr = "<center><a href='MostraEvento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay)& "</a></center>"

else

If (Day(dDay) = Day(now)) and (Month(dDay) = Month(now)) and (Year(dDay) = Year(now)) then

CellColor="#EDF3DE"

CellStr = "<center><a href='MostraEvento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay) &"</a></center>"

 

else

CellStr = "<center><a href='MostraEvento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay) &"</a></center>"

end if

end if

 

dDay = DateAdd("d",1,dDay)

End If

 

Response.Write "<TD BgColor=" & CellColor & "><Font Face=Arial size=1>" & CellStr & "</Font></TD>" & vbCrlf

 

Next

 

Response.Write "</TR>" & vbCrlf

 

Next

Response.Write "</Table>" & vbCrlf

 

End Sub

 

'aqui ele irá recuperar as QueryStrings

mMonth = request.form("month")

yYear = request.form("year")

if mMonth = "" then mMonth= Month(now)

if yYear = "" then yYear = Year(now)

 

%>

[Arrasted 0]

Nossa senhora.. agora não entendi nada.. é ASP?Eu conheço o PHP mas isso ai n eh PHP.. hehheheheAgente aki pode até te ajudar a GERAR CLASS, mas CLASSES hehehehe ainda não.. Dá uma olhada com o pessoal da parte de programação que você acha a solução![]s

ASP .gerar umas classe css para impressao do calendario na tela

[Poe 0]

Oi.O que você está tentando fazer, na verdade, não é um calendário usando "classes", mas sim layers ao invés de tabelas. WRONG, GUY! WRONG ACT!Até onde o meu conhecimento vago sobre o assunto, calendários são considerados dados tabulares.Você encontra uma referência disso no site do Maujor lá em http://www.maujor.com/tutorial/bestxhtmlmobile.php:

As listas permitem projetar verticamente como prescrito anteriormente. Exceção: Dados tabulares devem ser apresentados em tabelas. Um calendário do mês é um excelente exemplo de dado tabular que deve ser apresentado com uso de uma tabela.

E também no site http://www.tableless.com.br/aprenda/caminh...para-tableless/, que menciona em seu texto:

Ah, e não se esqueça que para dados como uma tabela periódica ou um calendário a solução semanticamente correta é a tabela mesmo. Ou seja, tableless não é ausência de tabelas, é o seu uso apenas onde é semanticamente justificável.

Como sempre o pessoal confunde TABLELESS com TABLENONE ou TABLENEVER. ;) Dá uma olhada em tableless como uma maneira de se introduzir ao conceito de webstandards.