asp pagination help

[ilayacute]

hi im using below code for pagination. i want 1 help,when i click the name(link)it should go to editpage.asp.my question is how can i add links to names?

<%
Option Explicit
Const adOpenStatic   = 3
Const adLockReadOnly = 1
Const adCmdText      = &H0001
Dim CONN_STRING
CONN_STRING = "Driver={SQL Server};Server=.;Database=my_tables;uid=sa;pwd=travelzone"
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 sql 'SQL command to execute
Dim conn 'The ADODB connection object
Dim rs 'The ADODB recordset object
Dim iRecordsShown  'Loop controller for displaying just iPageSize records
Dim iFieldCount
Dim iRecordCount
Dim LoopRecordCount
Dim pageNum
Dim counter
Dim markShowPage
Dim I, J 'Standard looping var
iPageSize = 10
' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
    iPageCurrent = 1
Else
    iPageCurrent = CInt(Request.QueryString("page"))
End If
 
sql = "SELECT * from employee order by empid asc;"
 
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open CONN_STRING
' Create recordset and set the page size
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = iPageSize
rs.CacheSize = iPageSize
' Open RS
rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText
' Get the count of the pages using the given page size
iPageCount = rs.PageCount
iFieldCount = rs.Fields.Count
iRecordCount = rs.RecordCount
' 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
 
If iPageCount = 0 Then
    Response.Write "No records found!"
Else
    ' Move to the selected page
    rs.AbsolutePage = iPageCurrent
 
 
    response.write("<a href=logout.asp><h4 align=right>LogOut</h4></a>")
    response.write("<h3 align=center><u>Employee Details</u></h3>")
 
    ' Spacing
    Response.Write vbCrLf
 
    ' Continue with a title row in our table
    Response.Write "<table border=1 align=center>" & vbCrLf
 
    ' Show field names in the top row
    Response.Write vbTab & "<tr>" & vbCrLf
    For I = 0 To rs.Fields.Count - 1
        Response.Write vbTab & vbTab & "<th>"
        Response.Write rs.Fields(I).Name
       Response.Write "</th>" & vbCrLf
    Next 'I
    Response.Write vbTab & "</tr>" & vbCrLf
 
    ' Loop through our records and ouput 1 row per record
    iRecordsShown = 0
    Do While iRecordsShown < iPageSize And Not rs.EOF
        Response.Write vbTab & "<tr>" & vbCrLf
        For I = 0 To rs.Fields.Count - 1
            Response.Write vbTab & vbTab & "<td>"
            Response.Write rs.Fields(I)
            Response.Write "</td>" & vbCrLf
        Next 'I
        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!
        rs.MoveNext
    Loop
 
    ' All done - close table
    Response.Write "</table>" & vbCrLf
End If
response.write("<br><a href=employeeadd.asp><center><b><font color=green>Insert New Employee Details</font></b></center></a>")
 
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
 
 
If iPageCurrent > 1 Then
    %>
    <a href="dbpaging_array.asp?page=<%= iPageCurrent - 1 %>">&lt;&lt; Prev</a>
    <%
End If
' You can also show page numbers:
For I = 1 To iPageCount
    If I = iPageCurrent Then
        %>
        <%= I %>
        <%
    Else
        %>
        <a href="dbpaging_array.asp?page=<%= I %>&order=<%= Server.URLEncode(strOrderBy) %>"><%= I %></a>
        <%
    End If
Next 'I
 
If iPageCurrent < iPageCount Then
    %>
    <a href="dbpaging_array.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">Next &gt;&gt;</a>
    <%
End If
%>

[DrBunchman]

Hi ilayacute,

I presume you are talking about this piece of code:

    ' Show field names in the top row
    Response.Write vbTab & "<tr>" & vbCrLf
    For I = 0 To rs.Fields.Count - 1
        Response.Write vbTab & vbTab & "<th>"
        Response.Write rs.Fields(I).Name
       Response.Write "</th>" & vbCrLf
    Next 'I
    Response.Write vbTab & "</tr>" & vbCrLf

To add a link to these headers change your code to the following:

    ' Show field names in the top row
    Response.Write vbTab & "<tr>" & vbCrLf
    For I = 0 To rs.Fields.Count - 1
        Response.Write vbTab & vbTab & "<th>"
        Response.Write "<a href='editpage.asp'>" & rs.Fields(I).Name & "</a>"
       Response.Write "</th>" & vbCrLf
    Next 'I
    Response.Write vbTab & "</tr>" & vbCrLf

Let me know if this helps,

Dr B

[ilayacute]

thank u for your response Dr.Bunchman.
but i want to add link to all records in the name field.....ie in the following code

iRecordsShown = 0
    Do While iRecordsShown < iPageSize And Not rs.EOF
        Response.Write vbTab & "<tr>" & vbCrLf
        For I = 0 To rs.Fields.Count - 1
            Response.Write vbTab & vbTab & "<td>"
            Response.Write rs.Fields(I)
            Response.Write "</td>" & vbCrLf
        Next 'I
        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!
        rs.MoveNext
    Loop

help me....

[DrBunchman]

Just add the anchor tag around the line as I did in my first reply. Like this:

 Response.Write "<a href='editpage.asp'>" & rs.Fields(I) & "</a>"

Is that what you wanted?

Dr B

PS Please don't forget to wrap your code in CODE tags - it makes your posts much easier to read - and please read the Posting Guidelines if you have not done so already. Thanks.

[ilayacute]

thanks for clue sorry for asking again i want link only 'name' that is field(1)
i tried the following but it will create link to all the records in the table.please

<%
iRecordsShown = 0
    Do While iRecordsShown < iPageSize And Not rs.EOF
        Response.Write vbTab & "<tr>" & vbCrLf
        For I = 0 To rs.Fields.Count - 1
            Response.Write vbTab & vbTab & "<td>"
          Response.Write "<a href='emp_edit.asp'>" & rs.Fields(1) & "</a>"
          Response.Write  rs.Fields(I) 
            Response.Write "</td>" & vbCrLf
 
        Next 'I
        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!
        rs.MoveNext
    Loop
 
    ' All done - close table
    Response.Write "</table>" & vbCrLf
End If
%>