<% On Error Resume Next dim objConn Dim DBView dim filTXT(7) dim sea(3) pr=server.MapPath("PORdata.mdb") %> <%'= pr %> <% 'pr = "e:\home\nedahosting.com\users\nsuperelectriir\db\data.mdb" 'www pr = pathDB & "PORdata.mdb" 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 item = request.querystring("item") item = replace(item ,"'","") back = request.querystring("back") if item = "" then%> mobile phone <% amarSave "Detail_" & "all" DBView.Open "Select * from tab1", objConn ,3,3 brand= (DBView("Brand")) %> <% com= (DBView("Company")) %> <% %> <%DBView.MoveFirst While Not DBView.EOF brand= (DBView("Brand")) %> <% item = (DBView("ItemNumber")) com= (DBView("Company")) %> <% fi1T= (DBView("BigPic")) fu1= (DBView("Quickfeature")) fu2= replace(fu1,chr(13),"
") fu3= replace(fu2,chr(10),"") fu4= replace(fu3,chr(34),"") fu4= replace(fu4,chr(39),"") na1=(DBView("Name")) na2= replace(na1,chr(34),"") fu1= (DBView("fullfeature")) fu2= replace(fu1,chr(13),"
") fu2= replace(fu2," ","") fu2= replace(fu2,"","") fu2= replace(fu2,"","=") fu2= replace(fu2," ","") fu2= replace(fu2,"",":
") fu2= replace(fu2,"","
") fu2= replace(fu2,"
","") if colop= "#CfCfCf" then colop= "#ffffff" else colop= "#CfCfCf" end if %>
<% DBView.MoveNext wend %>
Name Price Quick feature full feature Company name
&Type1=<%= DBView("Type1")%>&Company=<%= DBView("Company")%>&type=<%= DBView("SubType")%>"> <%= na2%> <%= DBView("TodyPrice")%> <%= fu4%> <%=fu2 %> <% =com%>
<% else DBView.Open "Select * from tab1 WHERE ItemNumber like '" & item & "'" , objConn ,3,3 '= weh %> <% DBView.MoveFirst %> "> "> <% 'amarSave "Detail_" & DBView("Name") brand= (DBView("Brand")) %> <% com= (DBView("Company")) %> <%= DBView("Name") & "-" & DBView("Company")%>
 

Nokia Motrola Siemens LG Samsung hobby toys KeyBoard easy Battery Sony


 

Search for What is in <% =DBView(">
I'm shopping for :
" name="I1">

End of search <% =DBView( in this box">
<% pass1 = Request.Form ("password") email1 = Request.Form ("login") pass1 = replace(pass1 ,"'","") email1 = replace(email1 ,"'","") pass1 = replace(pass1 ,"<","") email1 = replace(email1 ,"<","") tttt= Request.Form ("I4.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.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 %>
Sing in (Email Address)  
Password


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

" name="I4">

Notice for <% =DBView( in this session<%= DBView("Company")%> "> Sing Up (New Account)

Notice for <% =DBView( in this session<%= DBView("Company")%> "> Forget Your Password

Notice for <% =DBView( in this session<%= DBView("Company")%> "> Change Your Password

><%= Mesag %>

End of login for<% =DBView( in this session<%= DBView("Company")%> ">
 
<% 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%>

 
<% %>
<% com= (DBView("Company")) %> <% fi1T= (DBView("BigPic")) fu1= (DBView("Quickfeature")) fu2= replace(fu1,chr(13),"
") fu3= replace(fu2,chr(10),"") fu4= replace(fu3,chr(34),"") fu4= replace(fu4,chr(39),"") na1=(DBView("Name")) na2= replace(na1,chr(34),"") %> onMouseover="tip_it(1,'<%= na2%>','<%= fu4 %> ');" onMouseout="tip_it(0, '', '')"> <% =DBView(" >

Price :

$<% =(DBView("LastPrice"))%>

<%if Back=1 then tyu1="images/view_chart.jpg" act= "SingIn2.asp" else act="SingIn2.asp?add=" & (DBView("ItemNumber")) tyu1="images/ADDTO.jpg" end if %> <%if Back=2 then tyu1="images/view_chart.jpg" TrachingNumber = request.querystring("TrachingNumber") act= "AdminInvoice.asp?TrachingNumber="&TrachingNumber End if %>

to Cart">

 
$<% =(DBView("TodyPrice"))%>

 
 
<% fu1= (DBView("fullfeature")) fu2= replace(fu1,chr(13),"
") fu2= replace(fu2," ","") fu2= replace(fu2,"","") fu2= replace(fu2,"","=") fu2= replace(fu2," ","") fu2= replace(fu2,"",":
") fu2= replace(fu2,"","
") fu2= replace(fu2,"
","") %>

<% =DBView(" >

<% =com%> <% =(DBView("Name"))%>

<% =fu2%>
What is in <% =DBView( Box">What is in the <% =DBView("Name")%> Box?
<% =(DBView("inbox"))%>
 

 

<% %>
 
Vote for Notice for <% =DBView( At <%= DBView("Company")%>"> Support for <% =DBView( By <%= DBView("Company")%> ">
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]

 

Design By: M.A.Shamooelian

 

 

 

<% end if %><% If Err.Number <> 0 Then SESSION("ErrorMessage") = ErrorFormatter(Err.Description,Err.Number,Err.Source,"dtail.asp_" & item ) Response.Redirect "index14.asp" Else SESSION("ErrorMessage") = Null End If %>