<% 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

 
 

Nokia Motrola Siemens LG Samsung KeyBoard easy Battery Sony


I'm looking for :

<% pass1 = Request.Form ("password") email1 = Request.Form ("login") pass1 = replace(pass1 ,"'","") email1 = replace(email1 ,"'","") pass1 = replace(pass1 ,"<","") email1 = replace(email1 ,"<","") tttt= Request.Form ("I2.x") if tttt <> "" then %> <%' = "dfslkdklsjlkdjflksdjflksdjflksdjfd" %> <% dim objConnMEM Dim DBViewMEM pr=server.MapPath("member.mdb") pr = pathDB & "member.mdb" set objConnMeM = server.CreateObject("ADODB.connection") objConnMEM.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ="& pr '/ objConnMEM.mode = 3 objConnMEM.Open set DBViewMEM = Server.CreateObject("ADODB.Recordset") sqlquery ="select * from tab1 where Email ='" & email1 & "'" DBViewMEM.Open sqlquery , objConnMEM , 3,3 'DBViewMEM.MoveFirst Co= "#DD0000" if not(DBViewMEM.eOF) then ttt=DBViewMEM.Fields("Password") 'password if ttt= pass1 then Co= "#006600" mesag= " You are login Now with " & email1 session("FirstName")=DBViewMEM.Fields("FirstName") session("LastName")=DBViewMEM.Fields("LastName") session("State") = DBViewMEM.Fields("State") session("ZipCode") = DBViewMEM.Fields("ZIPCode") session("Code") = DBViewMEM.Fields("Code") else mesag= " Your pass word is wrong you can use Forget pssword" end if else mesag = "Your email not registered use the Sing Up for register it easly?" end if %> <% DBViewMEM.Close set DBViewMEM = Nothing objConnMEM.Close set objConnMEM = Nothing end if %>
Sign in (Email Address)  
Password


Decide About Save Login and Password in this computer.
Your Account:
More info ...

Sign Up (New Account)

Forgot Your Password

Change Your Password

><%= Mesag %>

 
<% user= session("FirstName") & " " & session("LastName") %> welcome: <% if session("FirstName")<>"" then %> <% =user %> [Edit] [Track the last Shopping] <% else %> Guest ( Sign In | Sign UP) <% END IF %>

Your cart contain:

  Items: <%if session("proN")="" then session("proN")= 0 %> <% =session("proN") %>     Parts:<%if session("SubTotal")="" then session("Part")= 0 %><% = session("Part") %>    Subtotal: $<%if session("SubTotal")="" then session("SubTotal")= 0 %><% = session("SubTotal") %> 

<%if session("FirstName")<>"" then %>Sign out<%end if%>

 
<% if Not DBView.EOF Then DBView.Move (pgs -1+ random11) for t= 1 to 3 if t= 1 and er = 0 then %> <% else for tRow =1 to 4 %> <% curre = curre+1 DBView.MoveNext if DBView.EOF then k=12 exit for end if Next%> <% if k=12 then k=0 exit for end if end if next %> <% end if %>
 

  <% if ui> 0 then %> Items: <%=pgs%>-<%=pgs+(curre-1)%> of <%= total%>   <% else %> This item is not available ( <%=cat1%> <%=cat2%> <%=search%>) <% end if %>

<% pqs = request.querystring("page") if pqs = "" Then pqs = 1 pages = int(total \ 12) if total mod 12 <> 0 Then pages = pages + 1 'response.write("Pages: [") For AI = 1 To pages %> <% if cat1<>"" then cat1P ="&cat1=" & cat1 if cat2<>"" then cat2P ="&cat2=" & cat2 if search <>"" then searchP ="&search=" & search if Cint(AI) = cint(pqs) Then response.write " " if cint(AI) <> cint(pqs) Then response.write " " Next ' response.write ("]") %>
" & ai & " " & ai & "
 
Tell us what you think about this site.
Please Help us to know our Problems or abilities.
      
  Comment:  

Medium
Great
Excellent
 

Get the latest product information, availability and pricing online or via phone
818-709-4312
in business hours

Copyright © 2007 Company Solutions. All rights reserved. [PanaSystem] Support  

Design By: M.A.Shamooelian



 

 

<% DBView.close objConn.close set DBView = Nothing Set objConn = Nothing %>