Classic ASP Discussion - Response object error

Print Page | Close Window

Response object error

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Classic ASP Discussion
Forum Description: Discussion on Active Server Pages (Classic ASP).
URL: https://forums.webwiz.net/forum_posts.asp?TID=7112
Printed Date: 31 March 2026 at 3:06pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: Response object error

Posted By: r0ck1t
Subject: Response object error
Date Posted: 09 November 2003 at 2:37am

Hi, I have got a modified copy of ASP101's calendar script which I have modified further which now spits out this error

Response object error 'ASP 0185 : 80020003'

Missing Default Property

/default.asp, line 0

A default property was not found for the object.

The code is below:

Class gyCalendar
Dim SelectedDate

Private tmpDate

Private Sub Class_Initialize()
Call ASP101Calendar()
End Sub

Public Property Get SelectedtmDate()
SelectedtmDate = FormatDateTime(tmpDate, 1)
End Property

Private Property Let SelectedtmDate(byVal dtmDate)
tmpDate = dtmDate
End Property

Private 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

Private Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
Dim dTemp

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

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

Private Function AddOneMonth(dtmDate)
AddOneMonth = DateAdd("m", 1, dtmDate)
End Function

Private Function ASP101Calendar()
  Dim dtmDate     ' Date we're displaying calendar for
  Dim intDIM      ' Days In Month
  Dim intDOW      ' Day Of Week that month starts on
  Dim intCurrent ' Variable we use to hold current day of month as we write table
  Dim intPosition ' Variable we use to hold current position in table
  'my new variables
  Dim intMyNewDate    ' holds new xx/xx/xx date format from the query string if we use the form
  Dim intNewFullDate ' str that holds entire old date query string
  Dim intFinalNewDate ' proper date format for each day link on the calendar
  Dim strTemp

strTemp = ""

  If IsDate(Request.QueryString("Date")) Then
   dtmDate = CDate(Request.QueryString("Date"))
  Else
   intMyNewDate = Request.QueryString("Month") & "/" & _
   Request.QueryString("Day") & "/" & _
   Request.QueryString("Year")
   If IsDate(intMyNewDate) Then
    dtmDate = CDate(intMyNewDate)
   Else
    dtmDate = Date()
   End If
  End If
  SelectedDate = dtmDate

intDIM = GetDaysInMonth(Month(dtmDate), Year(dtmDate))
intDOW = GetWeekdayMonthStartsOn(dtmDate)

Response.Write("<table class=""table""><tr><td><table class=""contenttable"">")
 Response.Write("<tr class=""headertr""><td>calendar</td></tr&a mp;g t;<tr><td>")
 Response.Write("<table><tr><td bgcolor=""#60786B"" align=""center"" colspan=7>")
 Response.Write("<table width=""100%"" border=0 cellspacing=0 cellpadding=0><tr>")
 Response.Write("<td align=""right""><a class=""smLink"" href="" http://www.gympieyouth.com/events_default.asp?Date - events_default.asp?Date =" & SubtractOneMonth(dtmDate) & """><<</a></td>")
 Response.Write("<td align=""center"">" & MonthName(Month(dtmDate)) & " " & Year(dtmDate) & "</td>")
 Response.Write("<td align=""left""><a class=""smLink"" href="" http://www.gympieyouth.com/events_default.asp?Date - events_default.asp?Date =" & AddOneMonth(dtmDate) & """>>></a></td>")
 Response.Write("</tr></table></td ></tr><tr>")
 Response.Write("<td align=""center"" bgcolor=""#999999"">Sun </td>")
 Response.Write("<td align=""center"" bgcolor=""#999999"">Mon </td>")
 Response.Write("<td align=""center"" bgcolor=""#999999"">Tue </td>")
 Response.Write("<td align=""center"" bgcolor=""#999999"">Wed </td>")
 Response.Write("<td align=""center"" bgcolor=""#999999"">Thu </td>")
 Response.Write("<td align=""center"" bgcolor=""#999999"">Fri </td>")
 Response.Write("<td align=""center"" bgcolor=""#999999"">Sat </td>")

If intDOW <> 1 Then
 Response.Write("<tr bgcolor=""#EEEEEE"">")
 intPosition = 1
 Do While intPosition < intDOW
 Response.Write("<td bgcolor=""#EEEEEE""> </td>")
 intPosition = intPosition + 1
 Loop
 End If

intCurrent = 1
 intPosition = intDOW
 Do While intCurrent <= intDIM

If intPosition = 1 Then
 Response.Write("<tr>")
 End If

If intCurrent = Day(dtmDate) Then
 Response.Write("<td bgcolor=""#555555"">" & intCurrent & " </td>")
 Else
 intNewFullDate = CStr(Month(dtmDate) & "/" & intCurrent & "/" & Year(dtmDate))
 intFinalNewDate = FormatDateTime(intNewFullDate, 2)
 Response.Write("<td bgcolor=""#EEEEEE""><a href=""