|
<%
Dim intPageCount
Dim intRecordCount
Dim intPage
Dim intRecord
Dim intStart
Dim intFinish
If Request.QueryString("NAV")="" then
intPage=1
else
intPage= Request.QueryString("NAV")
end if
Set ConCat=Server.CreateObject("ADODB.Connection")
ConCat.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("_system/_db/egypteng.mdb")
Dim RSStr
StrRS= "Select * FROM ComTable WHERE (CAT_id=8) ORDER BY ComFormate,CompanyName"
Set rsCat=Server.CreateObject("ADODB.Recordset")
rsCat.CursorLocation=3
rsCat.CursorType=3
rsCat.Open StrRS,ConCat
rsCat.PageSize=20
rsCat.CacheSize=rsCat.PageSize
intPageCount=rsCat.PageCount
intRecordCount=rsCat.RecordCount
if Cint(intPage) > Cint(intPageCount) then intPage=intPageCount
if Cint(intPage) <= 0 then intPage=1
If intRecordCount > 0 then
rsCat.AbsolutePage=intPage
intStart=rsCat.AbsolutePosition
If Cint(intPage) = Cint(intPageCount) then
intFinish=intRecordCount
else
intFinish = intStart + (rsCat.PageSize-1)
end if
end if
Set objCompanyName = rsCat("CompanyName")
Set objAddress = rsCat("Address")
Set objCompanyProfile = rsCat("CompanyProfile")
Set objTel = rsCat("Tel")
Set objFax = rsCat("Fax")
Set objURL = rsCat("CompanyURL")
set objRP = rsCat("RP")
set objEmail = rsCat("Email")
Set objComFormate = rsCat("ComFormate")
Set objComLogo = rsCat("ComLogo")
'to count the records
rsCheck=false
if not rsCat.EOF then
'rsCat.MoveFirst
Response.Write "
"
Response.Write("" & intRecordCount & " Record(s) Found ")
Response.Write (" You are now viewing records ") & intStart &" to " & intFinish & " of " & intRecordCount & "
" &"
"
Dim HTMLS
for DPage = 1 to intPageCount
HTMLS = HTMLS & "" & DPage & " "
next
Response.write " Browse by pages "& HTMLS &" "
else
Response.Write (" ") & " No Record found" & "
" &"
"
end if
rsCount=0
if intRecordCount>0 then
for intRecord=1 to rsCat.PageSize
'The Result Table
'-----------------
ComColor=""
ComSize=""
on error resume next
if CInt(objComFormate) = 1 then
ComColor="#FF0000"
ComSize = "4"
else
ComColor="#000080"
ComSize = "2"
end if
if err then
err.clear
ComColor="#000080"
ComSize = "2"
end if
%>
|
size=<%=ComSize%>><%=objCompanyName%>
|
<%
if not objComLogo="None" then%>
 height="25" border="1">
<%end if%>
|
|
|
|
Directory |
<%=CatName%> |
|
|
Address |
<%=objAddress%> |
| Phone |
<%=objTel%> |
| Fax |
<%=objFax%> |
| Responsible
Person |
<%=objRP%> |
| email |
><%=objemail%> |
|
URL |
><%=objURL%> |
| <%=objCompanyProfile%> |
<%
'Response.Write ("
")
rsCat.MoveNext
if rsCat.EOF then exit for
next
end if
Response.write " Browse by pages "& HTMLS &" "
if Cint(intPage)>1 then%>
Prev
<%end if%>
<%if Cint(intPage) < Cint(intPageCount) then%>
Next
<%end if%>
<%ConCat.Close%>
|
