<%
Dim objConn, rs
Dim SqlJunk
Dim SqlJunk1
Dim str,str1, str2, str3,str4, str5, strUA
Dim COUNT,numrecords
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/postcard.mdb")
SqlJunk = "SELECT * FROM data WHERE MEMBER = -1 AND CATEGORY Like " & "'%" & "software" & "%'" & " ORDER BY COMPANY"
%>
<%
mypage=request("whichpage")
If (mypage="") Then
mypage=1
End If
mypagesize=request("pagesize")
If (mypagesize="") Then
mypagesize=10
End If
mySQL=request("SQLquery")
If (mySQL="") Then
mySQL=SqlJunk
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = adUseClient
rs.cachesize=10
rs.Open mySQL, objConn, adOpenForwardOnly, adLockReadOnly
objConn.Execute mySQL
%>
<%
If rs.BOF and rs.EOF Then%>
<%Else%>
<%
rs.pagesize=mypagesize
maxpages=cint(rs.pagecount)
maxrecs=cint(rs.pagesize)
rs.absolutepage=mypage
howmanyrecs=0
%>
<%If Not rs.BOF Then
numrecords = rs.recordcount
numpages = rs.PageCount
%>
<% Dim CWEB,CNAME,CADDRESS,CPLACE,CPIN,CSTATE,CPHONE,CFAX,CEMAIL,CPERSON,CBUSI,CPRO,CBRAND
CNAME = rs("COMPANY")
CADDRESS = rs("ADDRESS1")
CADDRESS2 = rs("ADDRESS2")
CPLACE = rs("CITY")
CPIN = rs("PIN")
CSTATE = rs("STATE")
CSTD = rs("STDCODE")
CPHONE = rs("PHONE1")
CPHONE2 = rs("PHONE2")
CPHONE3 = rs("PHONE3")
CFAX = rs("FAX1")
CFAX2 = rs("FAX2")
CMOBILE = rs("MOBILE1")
CMOBILE2 = rs("MOBILE2")
CEMAIL = rs("EMAIL")
CWEB = rs("WEBSITE")
CPERSON = rs("CONTACT")
CMEM = rs("MEMBERSHIP")
CBUSI = rs("CATEGORY")
CPRO = rs("PRODUCT")
CBRAND = rs("BRAND")
%>
<%
DO UNTIL rs.eof OR howmanyrecs >=maxrecs
If Not rs.BOF Then
%>
| <%=rs("COMPANY")%> |
| <%=rs("ADDRESS1")%> <%=rs("ADDRESS2")%> |
| <%=rs("CITY")%> |
| <%=rs("PIN")%> |
| <%=rs("STATE")%> |
| Voice
: <%=rs("STDCODE")%>
- <%=rs("PHONE1")%> <%=rs("PHONE2")%> <%=rs("PHONE3")%> |
| Fax
: <%=rs("FAX1")%> <%=rs("FAX2")%> |
| Email
:
"><%=rs("EMAIL")%> |
| Website
:
"><%=rs("WEBSITE")%> |
| Contact
Person : <%=rs("CONTACT")%> |
| Business
:
<%=rs("CATEGORY")%> |
| Range
of products :
<%=rs("PRODUCT")%> |
| Brand
: <%=rs("BRAND")%> |
|
<% End If %>
<% rs.MoveNext
howmanyrecs = howmanyrecs + 1
Loop
%>
<%End If%>
<%
Call PageNavBar
%>
<%
sub PageNavBar()
pad=""
scriptname=request.servervariables("script_name")
response.write ""
response.write ""
response.write ""
if (mypage mod 10) = 0 then
counterstart = mypage - 9
else
counterstart = mypage - (mypage mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maxpages then
counterend = maxpages
end if
if counterstart <> 1 then
ref="First : "
Response.Write ref
ref="Previous "
Response.Write ref
end if
Response.Write "["
for counter=counterstart to counterend
If counter >= 10 then
pad=""
end if
If cstr(counter) <> mypage then
ref="" & pad & counter & ""
else
ref="" & pad & counter & ""
end if
response.write ref
if counter <> counterend then
response.write " "
end if
next
Response.Write "]"
if counterend <> maxpages then
ref=" Next"
Response.Write ref
ref=" : Last"
Response.Write ref
end if
response.write "
"
response.write " | "
response.write ""
response.write "No of matches on this page: "
response.write "" & howmanyrecs & ""
response.write " | "
response.write " "
response.write "
"
end sub
%>
<%End If%>
<%
rs.Close
objConn.Close
%>
|
|
|
|
|
