<%@LANGUAGE="VBSCRIPT"%> <%
set notedate = Server.CreateObject("ADODB.Recordset")
notedate.ActiveConnection = "dsn=bobmintzer;uid=sa;pwd=st19ru;"
notedate.Source = "SELECT DATENAME(mm, note_date) + ', ' + CAST((DATEPART(yy, note_date)) as char) as notedt, note_text FROM dbo.Notes order by noteid desc"
notedate.CursorType = 0
notedate.CursorLocation = 2
notedate.LockType = 3
notedate.Open
notedate_numRows = 0
%> <%
' *** Recordset Stats: if we don't know the record count, manually count them
If (note_total = -1) Then
' count the total records by iterating through the recordset
note_total=0
While (Not note.EOF)
note_total = note_total + 1
note.MoveNext
Wend
' reset the cursor to the beginning
If (note.CursorType > 0) Then
note.MoveFirst
Else
note.Requery
End If
' set the number of rows displayed on this page
If (note_numRows < 0 Or note_numRows > note_total) Then
note_numRows = note_total
End If
' set the first and last displayed record
note_first = 1
note_last = note_first + note_numRows - 1
If (note_first > note_total) Then note_first = note_total
If (note_last > note_total) Then note_last = note_total
End If
%> <%
' *** Recordset Stats: if we don't know the record count, manually count them
If (notedate_total = -1) Then
' count the total records by iterating through the recordset
notedate_total=0
While (Not notedate.EOF)
notedate_total = notedate_total + 1
notedate.MoveNext
Wend
' reset the cursor to the beginning
If (notedate.CursorType > 0) Then
notedate.MoveFirst
Else
notedate.Requery
End If
' set the number of rows displayed on this page
If (notedate_numRows < 0 Or notedate_numRows > notedate_total) Then
notedate_numRows = notedate_total
End If
' set the first and last displayed record
notedate_first = 1
notedate_last = notedate_first + notedate_numRows - 1
If (notedate_first > notedate_total) Then notedate_first = notedate_total
If (notedate_last > notedate_total) Then notedate_last = notedate_total
End If
%>
Biography