| | |
| |
Active Server Pages what is asp programming how to sample asp example code scripts software asp forum mail sessions applications global.asa 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
|
|
|
|
|
|
