Calendário em ASP

[feasso 0]

Tenho um calendário feito em .ASP e para mudar o mê está dando refresh na página, como tirar isto ajax ?

 

NOME_COOKIES = "calendario"
			
			Session.LCID = 1046 'BRASIL			
			if (Request.QueryString("Mes") <> Month(now)) and (Request.QueryString("Mes") <> "") Then
				if (request("ano") <> "") then
					if (Cint(request("ano")) <> Year(now())) then
					  Mes = CInt(Request.QueryString("Mes")) + 12
					else
					   Mes = CInt(Request.QueryString("Mes"))
					end if
				else
					Mes = CInt(Request.QueryString("Mes"))
				end if
			else
				Mes = Cint(Month(now))
			end if
			MesN = Mes MOD 12
			if MesN = 0 then MesN = 12
			
			MesAnt = MesN - 1
			if MesAnt = 0 then MesAnt = 12
			
			MesPos = MesN + 1
			if MesPos = 13 then MesPos = 1
			
			
			Dim URLS, Dia, Ano, Agora, PrimeiroDiaMes, UltimoDiaMes 
			Dim Inicio, Fim, Start, TheEnd, i, j
			
			URLS = Request.ServerVariables("SCRIPT_NAME") 
			Complem = ""
			Interr = "?"
			
			For Each field_name In Request.QueryString
				if (lcase(field_name) <> "mes") then
					if Request.QueryString <> "" then
						URLS = URLS & Interr
						Interr = ""
					end if
					URLS = URLS & Complem & lcase(field_name) & "=" & Request.QueryString(field_name)
					Complem = "&"
				end if
			Next
			
			if inStr(URLs,"?") > 0 then
				URLS = URLS & "&"
			else
				URLS = URLS & "?"
			end if
			
			Dia = Day(now)
			Ano = Year(now)
			Agora = DateSerial(Ano, mes, dia)
			PrimeiroDiaMes = DateSerial(Year(Now), Mes, 1)
			UltimoDiaMes = DateSerial(Year(Now), Mes + 1, 1 - 1)
			Inicio = ABS(1 - WeekDay(PrimeiroDiaMes))
			Fim = 7 - WeekDay(UltimoDiaMes)
			Start = 1 - Inicio
			TheEnd = Day(UltimoDiaMes) + Fim 
			J = 1 
			
			if Mes > 12 then
				MesF = Mes - 12
			elseif Mes < 1 then
				MesF = Mes + 12
			else
				MesF = Mes
			end if
			
			if request("dt") <> "" then
				Response.Cookies(NOME_COOKIES)("meuano") = year(request("dt"))
			elseif year(Agora) <> year(now()) then
				Response.Cookies(NOME_COOKIES)("meuano") = year(Agora)
			elseif request("a") <> "" then
				Response.Cookies(NOME_COOKIES)("meuano") = request("a")
			else
				Response.Cookies(NOME_COOKIES)("meuano") = year(now())
			end if
			
			'CONFIGURAR DE ACORDO COM A CONFIGURAÇÃO DE DATA DO BANCO DE DADOS (COLOCAR DIA / MES / ANO)
			dataagora = "01/" & MesF &"/" & Request.Cookies(NOME_COOKIES)("meuano")
			datafinal = day(UltimoDiaMes) & "/" & month(UltimoDiaMes) & "/" &  year(UltimoDiaMes)
			
			var = ""
			varC = ""
			call AbreRs("set dateformat dmy;SELECT * FROM agenda WHERE (data_inicio BETWEEN '"& dataagora &" 00:00:00' AND '"& datafinal &" 23:59:59') and disponivel = 1 ORDER BY data_inicio ASC;",rs)
			
				if not rs.eof then
					do while not rs.eof
						if MesF = Month(rs("data_inicio")) then
						var = var & varC & day(rs("data_inicio"))
						varC = ","
					end if
						rs.movenext
					loop
				end if
			call FechaRs(rs)
			events = split(var,",")
			%>
			
			<%
					imgMes = MonthName(Month(Agora))
					select case month(Agora)
						  case "1"
								imgMes = "Janeiro"
						  case "2"
								imgMes = "Fevereiro"
						  case "3"
								imgMes = "Março"
						  case "4"
								imgMes = "Abril"
						  case "5"
								imgMes = "Maio"
						  case "6"
								imgMes = "Junho"
						  case "7"
								imgMes = "Julho"
						  case "8"
								imgMes = "Agosto"
						  case "9"
								imgMes = "Setembro"
						  case "10"
								imgMes = "Outubro"
						  case "11"
								imgMes = "Novembro"
						  case "12"
								imgMes = "Dezembro"
					end select
					%>
			
		<table>
			<thead>
				<tr>
					<th colspan="7"><%=imgMes%></th>
				</tr>
				 <tr>
					<td class="no_border">S</td>
					<td>T</td>
					<td>Q</td>
					<td>Q</td>
					<td>S</td>
					<td>S</td>
					<td>D</td>
				</tr>
				<tr>
							<%
							for i = Start to TheEnd  
								assinala = -1
								for k = 0 to ubound(events)
									if cstr(events(k)) = cstr(i) then
										 assinala = k
									end if
								next
								titulo_calend = ""
								data_calend = ""
								if assinala <> -1 then
									call AbreRs("set dateformat dmy;SELECT titulo,data_inicio FROM agenda WHERE (data_inicio BETWEEN '"&events(assinala)&"/"& MesF&"/"&Request.Cookies(NOME_COOKIES)("meuano") &" 00:00:00' AND '"&events(assinala)&"/"&MesF&"/"&Request.Cookies(NOME_COOKIES)("meuano") &" 23:59:59');",rs)
										if not rs.eof then
											titulo_calend = rs("titulo")
											data_calend = rs("data_inicio")
										end if
									call FechaRs(rs)
								end if
							
								if (i = day(now)) And (MesF=Month(now)) Then%>
									<%if assinala <> -1 then %>
										<td  class="cinza no_border">
											<div>
												<strong><a href="agenda.asp?dt=<%=events(assinala)%>/<%=MesF%>/<%=Request.Cookies(NOME_COOKIES)("meuano")%>&mes=<%=Mes%>" title=""><%=Day(DateSerial(Year(Now),Mes,i))%></a></strong>
												<dl>
													<dt>Evento:</dt>
													<dd><%=titulo_calend%></dd>
													<dt>Data:</dt>
													<dd><%=data_calend%></dd>
												</dl>
											</div>
										</td>
									<%else%>
										<td><span style="color:#0072BC;"><%=Day(DateSerial(Year(Now),Mes,i))%></span></td>
									<%end if%>
									<%
								 Elseif (i<1) or (i > Day(UltimoDiaMes)) Then
									%>
									<td class="cinza"><%=Day(DateSerial(Year(Now),Mes,i))%></td>
									<%
								 Else
									%>
									<%if assinala <> -1 then %>
										<td class="ativo">
										   <div class="contemBalao">
											<a class="link" href="agenda-cultural.asp?dt=<%=events(assinala)%>/<%=MesF%>/<%=Request.Cookies(NOME_COOKIES)("meuano")%>&mes=<%=Mes%>" title=""><%=Day(DateSerial(Year(Now),Mes,i))%></a>
											<div class="balao">
												<span class="inicio"></span>
												<span class="meio">
											   		<a href="agenda-cultural.asp?dt=<%=events(assinala)%>/<%=MesF%>/<%=Request.Cookies(NOME_COOKIES)("meuano")%>&mes=<%=Mes%>" title="">
													<p><strong>Evento: </strong><%=titulo_calend%></p>
													</a>
												</span>
												<span class="fim"></span>
											</div>
										</div>
										</td>
									<%else%>
										<td><font color="#FFFFFF"><%=Day(DateSerial(Year(Now),Mes,i))%></font></td>
									<%end if
								End if
						
								if j = 7 and i <> TheEnd then
									J = 0
									Response.Write "</tr>" 
									 %>
									<tr>
									<%
								end if
								j = j + 1
								assinala = -1
							Next 
							%>
							
			</tbody>
		</table>
		<a href="default.asp?mes=<%=mes-1%>" title="Mês anterior"  class="setaCalend">anterior</a>
		<a href="default.asp?mes=<%=mes+1%>" title="Mês seguinte" class="setaCalend Esquerda">próximo</a>

[Ted k' 126]

ajax mesmo cara, você vai ter que trabalhar com requisição, melhor dar uma pesquisada ai no google