Problema com Calendario - Agenda de tarefas

[teste 0]

gente to com um problema....fiz o calendario e ele nao da erro

no caso ele tinha q adicionar um dia pra funcionar, mas só q ele só funciona qnd nao coloco a função q abre o banco de dados

qnd eu tiro o comentario ele nao adiciona 1 dia à data..nao sei se da pra entender...vou colocar as funçoes aqui

 

primeira função q cria o calendario... tem uma variavel chamada Memo = q tah comentada q eh o problema se eu deixo comentada funciona normal

mas se tiro para de funcionar...essa variavel Memo recebe uma função...vou colocar as duas aqui

sub Calendario(mes, ano, user)
	vuser = user
	dia = dateSerial(ano, mes, 1)
	mes= month(dia)
	ano = year(dia)
	FirstDayofMonth = weekday(dia)
	Memo = 	""

	dia = DateSerial(ano, mes, 1)
	
	for j = 1 to 6
		response.write("<tr>")
			for i=vbSunday to vbSaturday
				cellstr = ""
				color = "#CCCCCC"
					
				if weekday(dia) = i and month(dia) = mes then
					color = "#FFFFFF"
					if (day(dia) = day(now)) and (month(dia)=month(now)) and (year(dia) = year(now)) then color = "#FFFF99" end if
					cellstr = day(dia)
					'Memo = tarefaCalendario(dia,vuser)
					response.write(dia)											
					if Memo = "" then
						tarefinha = "<a href=#><img src=images/transparencia.png alt='incluir tarefa' border=0 align=absmiddle /></a>"
					else
						tarefinha =  "<a href=#>"& Corta(Memo,15)&"</a>"
					end if
					dia = Dateadd("d",1,dia)
								
				end if	
				
				calendar = "<td bgcolor="& color &" width=135 height=85 valign=top>"
				
				calendar = calendar & "<table border=0 cellpadding=0 cellspacing=0>"
				calendar = calendar & "<tr>"
				calendar = calendar & "<td bgcolor=#E9E9E9 align=right class=Verdana_9px width=135>"
				calendar = calendar	& cellstr &"</td>"
				calendar = calendar & "</tr>"
				calendar = calendar & "<tr>"
				calendar = calendar & "<td bgcolor="&color&">"
				calendar = calendar & tarefinha 
				calendar = calendar & "</td>"
				calendar = calendar & "</tr>"
				calendar = calendar & "</table>"
				calendar = calendar & "</td>"	
				response.Write(calendar)
				
			next
		response.write("</tr>")
	next
end sub

agora a função q abre o banco

 

Function tarefaCalendario(dt, vuser)
	
	meses = month(dt)
	anos = year(dt)
	dias = day(dt)
	Select case meses
			case 1
				mes = "Jan"
			case 2
				mes = "Feb"
			case 3
				mes = "Mar"
			case 4
				mes = "Apr"
			case 5
				mes = "May"
			case 6
				mes = "Jun"
			case 7
				mes = "Jul"
			case 8
				mes = "Aug"
			case 9
				mes = "Sep"
			case 10
				mes = "Oct"
			case 11
				mes = "Nov"
			case 12
				mes = "Dez"
		end select
	dta = mes & "%" & dias & "%" & anos
	call conecta 
	strSQL=("Select * from tbCalendario where nomUser like '%" & vuser & "%' and date like '%" & dta & "%'")
	response.Write(strSQL)
	
	call AbreRs(strSQL)
	if  not rs.EOF then
	
		if rs.recordcount > 0 then
		tarefaCalendario= rs("memo")
			response.write("teste")
		else
			tarefaCalendario = ""
		end if
	else
		
		tarefaCalendario = ""
		
	end if
		
end Function

imagem dele teoricamente funcionando sem a função q conecta com o banco

 

agora qnd eu descomento o Memo

 

[/img]

[hargon 64]

Exibe algum erro? Não está entrando nos IF's que retornam vazio?

[teste 0]

Exibe algum erro? Não está entrando nos IF's que retornam vazio?

nao mostra erro, o que acontece eh q ele entra no if

mas nao sei oq acontece ele nao soma um no dia

 

 

vou colocar a imagem aqui dele qnd eu tiro o comentario da função

ele entra no if, e no select o dia eh 1 entao nao tem nenhum registro..por isso q ele mostra o primeiro...e registro q eu fiz de teste eh do dia 8... ai ele nao mostra pq nao soma um numero