Home | Advertising Info130 USERS CURRENTLY ONLINE   
   Site Search Contact Us Friday, October 31, 2014  
 
 


 
ASPProtect
User Management Application with web based screens that allow you to manage users.
www.ASPProtect.com
 
ASPBanner
Banner Rotation system. Advertisers can monitor online statistical reports via their web browsers.
www.ASPBanner.com
 
ASP Photo Gallery
Upload an unlimited amount of albums. Set up categories.Image resizing thumbnail creation.
www.ASPPhotoGallery.com
 
ASPClassifieds
Classifieds system. Set up categories. Users can register themselves. Supports picture uploads.
www.ASPClassifieds.com



DISCUSSION ARCHIVES
 
Try a free httpZip trial now and compress for less!


We didn't realize
the site was so popular.

Other Stuff
 

 
 
vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program CJWSoft ASPProtect ASPBanner ASPClassifieds



(Advanced)  (Components)  (Database)  (General)  (Vbscript)




ASPProtect

 
Subject: Array session problem
From: kuanhoong
Date: 8/3/2000 10:06:13 AM
IP: 161.142.78.83



 

ASP code page 1
===============
<%

Dim prodid, quantity, arrCart, edagangItem
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
arrCart=Session("bakul")
edagangItem = Session("cartItem")

If edagangItem = "" Then
Response.Redirect "http://127.0.0.1/edagang/error.asp?msg=" &
Server.URLEncode ("Sila membenarkan cookie pada pelayar anda untuk berurusan
e-dagang.")
End If

If prodid <> "" Then
If edagangItem < maxCartItems Then
edagangItem = edagangItem + 1
End If
Session("cartItem") = edagangItem
Dim rsItem
Set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "products", dbc, adOpenForwardOnly,adLockReadOnly,adCmdTable
rsItem.Filter = "catalogID = " & prodid
If Not rsItem.EOF Then
arrCart(cProductid,edagangItem) = rsItem("catID")
arrCart(cProductCode,edagangItem) = rsItem("kod")
arrCart(cProductname,edagangItem) = rsItem("name")
arrCart(cQuantity,edagangItem) = CInt(quantity)
arrCart(cUnitPrice,edagangItem) = rsItem("price")
Session("bakul") = arrCart
rsItem.Close
dbc.Close
End If
Else
Dim strAction
strAction = UCase(Left(Request.Form("action"),5))
Select Case strAction
case "SAMBU"
response.redirect "http://127.0.0.1/edagang/edagang.asp"
Case "HAPUS"
response.redirect "http://127.0.0.1/edagang/hapus.asp"
Case "SIAP "
Response.Redirect "http://127.0.0.


 

   Active Server Pages Rule The World
Contact Us  
All artwork, design & content contained in this site are Copyright 1998 - 2014 PowerASP.com and Christopher J. Williams
Banner ads ,other site logos, etc are copyright of their respective companies.
STATS Unless otherwise noted - All Rights Reserved.

vbscript active server pages ASP vbscript SQL database informix oracle SQL Server Perl CGI Delphi PHP source code code sample samples program CJWSoft ASPProtect ASPBanner ASPClassifieds www.aspclassifieds.com, www.powerasp.com,www.cjwsoft.com,www.aspphotogallery.com,www.codewanker.com,www.aspprotect.com,www.aspbanner.com