<%@language = "vbscript"CodePage = "65001"%>
<!-#includefile = "Connections/conn.asp"->
<%
dimrecordset1
DimRecordset1_cmd
dimrecordset1_numrows
setrecordset1_cmd = server.createobject ( "adodb.command")
recordset1_cmd.activeconnection = mm_conn_string
Recordset1_cmd.commandText = "select*fromList"
RecordSet1_cmd.prepared = true
setrecordset1 = recordset1_cmd.execute
RecordSet1_numrows = 0
%>
<%
dimrepeat1__numrows
dimrepeat1__index
반복 1__numrows = 2
반복 1__index = 0
RecordSet1_numrows = recordset1_numrows+repeat1__numrows
%>
<%
'*** RecordSetStats, movetorecord, andgotorecord : delemarestatsvariables
dimrecordset1_total
DimRecordset1_first
dimrecordset1_last
'setTherecordCount
RecordSet1_Total = RecordSet1.recordCount
'SetThenumberOfrowsDisplayEdonThispage
if (recordset1_numrows <0) 그러면
RecordSet1_numrows = recordset1_total
elseif (recordset1_numrows = 0)
RecordSet1_numrows = 1
endif
'setTheFirStandLastDisplayEdRecord
RecordSet1_first = 1
recordset1_last = recordset1_first+recordset1_numrows-1
'ifwehavethecorrecordcordcount, checktheotherstats
if (recordset1_total <> -1) 그러면
if (recordset1_first> recordset1_total)
RecordSet1_first = RecordSet1_Total
endif
if (recordset1_last> recordset1_total)
RecordSet1_Last = RecordSet1_Total
endif
if (recordset1_numrows> recordset1_total)
RecordSet1_numrows = recordset1_total
endif
endif
%>
<%
'*** RecordSetStats : ifwedon'tknowtherecordCount, 수동으로 계산됩니다
if (recordset1_total = -1) 그러면
'CountTheTalRecordsByiteratingThroughThereCordset
RecordSet1_Total = 0
while (notrecordset1.eof)
recordset1_total = recordset1_total+1