I am having a problem creating a ca

[trc]

I am having a problem creating a calendar that print out appointments for people at my company. I have the calendar working but I can't print out the data. I created functions to do it but they do not work right. There are two problems: (1) the PrintData function prints the data at the top of the page and at the bottom but not where it was called form. (2) the way I built the link does not work correctly. Grrr.

Function GetData()
Dim recCount,strData
Recordset1.MoveFirst
strData = ""
recCount = Recordset1_total
'recCount = Recordset1.RecordCount
redim arrayData(recCount)
redim arrayDate(recCount)
'Recordset1.movefirst
for intCount = 1 to recCount
arrayDate(intCount) = Recordset1.Fields.Item("Date&quot.Value
strData = &quot;<a href=&quot;&quot;/more_details.asp?id=&quot; & (Recordset1.Fields.Item(&quot;ID&quot.Value)& &quot;>&quot; & (Recordset1.Fields.Item(&quot;Person&quot.Value)& &quot;</a>&quot;
'<!--&quot;<A HREF=&quot;&quot;more_details.asp?ID=&quot; & Recordset1.Fields.Item(&quot;ID&quot.Value & &quot;>&quot; & Recordset1.Fields.Item(&quot;Person&quot.Value & &quot;</a>&quot;-->
arrayData(intCount) = strData
next
End Function

Function PrintData(chkDate)
GetData()
Dim recCount,data
recCount = Recordset1_total
For intCount = 0 to recCount-1
If chkDate = arrayDate(intCount) Then
response.write arrayData(intCount) & &quot;<br>&quot;
End if
Next
End Function ************

Caution, dates on calendar are closer then they appear.

 

[shaddow]

Will be better if u could use
arrayData = Recordset1.GetRows will create an array
and then acess all the fields by arrays.
________
George, M

 

[trc]

Nice. Thank you. ************

Caution, dates on calendar are closer then they appear.