<% slide dim Country , StartDate, Enddate response.write "Trade Logo

" response.write "
" response.write "" response.write "Trade Search Ad Banner
" 'response.write "
Product Keyword Search Ad Banner
" accessdb="Trade.mdb" myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" myDSN=myDSN & "DBQ=" & server.mappath(accessdb) Set db=Server.CreateObject("ADODB.Connection") db.open myDSN sql="Select * from Trade" set r1=Server.CreateObject("adodb.recordset") r1.cursortype=3 r1.cursorlocation=3 r1.open sql, db, adopenstatic r1.pagesize=20 r1.cachesize=20 pages=r1.pagecount count=r1.recordcount if count=0 then response.write "

Sorry, no Trade Detail found" else if request.querystring("currpage")="" then currpage=1 else currpage=int(request.querystring("currpage")) end if if count>0 then r1.absolutepage=currpage start=r1.absoluteposition if currpage=pages then finish=count else finish=start+r1.pagesize-1 end if response.write "" if count=0 then response.write "

Sorry, no matches found" else response.write "

" productdisplay end if end if db.close set db=nothing Bottom_Patch %> <% Sub productdisplay do while not r1.eof response.write "" response.write "" 'response.write "" if r1("Profile") <> "" then response.write "" response.write "" end if if r1("contry") <> "" then response.write "" response.write "" end if if r1("venue") <> "" then response.write "" response.write "" end if if r1("startdate") <> "" then response.write "" response.write "" end if if r1("organizer") <> "" or r1("organizerAddress") <> "" then response.write "" response.write "" end if if r1("Tel") <> "" then response.write "" response.write "" end if if r1("fax") <> "" then response.write "" response.write "" end if if r1("website") <> "" then response.write "" response.write "" end if if r1("email") <> "" then response.write "" response.write "" response.write "
" response.write "
" response.write ""&r1("TradefairName")&"
" 'response.write "   " 'response.write "Profile = "&r1("Profile")&"
" response.write "   " response.write "Profile :" response.write r1("Profile")&"
" response.write "   " response.write "Country :" response.write r1("contry")&"
" response.write "   " response.write "Vennue :" response.write r1("Venue")&"
" response.write "   " response.write "Date :" response.write r1("startdate")&" to "&r1("enddate")&"
" response.write "   " response.write "Organiser :" if r1("organizer") <> "" then response.write r1("organizer")&"
" response.write r1("organizeraddress")&"
" response.write "   " response.write "Tel :" response.write r1("Tel")&"
" response.write "   " response.write "Fax :" response.write r1("Fax")&"
" response.write "   " response.write "WebSite :" response.write r1("website")&"
" response.write "   " response.write "Email :" response.write r1("Email")&"

" end if r1.movenext loop if not r1.eof then dim remainder remainder=count-20 response.write "

" response.write "Next "&remainder&" Products" else response.write ">Next 20 Products" end if if start<>1 then response.write "
Previous 20 Products" end if pagewisedisplay elseif pages>1 then response.write "
Previous 20 Products" pagewisedisplay end if End Sub %> <% Sub pagewisedisplay response.write "

Pages: " for i=1 to pages if i=currpage then response.write i&" " else response.write ""&i&" " end if next response.write "" End Sub %>