Problema com Calendario - Agenda de tarefas
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>")
nextend 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
/applications/core/interface/imageproxy/imageproxy.php?img=http://br.geocities.com/leandrocalux/funcionando.JPG&key=cf7896e130930a2d986a1a4c38bd42233253016be7cc83c8ceecc5122f90763d" alt="Imagem Postada" />
agora qnd eu descomento o Memo
[/img]
Discussão (2)
Carregando comentários...