[ASP 3] da VBscript puro a ASP 3

[raffaeu]

Ciao in rete ho trovato uno script in VBscript che mi genera un calendario in codice html.
Funziona e riesco ad allacciare anche un bel css ma ...

Quando eseguo Server.Execute("calendar.htm") se il browser client è IE funziona altrimenti non si vede nulla.
Ora sapreste aiutarmi a convertirlo in ASP?

<SCRIPT LANGUAGE=vbscript>
<!--
document.write ("<table border=1>")
document.write ("<tr><td align=center colspan=7>" & Ucase(monthname(month(date()))) & " " & year(date()) & "</td></tr>")
document.write ("<tr><td>D</td><td>L</td><td>M</td><td>M</td><td>G</td><td>V</td><td>S</td></tr>")
giornodelmese="01/" & month(date()) & "/" & year(date()) 
giorno=1
'questo controllo risolve il probelma del mese di dicembre
if (month(date())+1)>12 then 
anno=Year(date())+1
mese=1
else
anno=Year(date())
mese=(month(date())+1)
end if
primodelmesesuccessivo="01" & "/" & mese & "/" & anno
ultimodelmese=DateAdd("d",-1,primodelmesesuccessivo)
While (giorno<day(ultimodelmese))
document.write ("<tr>")
giornodellaset=WeekDay(giornodelmese)
for i=1 to giornodellaset-1
document.write ("<td> </td>")
next



for i=giornodellaset to 7
document.write ("<td>" & giorno & "</td>")
giorno=giorno+1
if giorno>day(ultimodelmese) then exit for
next
for i=i+1 to 7
document.write ("<td> </td>")
next
document.write ("</tr>")
giornodelmese=(giorno) & "/" & month(date()) & "/" & year(date()) 
Wend
document.write ("</table>")
//-->
</SCRIPT>

Ho provato a cambiare a Response = document, ma mi stampa la prima riga e quindi credo ci sia un errore nella parte del While ...

Qualcuno sa aiutarmi?

[raffaeu]

Nada ho trovato forum in giro che parlavano della trasformazione ma se la faccio

<%
response.write ("<table border=1>")
response.write ("<tr><td align=center colspan=7>" & Ucase(monthname(month(date()))) & " " & year(date()) & "</td></tr>")
response.write ("<tr><td>D</td><td>L</td><td>M</td><td>M</td><td>G</td><td>V</td><td>S</td></tr>")
giornodelmese="01/" & month(date()) & "/" & year(date()) 
giorno=1
'questo controllo risolve il probelma del mese di dicembre
if (month(date())+1)>12 then 
anno=Year(date())+1
mese=1
else
anno=Year(date())
mese=(month(date())+1)
end if
primodelmesesuccessivo="01" & "/" & mese & "/" & anno
ultimodelmese=DateAdd("d",-1,primodelmesesuccessivo)
While (giorno<day(ultimodelmese))
response.write ("<tr>")
giornodellaset=WeekDay(giornodelmese)
for i=1 to giornodellaset-1
response.write ("<td align='center'>-</td>")
next
for i=giornodellaset to 7
response.write ("<td>" & giorno & "</td>")
giorno=giorno+1
if giorno>day(ultimodelmese) then exit for
next
for i=i+1 to 7
response.write ("<td align='center'>-</td>")
next
response.write ("</tr>")
giornodelmese=(giorno) & "/" & month(date()) & "/" & year(date()) 
Wend
response.write ("</table>")
%>

non va bene sbaglio qualcosa nel while, aiutino??

[kalosjo]

Sostituendo document.write con response.write diventa codice asp...

Fai questa prova:

carichi la pagina con IE, poi vedi l'html, lo salvi e visualizzalo con un altro browser.

Se non si vede niente, allora è un problema html (qualche td non chiuso o qualcosa del genere...)

[raffaeu]

Provo subito

[raffaeu]

No ma la cosa strana è che come vbscript va ma come Asp finisce alla prima settimana, sicuramente devo cambiare qualcosa nel while ...