<%
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.
Alojamiento Web
Praktonhost - servicio profesional de alojamiento web, professional hosting services.
Credit Card Applications - Comparison of credit card offers with links to online credit card applications.
