get_quotes.inc

能实现用户注册

<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
'copy past shopping cart quote for this user_id
'into temp table
sSQL="INSERT INTO tbl_ShoppingCartTemp ("
sSQL=sSQL & " intSessionID"
sSQL=sSQL & ",oldSessionID"
sSQL=sSQL & ",s_Item_No"
sSQL=sSQL & ",intQuantity"
sSQL=sSQL & ",Price"
sSQL=sSQL & ",d_Date"
sSQL=sSQL & ",CustomerID"
sSQL=sSQL & ",s_IPaddress"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",b_Quote)"
sSQL=sSQL & "SELECT"
sSQL=sSQL & " " & session.sessionID
sSQL=sSQL & ",intSessionID"
sSQL=sSQL & ",s_Item_No"
sSQL=sSQL & ",intQuantity"
sSQL=sSQL & ",Price"
sSQL=sSQL & ",#" & Date & "#"
sSQL=sSQL & ",CustomerID"
sSQL=sSQL & ",s_IPaddress"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",b_Quote"
sSQL=sSQL & " FROM tbl_ShoppingCart"
sSQL=sSQL & " WHERE (UserID=" & session("UserID")
sSQL=sSQL & " AND b_Quote=true)"
set RS=conn.execute(sSQL)
'now copy these same rows from temp table back into shopping cart
'so we now have these rows under current session ID
'but we have saved old session ID in oldSessionID field
'in order to keep link to tbl_Inventory_System_Components_Session
sSQL="INSERT INTO tbl_ShoppingCart ("
sSQL=sSQL & " intSessionID"
sSQL=sSQL & ",oldSessionID"
sSQL=sSQL & ",s_Item_No"
sSQL=sSQL & ",intQuantity"
sSQL=sSQL & ",Price"
sSQL=sSQL & ",d_Date"
sSQL=sSQL & ",CustomerID"
sSQL=sSQL & ",s_IPaddress"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",b_Quote"
sSQL=sSQL & ") SELECT"
sSQL=sSQL & " " & session.sessionID
sSQL=sSQL & ",oldSessionID"
sSQL=sSQL & ",s_Item_No"
sSQL=sSQL & ",intQuantity"
sSQL=sSQL & ",Price"
sSQL=sSQL & ",d_Date"
sSQL=sSQL & ",CustomerID"
sSQL=sSQL & ",s_IPaddress"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",false"
sSQL=sSQL & " FROM tbl_ShoppingCartTemp"
sSQL=sSQL & " WHERE (UserID=" & session("UserID")
sSQL=sSQL & ")"
set RS=conn.execute(sSQL)
		
'now delete temp data in tbl_ShoppingCartTemp
sSQL= "DELETE"
sSQL=sSQL & " FROM tbl_ShoppingCartTemp"
sSQL=sSQL & " WHERE (UserID=" & session("UserID") & ")"
set RS=conn.execute(sSQL)

'copy past system quote for this user_id
'into temp table
sSQL="INSERT INTO tbl_Inventory_System_Components_SessionTemp ("
sSQL=sSQL & "oldSessionID"
sSQL=sSQL & ",s_System_Item_No"
sSQL=sSQL & ",s_Component_Item_No"
sSQL=sSQL & ",dDate"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",b_Quote"
sSQL=sSQL & ") SELECT"
sSQL=sSQL & " intSessionID"
sSQL=sSQL & ",s_System_Item_No"
sSQL=sSQL & ",s_Component_Item_No"
sSQL=sSQL & ",#" & Date & "#"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",b_Quote"
sSQL=sSQL & " FROM tbl_Inventory_System_Components_Session"
sSQL=sSQL & " WHERE (UserID=" & session("UserID")
sSQL=sSQL & " AND b_Quote=true)"
set RS=conn.execute(sSQL)

'now copy these same rows from temp table back into tbl_Inventory_System...
'so we now have these rows under current session ID
sSQL="INSERT INTO tbl_Inventory_System_Components_Session ("
sSQL=sSQL & "oldSessionID"
sSQL=sSQL & ",s_System_Item_No"
sSQL=sSQL & ",s_Component_Item_No"
sSQL=sSQL & ",dDate"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",b_Quote"
sSQL=sSQL & ") SELECT"
sSQL=sSQL & " oldSessionID"
sSQL=sSQL & ",s_System_Item_No"
sSQL=sSQL & ",s_Component_Item_No"
sSQL=sSQL & ",dDate"
sSQL=sSQL & ",UserID"
sSQL=sSQL & ",false"
sSQL=sSQL & " FROM tbl_Inventory_System_Components_SessionTemp"
sSQL=sSQL & " WHERE (UserID=" & session("UserID")
sSQL=sSQL & ")"
set RS=conn.execute(sSQL)

'now delete temp data in tbl_Inventory_System_Components_SessionTemp
sSQL= "DELETE"
sSQL=sSQL & " FROM tbl_Inventory_System_Components_SessionTemp"
sSQL=sSQL & " WHERE (UserID=" & session("UserID") & ")"
set RS=conn.execute(sSQL)

set RS=nothing
%>