Set conn = ഀ
Server.CreateObject("ADODB.CONNECTION") ഀ
conn.Open strCnn
Set Session("PublishRd") ഀ
= Server.CreateObject("ADODB.RECORDSET") ഀ
Session("PublishRd").Open "Publishers", conn, 1, ഀ
2 movecnt = ഀ
1 else dbms = ഀ
Request.QueryString("dbms") movecnt = CInt( ഀ
Request.QueryString("movecnt") ) end if
set RS = ഀ
Session("PublishRd")
If RS.RecordCount > 0 ഀ
then direction = CInt( ഀ
Request.QueryString("direction") )
select ഀ
case direction case ഀ
1: ഀ
RS.MoveFirst ഀ
movecnt = 1 case ഀ
2: If not RS.BOF ഀ
Then ഀ
RS.MovePrevious ഀ
movecnt = movecnt - 1 End ഀ
If case ഀ
3: If not RS.EOF ഀ
Then ഀ
RS.MoveNext ഀ
movecnt = movecnt + ഀ
1 End ഀ
If case ഀ
4: ഀ
RS.MoveLast ഀ
movecnt = RS.RecordCount end ഀ
select
'Error Handling ഀ
If RS.EOF ഀ
Then movecnt = ഀ
RS.RecordCount RS.MoveLast ഀ
End If
ഀ
If RS.BOF Then movecnt = ഀ
1 ഀ
RS.MoveFirst End ഀ
If else movecnt = 0 End ഀ
If %>
<font size="4" face="Arial, ഀ
Helvetica"> <b>BLOB of LONG VARCHAR Database ഀ
Sample</b></font><br> <hr size="1" ഀ
color="#000000">