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

   


Towels -
Purchase the Lightest, most versatile, multipurpose,
biodegradable, and superabsorbent towels - that Should be the part of your hiking, backpacking, camping and other outdoor activities.
Realty in Edina Minnesota
Edina Minnesota prime real estate. With our online
listings, you can view choice real estate in Edina Minnesota. Use our
MLS quick search and make your Edina Minnesota dream home a reality.


2006 2-3-4- 5- 6- 7- 8- 9- 10- 11- 12