<%
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.
Yarn Shops
The web's best deals on knitting and yarn supplies can be found here. Free knitting patterns, creative ideas, directory of local supply shops and more.
Lovemybed.com
At lovemybed. Com we offer a wide variety of high quality bedding and bed linens at a great value!
Businessforsalebuy.com
Powerful dynamic website in 8 languages with new features to sell and buy businesses worldwide.
Payday Loans
Get rid of all your financial worries, come to realpaydayloans. Com. We will provide you the cash you need via our payday loans & cash advance services.
Payday Loan
Lowest interest rate! , quick response! , online service! , no credit check! What else you need, apply now!
