| | |
| |
Active Server Pages asp source code database MS SQL MS Access .mdb adovbs.inc cookies calendar codes sql commands scripts asp programming tutorials iis web server components CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: How can we provide the functionality of Next 20 Records?? |
|
From: |
Vijaya |
|
Date: |
8/22/2000 7:49:01 PM |
|
IP: |
63.109.49.181 |
Modify and Try this code...it works! This is written in Visual Interdev..so you will need the _scriptlibrary folder as an include file to work. This is one of the default folders that is available with Interdev. Copy and paste the folder with your code.
<%@ Language=VBScript %>
<%option explicit%>
<SCRIPT id=DebugDirectives runat=server language=javascript>
// Set these to true to enable debugging or tracing
@set @debug=false
@set @trace=false
</SCRIPT>
<% VI 6.0 Scripting Object Model Enabled %>
<!--#include file="_ScriptLibrary/pm.asp"-->
<% if StartPageProcessing() Then Response.End() %>
<FORM name=thisForm METHOD=post>
<!--#include file="adovbs.inc" -->
<%
Response.Buffer = true
dim rsTemp, strSQL, cnn, iAppl_UID, strCnn, i, ipage
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open application("dbconn_ConnectionString"), Application("dbconn_RuntimeUserName"),Application("dbconn_RuntimePassword")
Set rsTemp = Server.CreateObject("ADODB.Recordset")
Set rsTemp.ActiveConnection = cnn
rsTemp.Open "select * from states order by [state code]",cnn,adOpenStatic,adLockReadOnly
rstemp.PageSize = 20
ipage = Request.QueryString("ipage")
if ipage > 0 then
rsTemp.AbsolutePage = iPage
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P> </P>
<table>
<%for i =1 |
Previous Message
|
|
|
|
|
|
