Αν υπάρχουν records, hyperlink σε ASP

Από {xristos}

Είναι κώδικας απο ένα calendar (ημερολόγιο) Θα ήθελα αν υπάρχουν εγγραφές για την τρέχουσα ημερομηνία να είναι σε hyperlink, εδώ το hyperlink εμφανίζεται κάτω απο το νούμερο της ημερομηνίας πώς μπορεί να αλλάξει?

'-- Write the date and subject --

Response.Write(vbTab & vbTab & " class=""mousikoi"">" & iCurrent & "")

If Not objRecordset.BOF Then
objRecordset.MoveFirst
Do Until objRecordset.EOF

If objRecordset.Fields("his_year") = Year(dDate) Then
If objRecordset.Fields("his_month") = Month(dDate) Then
If objRecordset.Fields("his_day") = iCurrent Then
Response.Write("
" & iCurrent & "
")
End If
End If
End If
objRecordset.MoveNext
Loop
End If

Response.Write("" & vbCrLf)

'-- Close the table row --