Ajuda para Calendário asp

Paulo de Jesus Nunes · Novembro 29, 2018

Olá pessoal estou precisando de uma ajuda aqui tenho esse calendário esta funcionando com os dados do meu banco só que quando coloco While ele cria 3 formulários porque eu quero de mostre 3 datas cadastradas no banco.

Gostaria de uma ajuda para mostrar essa 3 datas em um único formulário.

Att

<%

Function GetDaysInMonth(iMonth, iYear)
   Dim dTemp
   dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))
   GetDaysInMonth = Day(dTemp)
End Function

' Previous implementation on GetDaysInMonth
'Function GetDaysInMonth(iMonth, iYear)
'   Select Case iMonth
'       Case 1, 3, 5, 7, 8, 10, 12
'           GetDaysInMonth = 31
'       Case 4, 6, 9, 11
'           GetDaysInMonth = 30
'       Case 2
'           If IsDate("February 29, " & iYear) Then
'               GetDaysInMonth = 29
'           Else
'               GetDaysInMonth = 28
'           End If
'   End Select
'End Function

Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
   Dim dTemp
   dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
   GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function

Function SubtractOneMonth(dDate)
SubtractOneMonth = DateAdd("m", -1, dDate)
End Function

Function AddOneMonth(dDate)
AddOneMonth = DateAdd("m", 1, dDate)
End Function
' ***End Function Declaration***

Dim dDate ' Date we're displaying calendar for
Dim iDIM ' Days In Month
Dim iDOW ' Day Of Week that month starts on
Dim iCurrent ' Variable we use to hold current day of month as we write table
Dim iPosition ' Variable we use to hold current position in table
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM ticket'"
rs.open sql, conexao, 3, 3

while not rs.EOF

If IsDate(rs("data_vencimento")) Then

dDate = CDate(rs("data_vencimento"))

Else

If IsDate(rs("mes_vencimento") & "-" & rs("dia_vencimento") & "-" & rs("ano_vencimento")) Then

dDate = CDate(rs("mes_vencimento") & "-" & rs("dia_vencimento") & "-" & rs("ano_vencimento"))

Else

dDate = Date()

 If Len(rs("mes_vencimento")) <> 0 Or Len(rs("dia_vencimento")) <> 0 Or Len(rs("ano_vencimento")) <> 0 Or Len(rs("data_vencimento")) <> 0 Then
 Response.Write "The date you picked was not a valid date. The calendar was set to today's date. "


End If

' The elegant solution for those of you running IIS4
 'If IsDate.Count <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date. "
 End If
End If

iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = GetWeekdayMonthStartsOn(dDate)

%>

<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
 <TR>
 <TD ALIGN="right"><A HREF="./calendar.asp?date=<%= SubtractOneMonth(dDate) %>"><<</A></TD>
 <TD ALIGN="center"><%= MonthName(Month(dDate)) & " " & Year(dDate) %></TD>
 <TD ALIGN="left"><A HREF="./calendar.asp?date=<%= AddOneMonth(dDate) %>">>></A></TD>
 </TR>
 </TABLE>
 </TD>
 </TR>
 <TR>
 <TD ALIGN="center" BGCOLOR=#0000CC>D <IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
 <TD ALIGN="center" BGCOLOR=#0000CC>S <IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
 <TD ALIGN="center" BGCOLOR=#0000CC>T <IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
 <TD ALIGN="center" BGCOLOR=#0000CC>Q <IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
 <TD ALIGN="center" BGCOLOR=#0000CC>Q <IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
 <TD ALIGN="center" BGCOLOR=#0000CC>S <IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
 <TD ALIGN="center" BGCOLOR=#0000CC>S <IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></TD>
 </TR>
<%
If iDOW <> 1 Then
 Response.Write vbTab & "<TR>" & vbCrLf
 iPosition = 1
 Do While iPosition < iDOW
 Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf
 iPosition = iPosition + 1
 Loop

End If

iCurrent = 1
iPosition = iDOW

Do While iCurrent <= iDIM

 If iPosition = 1 Then
 Response.Write vbTab & "<TR>" & vbCrLf
 End If

 If iCurrent = Day(dDate) Then

Response.Write vbTab & vbTab & "<TD BGCOLOR=#DF0101 align=center><a href='alterar.asp?data="&iCurrent&"'>"& iCurrent &"</a> </TD>"

Else
Response.Write vbTab & vbTab & "<TD align=center><A HREF=""./calendar.asp?date=" & Month(dDate) & "-" & iCurrent & "-" & Year(dDate) & """>" & iCurrent & "</A> </TD>"

End If

If iPosition = 7 Then
 Response.Write vbTab & "</TR>" & vbCrLf
 iPosition = 0
 End If


 ' Increment variables
 iCurrent = iCurrent + 1
 iPosition = iPosition + 1
Loop
rs.Movenext

If iPosition <> 1 Then
 Do While iPosition <= 7
 Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf
 iPosition = iPosition + 1
 Loop
 Response.Write vbTab & "</TR>" & vbCrLf
End If
wend

%>
</td></tr>
</TABLE>

Editado Novembro 29, 2018 por Paulo de Jesus Nunes

Entrar

Ajuda para Calendário asp

Pergunta

Paulo de Jesus Nunes

Link para o comentário

Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades