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

   

 

Doberman Pinscher Information Doberman Puppies - Doberman Pincher
Get your free 5 part doberman newsletter today

Information On Pug Rescue For Pug Dog And Pug Puppies - Pugs
Get your 5 part pug newsletter now before its too late

Teacup Chihuahua Rescue Chihuahua Puppies For Sale - Chihuahuas
Get your free 5 part chihuahua newsletter before its too late

Cocker Spaniel Puppies, Cocker Spaniel Rescue - Cocker Spaniels
Get your free 5 part cocker spaniel report now


Allergicpet.com
Allergicpet. Com features free articles, links, and all-natural products that help keep your allergic pet healthy! Great holistic information for non-allergic pets too.

:::::::::::::::::::::::::::::::::::::::::

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