PDA

Click to See Complete Forum and Search --> : Need Help With Search criteria and Display Data form Ms access as record page array

puthea
07-26-2007, 05:05 AM
Hello all of you , i get trouble in coding search and array data display then link it to a new page detail, so i need some help urgently form all u , here code :


<html>
<head ><title >The Form test</title>
</head>
<body>
<form method="post" action="index.asp">
<select size="1" name="DboxSort">
<option selected value="A">A</option>
<option value="B">B</option>
<option value="C">C</option>
<option value="D">D</option>
<option value="E">E</option>
<option value="F">F</option>
<option value="H">H</option>
<option value="G">G</option>
<option value="I">I</option>
<option value="J">J</option>
<option value="K">K</option>
<option value="L">L</option>
<option value="M">M</option>
<option value="N">N</option>
<option value="O">O</option>
<option value="P">P</option>
<option value="Q">Q</option>
<option value="R">R</option>
<option value="S">S</option>
<option value="T">T</option>
<option value="U">U</option>
<option value="V">V</option>
<option value="W">W</option>
<option value="X">X</option>
<option value="Y">Y</option>
<option value="Z">Z</option>
</select> Record Page:
<select size="1" name="DboxRecords">
<option selected value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
</select>&nbsp; <input type="submit" value="Search" name="B1"></p>
</form>
<%
Set ObjConn=Server.CreateObject("ADODB.Connection")
ObjConn.provider="Microsoft.Jet.OLEDB.4.0"
ObjConn.Open(Server.MapPath("/Tem/Webdata/dbstudent.mdb"))

Dim StrName, StrRecordNum

StrName= Request.Form("DboxSort")
StrRecordNum= Cint(Request.Form("DboxRecords"))

MySQL= "SELECT *FROM Tblstudent WHERE Name LIKE '"& DboxSort & "%'"

Set ObjRs= Server.CreateObject("ADODB.Recordset")
ObjRs.Cursortype=1
ObjRs.Open MySQL, ObjConn

Pgs= Request.QueryString("page")
if Pgs=" " then Pgs=1 : rpg=1
rpg=Pgs
Pgs= ((Pgs-1)*StrRecordNum)+1

Curre=0
if not ObjRs.EOF then
ObjRs.Move (Pgs-1)

While Curre < StrRecordNum and not ObjRs.EOF

%>
<table>
<tr>
<td width="100%" bgcolor=#800000><b><font face="Arail" size="3"><%ObjRs("Name")%></font></b></td>

<td width="100%" class="tbody" align="right" bgcolor=#800000><%=(ObjRs("Sex"))%></td>
<td><a href="index.asp?Pgs=<%=ObjRS("Name")%>"> Detail </a> </td>
</tr>
<%
ObjRs.MoveNext
Curre = Curre+1
Wend
End if
%>
<td width="100%" bgcolor="#ccbbcc" class="tbody"><b>Search Result: <%=Pgs%> - <%=Pgs+(Curre-1)%></b> of </td>
<tr><td width="100%" classl="tbody"></td></tr>
<%
Pgs= Request.QueryString("page")
if Pqs="" then Pqs= 1
StrRecordNum=Cint(StrRecordNum)
pages = int(ObjRs.Recordcount\StrRecordNum)
if ObjRs.Recordcount mod StrRecordNum <> 0 then pages= pages+1


Response.Write ("Pages: [")
For AI =1 to pages
if Cint(AI)= cint(Pqs) then
Response.write ("&nbsp;&nbsp;&nbsp; <b>" & AI & "</b>&nbsp;&nbsp;&nbsp;")

Else Cint(AI)=cint(Pqs)
Response.wirte ("&nbsp;&nbsp;&nbsp; <a href=""index.asp?Page=" & AI & """ > "& AI & " </a>&nbsp;&nbsp;&nbsp;")
end if
Next
Response.write ("]")

%>



Problem:

Error Type:
Microsoft VBScript runtime (0x800A000B)
Division by zero
/Tem/index.asp, line 94


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

Page:
GET /Tem/index.asp

best wish!