Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Agenda ASP com PROBLEMA. Alguem me ?

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

Boa tarde comunidade.

 

Estou tentando criar um calendário/agenda, através de uma extensão do Dreamweaver, e está sendo apresentado o seguinte ERRO:

 

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/salaoluzia/agenda.asp, line 56

 

Já verifiquei está linha, porem não consegui resolver o problema.

 

Abaixo vai o código da pagina agenda.asp. A linha que está dando erro está em NEGRITO.

 

Aguardo respostas amigos.

____________________________________________________________________

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/con_salaoluzia.asp" -->

<%

Dim rs_agenda

Dim rs_agenda_numRows

 

Set rs_agenda = Server.CreateObject("ADODB.Recordset")

rs_agenda.ActiveConnection = MM_con_salaoluzia_STRING

rs_agenda.Source = "SELECT id_evento, data FROM tb_eventos"

rs_agenda.CursorType = 0

rs_agenda.CursorLocation = 2

rs_agenda.LockType = 1

rs_agenda.Open()

 

rs_agenda_numRows = 0

%>

<%

Function ASPCalendar

If Request("EventDate") <> "" Then

EventDate = DateValue(Request("EventDate"))

Else

EventDate = date()

End if

CurMonth = Month(EventDate)

CurMonthName = MonthName(CurMonth)

CurYear = Year(EventDate)

FirstDayDate = DateSerial(CurYear, CurMonth, 1)

FirstDay = WeekDay(FirstDayDate, 0)

CurDay = FirstDayDate

Dim tmpHTML

tmpHTML=""

tmpHTML = tmpHTML & "<table summary=""agenda"" id=""calendar"" cellspacing=""0"">" & Chr(10)

tmpHTML = tmpHTML & "<caption>agenda</caption>" & Chr(10)

tmpHTML = tmpHTML & "<tr id=""title"">" & Chr(10)

tmpHTML = tmpHTML & "<th colspan=""7"">" & Chr(10)

tmpHTML = tmpHTML & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("m",-1, EventDate)) & """><</a>" & CurMonthName & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("m",1,EventDate)) & """>></a>"

tmpHTML = tmpHTML & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("yyyy",-1, EventDate)) & """><</a>" & CurYear & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("yyyy",1,EventDate)) & """>></a>"

tmpHTML = tmpHTML & "</th>" & Chr(10) & "</tr>" & Chr(10) & "<tr id=""days"">"

Response.Write(tmpHTML)

For DayLoop = 1 to 7

Response.Write("<th>" & WeekDayName(Dayloop, True, 0) & "</th>" & Chr(10))

Next

Response.Write("</tr>" & Chr(10) & "<tr class=""firstweek"">")

If FirstDay <> 1 Then

Response.Write("<td colspan=""" & (FirstDay -1) & """ class=""blank""> </td>" & Chr(10))

End if

DayCounter = FirstDay

CorrectMonth = True

Do While CorrectMonth = True

isEvent = FALSE

rs_agenda.filter = 0

Dim iCheck

Dim chkStr

chkStr = (rs_agenda.Fields.Item("id_evento").Name)

iCheck = CurDay

rs_agenda.filter = chkStr & "=" & (iCheck)

If not(rs_agenda.EOF) Then isEvent = TRUE

If CurDay = EventDate Then

Response.Write("<td class=""today"">")

Else

Response.Write("<td class=""day" & DayCounter & """>")

End if

If isEvent = TRUE Then

Response.Write("<a href=""agenda_detalhe.asp?EventDate=" & Server.URLEncode(CurDay) & """>" & Day(CurDay)& "</a>")

Response.Write("</td>" & Chr(10))

Else

Response.Write(Day(CurDay) & "</td>" & Chr(10))

End If

DayCounter = DayCounter + 1

If DayCounter > 7 Then

DayCounter = 1

Response.Write("</tr>" & Chr(10))

Response.Write("<tr")

If Month(CurDay+8) <> CurMonth Then

Response.Write(" class=""lastweek""")

End If

Response.Write(">" & Chr(10))

End if

CurDay = DateAdd("d", 1, CurDay)

If Month(CurDay) <> CurMonth then

CorrectMonth = False

End if

Loop

IF DayCounter <> 1 Then

Response.Write("<td colspan=""" & (8-DayCounter) & """ class=""blank""> </td>")

Else

Response.Write("<td colspan=""7"" class=""blank""> </td>")

End if

Response.Write("</tr>" & Chr(10) & "</table>" & Chr(10))

End Function

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link href="calbasic.css" rel="stylesheet" type="text/css">

</head>

 

<body>

 

<div align="center">

<% Call ASPCalendar %>

</div>

</body>

</html>

<%

rs_agenda.Close()

Set rs_agenda = Nothing

%>

____________________________________________________________________

 

 

Um abraço.

 

Aguardo respostas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

explore    3

explore
Postado

Pelo que entendi o Professor pode estar certo!

 

Verifica oque vem da Variavel MM_con_salaoluzia_STRING.

 

pq no erro que está dando você está Jogando um Valor dentro de um Item do RS!

ve o que vem:

ASP

[*]

 

[*]Response.write(MM_con_salaoluzia_STRING)

 

[*]Response.End

Compartilhar este post

Link para o post
Compartilhar em outros sites

Guybrush    0

Guybrush
Postado

PQ você colocou rs_agenda.filter = chkStr & "=" &(iCheck)

 

entre parenteses ?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito