Calendario mostra data errada

[Ale Gouveia 0]

Olá galera.. peguei um calendário na Net só q ele está mostrando a data errada... por favor olhemn aki:

http://shopsul.tempsite.ws/betania/default...3&anno=2009

Eu ja coloquei: <% Session.LCID = 1046 %> no começo do código e o host é nacional

ele é criado assim:

 

<%Dim giorno,mese,anno,tmese,day1,primog
	  
	  giorno = request("giorno")
	  If giorno = "" then
	  giorno = day(now())
	  End If
	  
	  mese = request("mese")
	  If mese = "" then
	  mese = month(now())
	  End If

	  anno = request("anno")
	  If anno = "" then
	  anno = year(now())
	  End If

	  If mese = 12 then
	  mese2 = 1
	  anno2 = anno+1
	  else 
	  mese2 = mese+1
	  anno2 = anno
	  End If
	  
	  day1 = Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno))
	  dayoff = Cdate("1"+"/"+Cstr(mese2)+"/"+Cstr(anno2))-1
	  primog = Weekday(Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno)))-1
	  ultimog = Weekday(dayoff)-1
	  
	  If ultimog = 0 then
	  ultimog = 7
	  End If
	  
	  If primog = 0 then
	  primog = 7
	  End If

	  Select Case mese
	  case 1
	  tmese = "Jan"
	  case 2
 	  tmese = "Fev"
	  case 3
	  tmese = "Mar"
	  case 4
	  tmese = "Abr"
	  case 5
	  tmese = "Mai"
	  case 6
	  tmese = "Jun"
	  case 7
	  tmese = "Jul"
	  case 8
	  tmese = "Ago"
	  case 9
	  tmese = "Set"
	  case 10
	  tmese = "Out"
	  case 11
	  tmese = "Nov"
	  case 12
	  tmese = "Dez"
	  End Select
x=1
	  %>

O que posso fazer pra arruma ele???

Desde já obrigada a todos

[hargon 64]

Não entendi, como assim mostra a data errada? Aqui está mostrando tudo certo aparentemente.

 

Sobre ser host nacional, isso não interfere. Um host nacional pode usar um servidor de outro país...

 

 

Movido de Artigos, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

[Ale Gouveia 0]

Não entendi, como assim mostra a data errada? Aqui está mostrando tudo certo aparentemente.

 

Sobre ser host nacional, isso não interfere. Um host nacional pode usar um servidor de outro país...

 

 

Movido de Artigos, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

 

ué... pra você num aparece hoje sendo terça - feira????

[hargon 64]

Por isso disse aparentemente, sabia que não tinha visto algo. ¬¬

 

Posta o resto do código do calendário. O problema deve está na comparação.

[Ale Gouveia 0]

Por isso disse aparentemente, sabia que não tinha visto algo. ¬¬

 

Posta o resto do código do calendário. O problema deve está na comparação.

Olha ele todinho ai:

 

<%Server.ScriptTimeOut = 3%>
<%Dim giorno,mese,anno,tmese,day1,primog
	  
	  giorno = request("giorno")
	  If giorno = "" then
	  giorno = day(now())
	  End If
	  
	  mese = request("mese")
	  If mese = "" then
	  mese = month(now())
	  End If

	  anno = request("anno")
	  If anno = "" then
	  anno = year(now())
	  End If

	  If mese = 12 then
	  mese2 = 1
	  anno2 = anno+1
	  else 
	  mese2 = mese+1
	  anno2 = anno
	  End If
	  
	  day1 = Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno))
	  dayoff = Cdate("1"+"/"+Cstr(mese2)+"/"+Cstr(anno2))-1
	  primog = Weekday(Cdate("1"+"/"+Cstr(mese)+"/"+Cstr(anno)))-1
	  ultimog = Weekday(dayoff)-1
	  
	  If ultimog = 0 then
	  ultimog = 7
	  End If
	  
	  If primog = 0 then
	  primog = 7
	  End If

	  Select Case mese
	  case 1
	  tmese = "Jan"
	  case 2
 	  tmese = "Fev"
	  case 3
	  tmese = "Mar"
	  case 4
	  tmese = "Abr"
	  case 5
	  tmese = "Mai"
	  case 6
	  tmese = "Jun"
	  case 7
	  tmese = "Jul"
	  case 8
	  tmese = "Ago"
	  case 9
	  tmese = "Set"
	  case 10
	  tmese = "Out"
	  case 11
	  tmese = "Nov"
	  case 12
	  tmese = "Dez"
	  End Select
x=1
	  %>

<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
	var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
	if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
	d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

 <%
giorno1 = (day1-primog+x)
Do While giorno1 <= (dayoff+7-ultimog)
%>
		  <td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#FFCC33""" End If%>>
			<div align="center"> <font color ="<%if giorno1 >= day1 and giorno1 <= dayoff then
			  response.write "#000000"
			  Else
			  response.write "#CCCCCC"
			  End If%>"><%if giorno1 >= day1 and giorno1 <= dayoff then%>
						<a href="main.asp?data=<%=(day1-primog+x)%>"><%=day(day1-primog+x)%></a>
						<%else%>
						<%=day(day1-primog+x)%>
						<%End If%>
			  </font></div>
		  </td>
		  <%If weekday(day1 - primog + x - 1) = 7 Then
response.write "</tr>"
End If%>
		  <%
giorno1 = giorno1 + 1
x=x+1
loop%>

[hargon 64]

Troca essa linha:

giorno1 = (day1-primog+x)

 

Por essa:

giorno1 = dateAdd("d",day1,"-" & primog )