Sill ASP/Html problem

G

Guest

I would like to change the layout of of my ASP page.
I changed the ASP code and added some html code like I learned with you -
but still , I do not see any html.
If I open my page I see a line with all records in a horizontal line (I
think it's still showing the "response write " in ASP. I would like to see
them in a vertical line.
Here is the code which I have now, maybe someone can tell me what to do:

<%
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<td><%=objPagingRS.Fields(I)%></td>
<%
Next 'I
%>
<tr>
<%
Response.Write vbTab & "</tr>" & vbCrLf

' Increment the number of records we've shown
iRecordsShown = iRecordsShown + 1
' Can't forget to move to the next record!
objPagingRS.MoveNext
Loop

' All done - close table
Response.Write "</table>" & vbCrLf
End If
 
T

Tom Miller

If I open my page I see a line with all records in a horizontal line (I
think it's still showing the "response write " in ASP. I

I am confused. Are you talking about what you see when the browser displays
the results that are being served to it from your webserver on your
development machine? Or are you talking about the source code?

Thanks,
Tom Miller
 
D

David Berry

ALL your response writes need to be changed to HTML code for you to see the
layout correctly. If you mix and match you'll see strange results. For
example, in your sample below you have no <table> .. </table> tags.
 
D

David Berry

The code should look like this:

--------

<!--VB ADO Constants file. Needed for the ad... constants we use-->
<!-- #include file="adovbs.inc" -->
<%Response.Buffer = true%>
<%
<%
' BEGIN USER CONSTANTS
Dim CONN_STRING

' I'm using a DSN-less connection.
' To use a DSN, the format is shown on the next line:
'CONN_STRING =
"DSN=access;Database=f:\www.bellfield-barna.com\Data\transferdb.mdb;"

CONN_STRING = "DBQ=" & Server.MapPath("webopenoptionorders430010009000") &
";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"

' Our SQL code - overriding values we just set
' Comment out to use Access
CONN_STRING =
"DSN=access;Database=f:\www.bellfield-barna.com\Data\transferdb.mdb;"
' END USER CONSTANTS


' BEGIN RUNTIME CODE
' Declare our vars
Dim iPageSize 'How big our pages are
Dim iPageCount 'The number of pages we get back
Dim iPageCurrent 'The page we want to show
Dim strOrderBy 'A fake parameter used to illustrate passing them
Dim strSQL 'SQL command to execute
Dim objPagingConn 'The ADODB connection object
Dim objPagingRS 'The ADODB recordset object
Dim iRecordsShown 'Loop controller for displaying just iPageSize records
Dim I 'Standard looping var

' Get parameters
iPageSize = 1 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

' If you're doing this script with a search or something
' you'll need to pass the sql from page to page. I'm just
' paging through the entire table so I just hard coded it.
' What you show is irrelevant to the point of the sample.
'strSQL = "SELECT * FROM webopenoptionorders430010009000 ORDER BY tradeid;"

' Sept 30, 1999: Code Change
' Based on the non stop questions about how to pass parameters
' from page to page, I'm implementing it so I can stop answering
' the question of how to do it. I personally think this should
' be done based on the specific situation and is clearer if done
' in the same method on all pages, but it's really up to you.
' I'm going to be passing the ORDER BY parameter for illustration.

' This is where you read in parameters you'll need for your query.
' Read in order or default to id
'If Request.QueryString("order") = "" Then
' strOrderBy = "tradeid"
'Else
' strOrderBy = Replace(Request.QueryString("order"), "'", "''")
'End If

' Make sure the input is one of our fields.
strOrderBy = LCase(Request.QueryString("order"))
Select Case strOrderBy
Case "fecha", "tradeid", "clearingnumber", "bought", "sold", "commodity",
"month", "year", "strikeprice", "putorcall", "premium", "settlementprice",
"optionvalue"
' A little pointless, but...
strOrderBy = strOrderBy
Case Else
strOrderBy = "tradeid"
End Select

' Build our SQL String using the parameters we just got.
strSQL = "SELECT * FROM webopenoptionorders430010009000 ORDER BY " &
strOrderBy & ";"

' Some lines I used while writing to debug... uh "test", yeah that's it!
' Left them FYI.
'strSQL = "SELECT * FROM webopenoptionorders430010009000 WHERE tradeid=1
ORDER BY tradeid;"
'strSQL = "SELECT * FROM webopenoptionorders430010009000;"
'Response.Write "SQL Query: " & strSQL & "<BR>" & vbCrLf


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
Response.Write "No records found!"
Else
' Move to the selected page
objPagingRS.AbsolutePage = iPageCurrent

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>

<body>
<p>
<font size="+1">Record <strong><%= iPageCurrent %></strong>
of <strong><%= iPageCount %></strong></font>
</p>
<table border="1">
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<th><%=objPagingRS.Fields(I).Name%></th>
<%
Next 'I
%>
</tr>
<%
' Loop through our records and ouput 1 row per record
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<td><%=objPagingRS.Fields(I)%></td>
<%
Next 'I
%>
</tr>
<%
' Increment the number of records we've shown
iRecordsShown = iRecordsShown + 1
' Can't forget to move to the next record!
objPagingRS.MoveNext
Loop

' All done - close table
%>
</table>
<%
End If

' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


' Show "previous" and "next" page links which pass the page to view
' and any parameters needed to rebuild the query. You could just as
' easily use a form but you'll need to change the lines that read
' the info back in at the top of the script.
If iPageCurrent > 1 Then
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">[<< Prev]</a>
<%
End If

' You can also show page numbers:
For I = 1 To iPageCount
If I = iPageCurrent Then
%>
<%= I %>
<%
Else
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
I %>&order=<%= Server.URLEncode(strOrderBy) %>"><%= I %></a>
<%
End If
Next 'I

If iPageCurrent < iPageCount Then
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">[Next >>]</a>
<%
End If

' END RUNTIME CODE
%>

</body>

</html>
 
G

Guest

Thank you for the code - Question of debugging is solved.
Just one more question, I believe I can change the table layout (colours etc.)
The resting problem is that NOW my table is shown with the table header like
this:

"fecha", "tradeid", "clearingnumber", "bought", "sold", "commodity",
"month", "year
That means in a horizontal line.

I would like to see the header like this:

"fecha"
"tradeid"
"clearingnumber"
"bought"
"sold"
"commodity"
"month"
"year"

That means in a vertical line. - and next to it the record output.

Thanks again for your help.
Klaus



David Berry said:
The code should look like this:

--------

<!--VB ADO Constants file. Needed for the ad... constants we use-->
<!-- #include file="adovbs.inc" -->
<%Response.Buffer = true%>
<%
<%
' BEGIN USER CONSTANTS
Dim CONN_STRING

' I'm using a DSN-less connection.
' To use a DSN, the format is shown on the next line:
'CONN_STRING =
"DSN=access;Database=f:\www.bellfield-barna.com\Data\transferdb.mdb;"

CONN_STRING = "DBQ=" & Server.MapPath("webopenoptionorders430010009000") &
";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"

' Our SQL code - overriding values we just set
' Comment out to use Access
CONN_STRING =
"DSN=access;Database=f:\www.bellfield-barna.com\Data\transferdb.mdb;"
' END USER CONSTANTS


' BEGIN RUNTIME CODE
' Declare our vars
Dim iPageSize 'How big our pages are
Dim iPageCount 'The number of pages we get back
Dim iPageCurrent 'The page we want to show
Dim strOrderBy 'A fake parameter used to illustrate passing them
Dim strSQL 'SQL command to execute
Dim objPagingConn 'The ADODB connection object
Dim objPagingRS 'The ADODB recordset object
Dim iRecordsShown 'Loop controller for displaying just iPageSize records
Dim I 'Standard looping var

' Get parameters
iPageSize = 1 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

' If you're doing this script with a search or something
' you'll need to pass the sql from page to page. I'm just
' paging through the entire table so I just hard coded it.
' What you show is irrelevant to the point of the sample.
'strSQL = "SELECT * FROM webopenoptionorders430010009000 ORDER BY tradeid;"

' Sept 30, 1999: Code Change
' Based on the non stop questions about how to pass parameters
' from page to page, I'm implementing it so I can stop answering
' the question of how to do it. I personally think this should
' be done based on the specific situation and is clearer if done
' in the same method on all pages, but it's really up to you.
' I'm going to be passing the ORDER BY parameter for illustration.

' This is where you read in parameters you'll need for your query.
' Read in order or default to id
'If Request.QueryString("order") = "" Then
' strOrderBy = "tradeid"
'Else
' strOrderBy = Replace(Request.QueryString("order"), "'", "''")
'End If

' Make sure the input is one of our fields.
strOrderBy = LCase(Request.QueryString("order"))
Select Case strOrderBy
Case "fecha", "tradeid", "clearingnumber", "bought", "sold", "commodity",
"month", "year", "strikeprice", "putorcall", "premium", "settlementprice",
"optionvalue"
' A little pointless, but...
strOrderBy = strOrderBy
Case Else
strOrderBy = "tradeid"
End Select

' Build our SQL String using the parameters we just got.
strSQL = "SELECT * FROM webopenoptionorders430010009000 ORDER BY " &
strOrderBy & ";"

' Some lines I used while writing to debug... uh "test", yeah that's it!
' Left them FYI.
'strSQL = "SELECT * FROM webopenoptionorders430010009000 WHERE tradeid=1
ORDER BY tradeid;"
'strSQL = "SELECT * FROM webopenoptionorders430010009000;"
'Response.Write "SQL Query: " & strSQL & "<BR>" & vbCrLf


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
Response.Write "No records found!"
Else
' Move to the selected page
objPagingRS.AbsolutePage = iPageCurrent

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 1</title>
</head>

<body>
<p>
<font size="+1">Record <strong><%= iPageCurrent %></strong>
of <strong><%= iPageCount %></strong></font>
</p>
<table border="1">
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<th><%=objPagingRS.Fields(I).Name%></th>
<%
Next 'I
%>
</tr>
<%
' Loop through our records and ouput 1 row per record
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<td><%=objPagingRS.Fields(I)%></td>
<%
Next 'I
%>
</tr>
<%
' Increment the number of records we've shown
iRecordsShown = iRecordsShown + 1
' Can't forget to move to the next record!
objPagingRS.MoveNext
Loop

' All done - close table
%>
</table>
<%
End If

' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


' Show "previous" and "next" page links which pass the page to view
' and any parameters needed to rebuild the query. You could just as
' easily use a form but you'll need to change the lines that read
' the info back in at the top of the script.
If iPageCurrent > 1 Then
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">[<< Prev]</a>
<%
End If

' You can also show page numbers:
For I = 1 To iPageCount
If I = iPageCurrent Then
%>
<%= I %>
<%
Else
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
I %>&order=<%= Server.URLEncode(strOrderBy) %>"><%= I %></a>
<%
End If
Next 'I

If iPageCurrent < iPageCount Then
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">[Next >>]</a>
<%
End If

' END RUNTIME CODE
%>

</body>

</html>



--------

--
David Berry
FrontPage Support: http://www.frontpagemvps.com/


Amateur said:
I would like to change the layout of of my ASP page.
I changed the ASP code and added some html code like I learned with you -
but still , I do not see any html.
If I open my page I see a line with all records in a horizontal line (I
think it's still showing the "response write " in ASP. I would like to see
them in a vertical line.
Here is the code which I have now, maybe someone can tell me what to do:

<%
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<td><%=objPagingRS.Fields(I)%></td>
<%
Next 'I
%>
<tr>
<%
Response.Write vbTab & "</tr>" & vbCrLf

' Increment the number of records we've shown
iRecordsShown = iRecordsShown + 1
' Can't forget to move to the next record!
objPagingRS.MoveNext
Loop

' All done - close table
Response.Write "</table>" & vbCrLf
End If
 
D

David Berry

To do that you would need to rewrite the ASP code to show the records
vertically. You should look into some ASP programming books or some of the
ASP tutorial sites such as www.asp101.com

--
David Berry
FrontPage Support: http://www.frontpagemvps.com/


Amateur said:
Thank you for the code - Question of debugging is solved.
Just one more question, I believe I can change the table layout (colours
etc.)
The resting problem is that NOW my table is shown with the table header
like
this:

"fecha", "tradeid", "clearingnumber", "bought", "sold", "commodity",
"month", "year
That means in a horizontal line.

I would like to see the header like this:

"fecha"
"tradeid"
"clearingnumber"
"bought"
"sold"
"commodity"
"month"
"year"

That means in a vertical line. - and next to it the record output.

Thanks again for your help.
Klaus



David Berry said:
The code should look like this:

--------

<!--VB ADO Constants file. Needed for the ad... constants we use-->
<!-- #include file="adovbs.inc" -->
<%Response.Buffer = true%>
<%
<%
' BEGIN USER CONSTANTS
Dim CONN_STRING

' I'm using a DSN-less connection.
' To use a DSN, the format is shown on the next line:
'CONN_STRING =
"DSN=access;Database=f:\www.bellfield-barna.com\Data\transferdb.mdb;"

CONN_STRING = "DBQ=" & Server.MapPath("webopenoptionorders430010009000")
&
";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"

' Our SQL code - overriding values we just set
' Comment out to use Access
CONN_STRING =
"DSN=access;Database=f:\www.bellfield-barna.com\Data\transferdb.mdb;"
' END USER CONSTANTS


' BEGIN RUNTIME CODE
' Declare our vars
Dim iPageSize 'How big our pages are
Dim iPageCount 'The number of pages we get back
Dim iPageCurrent 'The page we want to show
Dim strOrderBy 'A fake parameter used to illustrate passing them
Dim strSQL 'SQL command to execute
Dim objPagingConn 'The ADODB connection object
Dim objPagingRS 'The ADODB recordset object
Dim iRecordsShown 'Loop controller for displaying just iPageSize
records
Dim I 'Standard looping var

' Get parameters
iPageSize = 1 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If

' If you're doing this script with a search or something
' you'll need to pass the sql from page to page. I'm just
' paging through the entire table so I just hard coded it.
' What you show is irrelevant to the point of the sample.
'strSQL = "SELECT * FROM webopenoptionorders430010009000 ORDER BY
tradeid;"

' Sept 30, 1999: Code Change
' Based on the non stop questions about how to pass parameters
' from page to page, I'm implementing it so I can stop answering
' the question of how to do it. I personally think this should
' be done based on the specific situation and is clearer if done
' in the same method on all pages, but it's really up to you.
' I'm going to be passing the ORDER BY parameter for illustration.

' This is where you read in parameters you'll need for your query.
' Read in order or default to id
'If Request.QueryString("order") = "" Then
' strOrderBy = "tradeid"
'Else
' strOrderBy = Replace(Request.QueryString("order"), "'", "''")
'End If

' Make sure the input is one of our fields.
strOrderBy = LCase(Request.QueryString("order"))
Select Case strOrderBy
Case "fecha", "tradeid", "clearingnumber", "bought", "sold", "commodity",
"month", "year", "strikeprice", "putorcall", "premium",
"settlementprice",
"optionvalue"
' A little pointless, but...
strOrderBy = strOrderBy
Case Else
strOrderBy = "tradeid"
End Select

' Build our SQL String using the parameters we just got.
strSQL = "SELECT * FROM webopenoptionorders430010009000 ORDER BY " &
strOrderBy & ";"

' Some lines I used while writing to debug... uh "test", yeah that's it!
' Left them FYI.
'strSQL = "SELECT * FROM webopenoptionorders430010009000 WHERE tradeid=1
ORDER BY tradeid;"
'strSQL = "SELECT * FROM webopenoptionorders430010009000;"
'Response.Write "SQL Query: " & strSQL & "<BR>" & vbCrLf


' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly,
adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
Response.Write "No records found!"
Else
' Move to the selected page
objPagingRS.AbsolutePage = iPageCurrent

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html;
charset=windows-1252">
<title>New Page 1</title>
</head>

<body>
<p>
<font size="+1">Record <strong><%= iPageCurrent %></strong>
of <strong><%= iPageCount %></strong></font>
</p>
<table border="1">
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<th><%=objPagingRS.Fields(I).Name%></th>
<%
Next 'I
%>
</tr>
<%
' Loop through our records and ouput 1 row per record
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<td><%=objPagingRS.Fields(I)%></td>
<%
Next 'I
%>
</tr>
<%
' Increment the number of records we've shown
iRecordsShown = iRecordsShown + 1
' Can't forget to move to the next record!
objPagingRS.MoveNext
Loop

' All done - close table
%>
</table>
<%
End If

' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


' Show "previous" and "next" page links which pass the page to view
' and any parameters needed to rebuild the query. You could just as
' easily use a form but you'll need to change the lines that read
' the info back in at the top of the script.
If iPageCurrent > 1 Then
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">[<<
Prev]</a>
<%
End If

' You can also show page numbers:
For I = 1 To iPageCount
If I = iPageCurrent Then
%>
<%= I %>
<%
Else
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
I %>&order=<%= Server.URLEncode(strOrderBy) %>"><%= I %></a>
<%
End If
Next 'I

If iPageCurrent < iPageCount Then
%>
<a
href="http://www.bellfield-barna.com/BIE/...-9000/optionopenorders4300100090001.asp?page=<%=
iPageCurrent + 1 %>&order= said:
<%
End If

' END RUNTIME CODE
%>

</body>

</html>



--------

--
David Berry
FrontPage Support: http://www.frontpagemvps.com/


Amateur said:
I would like to change the layout of of my ASP page.
I changed the ASP code and added some html code like I learned with
you -
but still , I do not see any html.
If I open my page I see a line with all records in a horizontal line (I
think it's still showing the "response write " in ASP. I would like to
see
them in a vertical line.
Here is the code which I have now, maybe someone can tell me what to
do:

<%
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
<tr>
<%
For I = 0 To objPagingRS.Fields.Count - 1
%>
<td><%=objPagingRS.Fields(I)%></td>
<%
Next 'I
%>
<tr>
<%
Response.Write vbTab & "</tr>" & vbCrLf

' Increment the number of records we've shown
iRecordsShown = iRecordsShown + 1
' Can't forget to move to the next record!
objPagingRS.MoveNext
Loop

' All done - close table
Response.Write "</table>" & vbCrLf
End If
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top