1. Advertising
    y u no do it?

    Advertising (learn more)

    Advertise virtually anything here, with CPM banner ads, CPM email ads and CPC contextual links. You can target relevant areas of the site and show ads based on geographical location of the user if you wish.

    Starts at just $1 per CPM or $0.10 per CPC.

ASp and Excell Help

Discussion in 'C#' started by BABUPATHAN, Jun 11, 2008.

  1. #1
    i Am using this script to show excell spreadsheet results on Web page at client side but this script use to show complete spreadsheet on a single page and my sheet has maximum of 2000 data records so it looks hard to view such a long page, i want that this script show only 50 resulta of spread sheet data on a single page and place a button of NEXT PAGE to vies next 50 results and so on
    SEMrush
    can any one help me with this script?

    My codes are:


    <%
    Dim objConn, objRS, strSQL
    Dim x, curValue

    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_
    "Excel 8.0; DBQ=" & Server.MapPath("mysheet.xls") & "; "
    strSQL = "SELECT * FROM A1:Q10000"
    Set objRS=objConn.Execute(strSQL)
    Response.Write("<div align=""center"">")
    Response.Write("<table border=""1"" width=""520"" bordercolor=""#00FF00"">")
    Response.Write("<tr>")
    For x=0 To objRS.Fields.Count-1
    Response.Write("<th>" & objRS.Fields(x).Name & "</th>")
    Next
    Response.Write("</tr>")
    Do Until objRS.EOF
    Response.Write("<tr>")
    For x=0 To objRS.Fields.Count-1
    curValue = objRS.Fields(x).Value
    If IsNull(curValue) Then
    curValue="N/A"
    End If
    curValue = CStr(curValue)
    Response.Write("<td>" & curValue & "</td>")
    Next
    Response.Write("</tr>")
    objRS.MoveNext
    Loop
    objRS.Close
    Response.Write("</table>")
    objConn.Close
    Set objRS=Nothing
    Set objConn=Nothing
    %>
     
    BABUPATHAN, Jun 11, 2008 IP
    SEMrush
  2. itcn

    itcn Active Member

    Messages:
    795
    Likes Received:
    31
    Best Answers:
    0
    Trophy Points:
    68
    #2
    itcn, Jun 12, 2008 IP