Function AbsolutePositionReCordset()
Select Case Rs.AbsolutePosition
Case 1
Response.Write "╔"
Case 3
Response.Write "╚"
Case Else
Response.Write "╠"
End Select
End Function
Function CharCountLimit(CharStr,CharLen)
Response.Write Mid(CharStr,1,CharLen)
IF Len(CharStr)>CharLen Then
Response.Write "..."
End IF
End Function
Function AbsolutePositionReCordset4()
Select Case Rs.AbsolutePosition
Case 1
Response.Write "╔"
Case 4
Response.Write "╚"
Case Else
Response.Write "╠"
End Select
End Function
Function CharCountLimit(CharStr,CharLen)
Response.Write Mid(CharStr,1,CharLen)
IF Len(CharStr)>CharLen Then
Response.Write "..."
End IF
End Function
%>
