% Session.Timeout = 30 dim objConn Dim DBView dim filTXT(7) dim sea(3) pr=server.MapPath("PORdata.mdb") 'pr = "e:\home\nedahosting.com\users\nsuperelectriir\db\data.mdb" 'www 'pr ="D:\Webs\aryares1\afaridegar\afaridegar.com\db\data.mdb" pr = pathDB & "PORdata.mdb" %> <% '= pr %> <% set objConn = server.CreateObject("ADODB.connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& pr '/ objConn.mode = 3 objConn.Open set DBView = Server.CreateObject("ADODB.Recordset") 'objRS.Open "Tab1" , objConn , 3 ,3 cat1 = request.querystring("cat1") cat2 = request.querystring("cat2") cat = request.querystring("Cat") search = request.querystring("search") pgs = request.querystring("page") if pgs = "" Then pgs = 1 cat1 = replace(cat1,"'","") cat2 = replace(cat2 ,"'","") cat = replace(cat ,"'","") search = replace(search ,"'","") search = replace(search ,"<","") cat1 = replace(cat1,"<","") cat2 = replace(cat2 ,"<","") cat = replace(cat ,"<","") Ssearch = split(search," ") er=0 if cat1 <> "" Then er= 2 if cat2 <> "" Then er= 3 if cat = "all" then er = 1 if search <> "" then er = 4 'er=4 select case er case 1,0 ' on error resume next DBView.Open "Select * from tab1 ORDER BY DATE1" , objConn ,3,3 'DBView.Open "Select * from tab1 ORDER BY " & random11 , objConn ,3,3 if pgs = "" then randomize timer() random11 = int(rnd() * 100) +1 end if case 2 DBView.Open "Select * from tab1 WHERE Type1 like '" & cat1 & "'" , objConn ,3,3 case 3 DBView.Open "Select * from tab1 WHERE SubType like '" & cat2 & "'" , objConn ,3,3 case 4 DBView.Open "Select * from tab1 " , objConn ,3,3 filTXT(1)= DBView.Fields(1).Name filTXT(2)= DBView.Fields(2).Name filTXT(3)= DBView.Fields(3).Name filTXT(4)= DBView.Fields(4).Name filTXT(5)= DBView.Fields(10).Name filTXT(6)= DBView.Fields(11).Name cun=1 for each fle in Ssearch sea(cun)=fle cun=cun+1 next for t= 1 to 6 filTXT(t) = filTXT(t) & " like '%" & sea(1) & "%" & sea(2) & "%' " if t <> 1 then filTXT(t) = " or " & "(" & filTXT(t) & ")" end if weh = weh+ filTXT(t) next %> <%'= weh %> <% DBView.Close DBView.Open "Select * from tab1 WHERE " & weh , objConn ,3,3 'DBView.Open "Select * from tab1 WHERE Quickfeature like '%With%'" , objConn ,3,3 end select ui= DBView.RecordCount if ui> 0 then DBView.MoveFirst While Not DBView.EOF total=total+1 DBView.MoveNext wend DBView.MoveFirst pgs = request.querystring("page") if pgs <>"" then er =12 if pgs = "" Then pgs = 1 : rpg = 1 rpg = pgs pgs = ((pgs - 1) * 12) +1 ' We're only going to view 5 at a time ( ' which is why 5 is there) ' You can change that number to whatever ' you want, just make sure to ' do it in the points ahead. ' Also, we're keeping a 'Curre' counter ' to determine how many records ' we've displayed. After it's reached 5 ' (or whatever you want), we're stopping. Curre = 0 ' Okay, let's loop (if we're not at the ' end of the file.) end if if search <> "" then aSs= "_search=" & search if cat1 <> "" then at = "_cat1=" & cat1 if cat2 <> "" then bt = "_cat2=" & cat2 if pgs <> "" then pa34= "_page" & rpg amarSave "home" & aSs & at & bt & pa34 %>
Best mobile phones Hobby Toys helicopterToy |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
<% DBView.close objConn.close set DBView = Nothing Set objConn = Nothing %>