<% If Request.Form("login").Count > 0 Then If cInt(Request.Form("hidContinue"))=1 Then Db.Execute("DELETE FROM TempShoppingCart WHERE IdSession = " & Session.SessionID) End If Login = Request.Form("login") Password = Request.Form("password") sQuery = "SELECT COUNT(*) Cant FROM TempShoppingCart WHERE IdSession = " & Session.SessionID Ds.Open sQuery, Db nCantShoppCart = cInt(Ds("Cant")) Ds.Close MyQuery = "SELECT U.IdUser, U.Login, U.Password, U.Firstname, U.Lastname, U.IdUserType, U.CorporateName FROM [User] U WHERE U.Login = '"& Login &"'" Ds.Open MyQuery, Db If Login <> "" then If Ds.EOF Then strError = "User not found." Else If Ds("Password") = Password Then If cLng(Ds("IdUserType")) <> cMayorista Or nCantShoppCart = 0 Then Session("IdUsuario") = cLng(Ds("IdUser")) Session("Firstname") = Ds("Firstname") Session("Lastname") = Ds("Lastname") Session("IdUserType") = cLng(Ds("IdUserType")) Session("Corporate") = Ds("CorporateName") 'Actualizo el IdUser del ShoppingCart Db.Execute("UPDATE TempShoppingCart SET IdUser=" & Session("IdUsuario") & " WHERE IdSession = " & Session.SessionID) Response.Redirect "ShoppingRoom_Catalog.asp" Else strError = "Your Shopping Cart Will Be Erased..." & "" End If Else strError = "The password is incorrect" End If End If End If Ds.Close End If %>

Related Pages

If you have a related site and would like to trade links, please copy the text below and place the link on your resources page. Once you have published our link please contact us with the following information:

1. Site URL
2. Site Title
3. A Brief Description
4. Reciprocal Link URL

We will review your site and upon approval, it will appear in our directory within 3 days.

   

 

A9.com Web Search    

AlltheWeb :: find it all

Igwanna Search

Search The World Auctions
Live Online Auctions - Free registration! No sale no fee option! First picture per every item free! Low fees! Your own store for free! Register for free now!

Shoula.com Search


http://www.ezilon.com - Ezilon - Europe and European Union Search Engine and Directory

Homerweb Search

Internet Search

Credit Card Applications -
Comparison of credit card offers with links to online credit card applications.
 
FyberSearch
HyeGuide

http://www.gamarod.com.ar


Submit Site - Website Promotion
Clusty
AbiLogic Web Directory

NetSearch

NetSearch Relevant Search Results
1.
Buzzle Web Portal
Search the Pedsters-Planet Directory    

Add Me.com

SubmissionMonster.com

Submit your web site for free to this directory!

Tu punto de encuentro

Tu punto de encuentro

 VXbox.com Search Engine and Web Directory

Blog-Search.com



Rent Cellular Phone in Mexico and all States
Rent phone Mexico, services in Mexico, Rent cellular phone satellital in mexico. Phone Rental Mexico brings to our clients a world of global wireless solutions.Rent phone Mexico.

Here at Rent Cellular Mexico , we provide our customers with GSM and satellite phone rentals for international travel. Satellite phone rentals are best utilized in underdeveloped areas. 

Bedding
Antiques
Education/Development
Clothing & Appare
Gift
Entertainment
Home Imporvements
Home Furnishings
Internet/Websites/ Graphic Design
Interior Designers
Real Estate
Link Directories
Travel/Vacation
Technology
Pharmacy
Pets
Society
 Others
Shopping
Business
Telecommunications
Computers
links partners
2006 2-3-4- 5- 6- 7- 8- 9- 10- 11- 12