RS Paging!! Need Urgent Help

ASP Free Forums Sponsor:

May 20th, 2000, 11:33 AM

Steve Schofield

Contributing User

ASP Free God 20th Plane (14500 - 14999 posts)

Join Date: Dec 2002

Posts: 14,575

Time spent in forums: < 1 sec
Reputation Power: 24

RS Paging!! Need Urgent Help

Originally posted by : Chris (bubbaman2000@hotmail.com) Can anyone help me with RS paging. Here is my code <%@ Language="VBScript"%> <%Option Explicit%> <html> <head> <title>Interactive Business Directory Of Oman</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <% Dim BDSB Dim BDSV Dim VL Dim CNN Dim REC Dim STRSQL Dim X Dim Flag Dim PGCnt Dim PG Dim RECNO Flag = false X = False VL=trim(Request.QueryString("val")) BDSB=trim(Request.Form("BDSearchBy")) BDSV=trim(Request.Form("BDSearchVal")) Set CNN = server.CreateObject("ADODB.Connection") CNN.Provider="Microsoft.Jet.OLEDB.4.0" CNN.Open server.MapPath("../database/intom.mdb") Set REC = Server.CreateObject("ADODB.Recordset") REC.CursorLocation = adUseClient ' REC.PageSize = 2 Sub RecWrite(PGE) %> <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"> <% Response.Write(PGE) REC.AbsolutePage = PGE For RECNO = 1 to REC.PageSize%> <TR> <TD>Company Name : <%Response.write(REC.Fields("Company_Name"))%></TD> </TR> <TR> <TD>Location : <%Response.write(REC.Fields("Location"))%></TD> </TR> <TR> <TD>Business Hours : <%Response.write(REC.Fields("Business_Hrs"))%></TD> </TR> <TR> <TD>P. O. Box : <%Response.write(REC.Fields("POBox"))%></TD> </TR> <TR> <TD>Phone : <%Response.write(REC.Fields("Phone"))%></TD> </TR> <TR> <TD>Fax : <%Response.write(REC.Fields("Fax"))%></TD> </TR> <TR> <TD>Key Staff : <%Response.write(REC.Fields("KeyStaff"))%></TD> </TR> <TR> <TD>Email : <a href="mailto:<%= REC.Fields("Email")%>"><%= rec.Fields("Email")%></a></TD> </TR> <TR> <TD><HR width="100%"></TD> </TR> <% REC.MoveNext if REC.EOF = true then Exit For Next%> </TABLE><% End Sub Sub NoRecWrite()%> <TABLE border=0 cellPadding=0 cellSpacing=0 width=100%> <TR> <TD> Select the Criteria you want to search by Type in your value and Click on the above 'GO' button.</TD> </TR> </TABLE> <%End Sub%> <Script Language="JavaScript"> function showDate() { var dt = new Date(); var month var year dt = new Date(); //Gets today's date right now (to the millisecond). month = dt.getMonth()+1; day = dt.getDate(); year = dt.getFullYear(); document.write(day + '/' + month + '/' + year); } function checker(val1, val2) { var val1len; var val2len; val1len=val1.length; val2len=val2.length; if (val1len == 0 || val2len == 0) { alert("Either one or both of the Fields are blank. Please Check"); document.SearchBy.BDSearchBy.focus; return false; } else { return true; } } </Script> <body link="#FFFFFF" bgcolor="#FFFFFF"> <table border="0" cellspacing="0" cellpadding="0" width="730"> <TR valign="top"> <td width="100"> <table border="0" cellspacing="0" cellpadding="0" width="100%"> <tr valign="top"> <td> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td rowspan="2" valign="top"> </td> <td rowspan="2" valign="center" align="middle"><img height=75 src="../images/iomlogo.gif" width=600></td> <td valign="top"> </td> </tr> <tr> <td valign="center" align="right"> </td> </tr> </table> </td> </tr> <tr valign="top"> <td valign=bottom> Date : <script language="JavaScript">showDate()</script> </td> </tr> <tr valign="top"> <td> <table border="0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td valign="top"> <table width="120" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#ffffff" bordercolordark="#ffffff"> <tr bgcolor="#cc0033"> <td height="25"> </td> </tr> <tr bgcolor="#006699"> <td height="25"> <div align="center">Categories</div> </td> </tr> <tr bgcolor="#ffcc00"> <td height="25"> <div align="center"><a href="../htm/auto.htm">Automobiles</a></div> </td> </tr> <tr bgcolor="#ffcc00"> <td height="25"> <div align="center">Banks & Finance</div> </td> </tr> <tr bgcolor="#ffcc00"> <td height="25"> <div align="center"><a href="bizdirpg.asp">Business Directory</a></div> </td> </tr> <tr bgcolor="#ffcc00"> <td height="25"> <div align="center">Entertainment</div> </td> </tr> <tr bgcolor="#ffcc00"> <td height="25"> <div align="center">Kiddies Corner</div> </td> </tr> <tr bgcolor="#ffcc00"> <td height="25"> <div align="center">Technology</div> </td> </tr> </table> </td> <td valign="top"> <table border="0" cellspacing="0" cellpadding="0"> <tr valign="top" bgcolor="#cc0033"> <td height="25"> <table border="0" cellspacing="0" cellpadding="0" height="25" bgcolor="#cc0033"> <tr> <td width="2" height="25"> </td> <td height="25">Interactive Business Directory Of OMAN</td> </tr> </table> </td> </tr> <tr valign="top" bgcolor="#006699"> <td> <table border="1" cellspacing="0" cellpadding="0" width="100%" bordercolorlight="#FFFFFF" bordercolordark="#006699"> <tr bgcolor="#006699" valign="center"> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=A">A</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=B">B</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=C">C</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=D">D</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=E">E</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=F">F</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=G">G</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=H">H</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=I">I</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=J">J</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=K">K</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=L">L</a></div> </td> <td height="25"> <div align="center"><a href="bizdirpg.asp?val=M">M</a></div> </td> </tr> <tr bgcolor="#006699" valign="center"> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=N">N</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=O">O</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=P">P</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=Q">Q</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=R">R</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=S">S</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=T">T</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=U">U</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=V">V</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=W">W</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=X">X</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=Y">Y</a></div> </td> <td height="25" align="middle"> <div align="center"><a href="bizdirpg.asp?val=Z">Z</a></div> </td> </tr> </table> </td> </tr> <tr valign="top" bgcolor="#006699"> <td> <table border="0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td bgcolor="#006699">Search under the following Categories : </td> <td valign="top"> <table border="0" cellspacing="0" cellpadding="0" width="100%"> <form name="SearchBy" action="bizdirpg.asp" method="post" onSubmit="return checker(BDSearchBy.value, BDSearchVal.value)"> <tr valign="top"> <td colspan="2" align="middle" height="18"> <div align="center"> <select name="BDSearchBy"> <option value="" selected></option> <option value="Company_Name">Company Name</option> <option value="Location">Location</option> <option value="Phone">Phone</option> <option value="Fax">Fax</option> <option value="Email">Email</option> <option value="KeyStaff">Key Staff</option> </select> </div> </td> </tr> <tr> <td align="middle"> <input name="BDSearchVal" maxlength="200" size="35" > </td> <td align="middle" valign="center"> <input type="image" border="0" cache name="Submit2" src="../images/gobttn.jpg" width="30" height="36" alt ="Click Here to search"> </td> </tr> </form> </table> </td> </tr> </table> </td> </tr> <tr valign="top"> <td> <table border="0" cellspacing="0" cellpadding="0" width="100%"> <tr valign="top"> <td class="NormFont"> face=Arial color="#cc0033">Search Results for : </td> </tr> <tr valign="top"> <td> <table border="0" cellspacing="0" cellpadding="0" width="100%"> <tr> <td> </td> <td> </td> <td> </td> </tr> <tr> <td> </td> <td valign="top"> <% if len(VL) <> 0 then STRSQL = "Select * From busdir where Company_Name like '" & VL & "%'" REC.Open STRSQL, CNN, adOpenStatic, adLockPessimistic, adCmdText REC.PageSize = 2 PGCnt = REC.PageCount Select Case Request.Form("Action") case "<<" PG = 1 case "<" PG = Request.Form("PG")-1 if PG < 1 then PG = 1 case ">" PG = Request("PG")+1 if PG > PGCnt then PG = PGCnt Case ">>" PG = PGCnt case else PG = 1 end select X = True RecWrite(PG) elseif len(BDSB) <> 0 and len(BDSV) <> 0 then STRSQL="Select * from busdir where " & BDSB & " like '%" & BDSV & "%'" REC.Open STRSQL, CNN, adOpenStatic, adLockPessimistic, adCmdText REC.PageSize = 2 PGCnt = REC.PageCount Select Case Request("Action") case "<<" PG = 1 case "<" PG = Request("PG")-1 if PG < 1 then PG = 1 case ">" PG = Request("PG")+1 if PG > PGCnt then PG = PGCnt Case ">>" PG = PGCnt case else PG = 1 end select X = True RecWrite(PG) elseif len(BDSB) = 0 or len(BDSV) = 0 then X = False NoRecWrite() end if %> </td> <td> </td> </tr> <tr> <td> </td> <td> </td> <td> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> <td valign="top"> <table border="0" cellspacing="0" cellpadding="0" width="120"> <tr valign="middle" align="center" bgcolor="#CC0033"> <td height="25"> Search Powered by :</td> </tr> <tr align="center" valign="middle"> <td><img src="../images/yahoo.jpg" height="30"></td> </tr> <form name="Yhsearch" action="http://search.yahoo.com/bin/search"> <tr align="center" valign="middle"> <td> <input type="text" name="p" maxlength="255" size="20"> </td> </tr> <tr valign="middle" align="center"> <td> <input type="submit" name="Submit" value="INTERACT"> </td> </tr> </form> </table> </td> </tr> </table> </td> </tr> </table> </TD> </TR></TABLE> <% If X = True then REC.Close Set REC = Nothing CNN.Close Set CNN = Nothing end if %> <form name="MovePage" action="bizdirpg.asp" method="post"> <input type="hidden" name="PG" value="<%=PG%>"> <input type="submit" name="action" value="<<"> <input type="submit" name="action" value="<"> <input type="submit" name="action" value=">"> <input type="submit" name="action" value=">>"> Page: <%=PG & " of " & PGCnt%> </form> <% Response.Write("" & BDSV & " " & BDSB & " ") Response.Write(VL) %> </body> </html>

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: