% Option Explicit %> <% '****************************** 'Custom Function '****************************** Sub CreateMemberRecord Dim rsTmp sql = "select * from WH_M_MEMBER" & _ " where B2B_MEMBER_ID = " & PrepNum(Session("B2B_MEMBER_ID")) Set rsTmp = con.Execute(sql) If rsTmp.BOF And rsTmp.EOF Then sql = "insert into WH_M_MEMBER" & _ " (B2B_MEMBER_ID)" & _ " values" & _ " (" & _ PrepNum(Session("B2B_MEMBER_ID")) & _ " )" con.Execute(sql) End If Set rsTmp = Nothing End Sub '****************************** Function GetBestSeller sql = "select top 6 P.*, B.BRAND_NAME, PI.T_IMG_ACTUAL_FILE" & _ " from WH_M_PROD P" & _ " left join WH_L_BRAND B on P.BRAND_CODE = B.BRAND_CODE" & _ " left join" & _ " (" & _ " select * from WH_M_PROD_IMAGE" & _ " where IS_PRIMARY = 'Y'" & _ " ) as PI on P.PROD_ID = PI.PROD_ID" & _ " inner join" & _ " (" & _ " select distinct PROD_ID from WH_M_PROD_ITEM" & _ " where IS_DISPLAY = 'Y'" & _ " ) as PIT on P.PROD_ID = PIT.PROD_ID" & _ " where P.IS_BEST_SELLER = 'Y'" & _ " order by NewID()" Set GetBestSeller = con.Execute(sql) End Function '****************************** Function GetNewRelease sql = "select top 6 P.*, B.BRAND_NAME, PI.T_IMG_ACTUAL_FILE" & _ " from WH_M_PROD P" & _ " left join WH_L_BRAND B on P.BRAND_CODE = B.BRAND_CODE" & _ " left join" & _ " (" & _ " select * from WH_M_PROD_IMAGE" & _ " where IS_PRIMARY = 'Y'" & _ " ) as PI on P.PROD_ID = PI.PROD_ID" & _ " inner join" & _ " (" & _ " select distinct PROD_ID from WH_M_PROD_ITEM" & _ " where IS_DISPLAY = 'Y'" & _ " ) as PIT on P.PROD_ID = PIT.PROD_ID" & _ " where P.IS_NEW_RELEASE = 'Y'" & _ " order by NewID()" Set GetNewRelease = con.Execute(sql) End Function '****************************** Function GetProductColor(nProdID) sql = "select distinct C1.COLOR_NAME as COLOR_NAME_1, C2.COLOR_NAME as COLOR_NAME_2," & _ " C3.COLOR_NAME as COLOR_NAME_3, C4.COLOR_NAME as COLOR_NAME_4, C5.COLOR_NAME as COLOR_NAME_5" & _ " from WH_M_PROD_ITEM PI" & _ " left join WH_L_COLOR C1 on PI.COLOR_CODE_1 = C1.COLOR_CODE" & _ " left join WH_L_COLOR C2 on PI.COLOR_CODE_2 = C2.COLOR_CODE" & _ " left join WH_L_COLOR C3 on PI.COLOR_CODE_3 = C3.COLOR_CODE" & _ " left join WH_L_COLOR C4 on PI.COLOR_CODE_4 = C4.COLOR_CODE" & _ " left join WH_L_COLOR C5 on PI.COLOR_CODE_5 = C5.COLOR_CODE" & _ " where PI.IS_DISPLAY = 'Y'" & _ " and PI.PROD_ID = " & PrepNum(nProdID) & _ " order by C1.COLOR_NAME, C2.COLOR_NAME, C3.COLOR_NAME, C4.COLOR_NAME, C5.COLOR_NAME" Set GetProductColor = con.Execute(sql) End Function '****************************** Function GetProductFrameSize(nProdID) sql = "select distinct F.FRAME_WIDTH, F.FRAME_HEIGHT, U.UOM_ABBR, U.UOM_NAME" & _ " from WH_M_PROD_ITEM PI" & _ " left join WH_L_FRAMESIZE F on PI.FRAMESIZE_ID = F.FRAMESIZE_ID" & _ " left join WH_L_UOM U on F.UOM_CODE = U.UOM_CODE" & _ " where PI.IS_DISPLAY = 'Y'" & _ " and PI.PROD_ID = " & PrepNum(nProdID) & _ " order by F.FRAME_WIDTH, F.FRAME_HEIGHT, U.UOM_NAME" Set GetProductFrameSize = con.Execute(sql) End Function '****************************** Function GetProductMat(nProdID) sql = "select distinct M.MATERIAL_NAME" & _ " from WH_M_PROD_ITEM PI" & _ " left join WH_L_MATERIAL M on PI.MATERIAL_CODE = M.MATERIAL_CODE" & _ " where PI.IS_DISPLAY = 'Y'" & _ " and PI.PROD_ID = " & PrepNum(nProdID) & _ " order by M.MATERIAL_NAME" Set GetProductMat = con.Execute(sql) End Function '****************************** Function GetProductPack(nProdID) sql = "select distinct PI.UNIT_PER_PACK" & _ " from WH_M_PROD_ITEM PI" & _ " where PI.IS_DISPLAY = 'Y'" & _ " and PI.PROD_ID = " & PrepNum(nProdID) Set GetProductPack = con.Execute(sql) End Function '****************************** Function GetProductPricePack(nProdID) sql = "select Min(PI.PRICE_PER_PACK) as LOWEST_PRICE, Max(PI.PRICE_PER_PACK) as HIGHEST_PRICE" & _ " from WH_M_PROD_ITEM PI" & _ " where PI.IS_DISPLAY = 'Y'" & _ " and PI.PROD_ID = " & PrepNum(nProdID) & _ " group by PI.PROD_ID" Set GetProductPricePack = con.Execute(sql) End Function '****************************** Function GetProductPriceUnit(nProdID) sql = "select Min(PI.PRICE_PER_PACK / UNIT_PER_PACK) as LOWEST_PRICE, Max(PI.PRICE_PER_PACK / UNIT_PER_PACK) as HIGHEST_PRICE" & _ " from WH_M_PROD_ITEM PI" & _ " where PI.IS_DISPLAY = 'Y'" & _ " and PI.PROD_ID = " & PrepNum(nProdID) & _ " group by PI.PROD_ID" Set GetProductPriceUnit = con.Execute(sql) End Function '****************************** Function GetProductStock(nProdID) sql = "select Sum(Floor(INVENTORY_QTY / UNIT_PER_PACK)) as AVL_PACK_QTY" & _ " from WH_M_PROD_ITEM PI" & _ " where PI.IS_DISPLAY = 'Y'" & _ " and PI.PROD_ID = " & PrepNum(nProdID) Set GetProductStock = con.Execute(sql) End Function '****************************** 'Sub SaveMailingList ' Dim rs ' sql = "select * from WH_M_MAILING_LIST" & _ ' " where EMAIL = " & PrepText(sEmail) & _ ' " and IS_ACTIVE = 'Y'" ' Set rs = con.Execute(sql) ' If rs.BOF And rs.EOF Then ' sql = "insert into WH_M_MAILING_LIST" & _ ' " (EMAIL, REGISTERED_TIME, IS_ACTIVE," & _ ' " CREATED_TIME, CREATED_IP, CREATED_HOST," & _ ' " UPDATED_TIME, UPDATED_IP, UPDATED_HOST)" & _ ' " values (" & _ ' PrepText(sEmail) & ", " & _ ' " GetDate()," & _ ' " 'Y'," & _ ' " GetDate()," & _ ' PrepText(Request.ServerVariables("REMOTE_ADDR")) & "," & _ ' PrepText(Request.ServerVariables("REMOTE_HOST")) & "," & _ ' " GetDate()," & _ ' PrepText(Request.ServerVariables("REMOTE_ADDR")) & "," & _ ' PrepText(Request.ServerVariables("REMOTE_HOST")) & ")" ' con.Execute(sql) ' Else ' sql = "update WH_M_MAILING_LIST set" & _ ' " IS_ACTIVE = 'Y'" &_ ' " UPDATED_TIME = GetDate()," & _ ' " UPDATED_IP = " & PrepText(Request.ServerVariables("REMOTE_ADDR")) & "," & _ ' " UPDATED_HOST = " & PrepText(Request.ServerVariables("REMOTE_HOST")) & _ ' " where MAILING_LIST_ID = " & PrepNum(rs("MAILING_LIST_ID")) ' con.Execute(sql) ' End If ' Set rs = Nothing 'End Sub '****************************** Sub SaveMailingList Dim rs sql = "select * from M_SUBS" & _ " where IS_ACTIVE = 'Y'" & _ " and EMAIL = " & PrepText(sEmail) Set rs = con.Execute(sql) If rs.BOF And rs.EOF Then sql = "insert into M_SUBS" & _ " (EMAIL, SUBS_TYPE, REGISTERED_TIME, REGISTER_TYPE, IS_ACTIVE," & _ " CREATED_TIME, CREATED_IP, CREATED_HOST," & _ " UPDATED_TIME, UPDATED_IP, UPDATED_HOST)" & _ " values (" & _ PrepText(sEmail) & ", " & _ " 'C'," & _ " GetDate()," & _ " 'U'," & _ " 'Y'," & _ " GetDate()," & _ PrepText(Request.ServerVariables("REMOTE_ADDR")) & "," & _ PrepText(Request.ServerVariables("REMOTE_HOST")) & "," & _ " GetDate()," & _ PrepText(Request.ServerVariables("REMOTE_ADDR")) & "," & _ PrepText(Request.ServerVariables("REMOTE_HOST")) & ")" con.Execute(sql) Else sql = "update M_SUBS set" & _ " IS_ACTIVE = 'Y'," &_ " UPDATED_TIME = GetDate()," & _ " UPDATED_IP = " & PrepText(Request.ServerVariables("REMOTE_ADDR")) & "," & _ " UPDATED_HOST = " & PrepText(Request.ServerVariables("REMOTE_HOST")) & _ " where EMAIL = " & PrepText(sEmail) con.Execute(sql) End If Set rs = Nothing End Sub '****************************** Function ValidLogin(sLoginEmail, sPasswd) sql = "select BM.*, WM.S_FIRST_NAME, WM.S_LAST_NAME, WM.S_COUNTRY" & _ " from M_B2B_MEMBER BM" & _ " left join WH_M_MEMBER WM on BM.B2B_MEMBER_ID = WM.B2B_MEMBER_ID" & _ " where BM.LOGIN_EMAIL = " & PrepText(sLoginEmail) & _ " and BM.PASSWD = " & PrepText(sPasswd) & _ " and BM.MEMBER_STATUS = 'A'" Set ValidLogin = con.Execute(sql) End Function '****************************** 'Main Process '****************************** %> <% Response.Expires = 0 Response.Buffer = True Dim sql, rs, rsTmp Dim sAction Dim nRecNo Dim sMesgMode Dim i, j Dim sPrefix Dim sLoginEmail, sPasswd, sIsRemember Dim sEmail 'if POST method If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'initialize variables sAction = Request.Form("sAction") Select Case sAction Case "login" sLoginEmail = Trim(Request.Form("sLoginEmail")) sPasswd = Trim(Request.Form("sPasswd")) sIsRemember = Trim(Request.Form("sIsRemember")) Set rs = ValidLogin(sLoginEmail, sPasswd) If Not (rs.BOF And rs.EOF) Then 'set session variables Session("B2B_MEMBER_ID") = CStr(rs("B2B_MEMBER_ID")) Session("B2B_LOGIN_EMAIL") = CStr(rs("LOGIN_EMAIL")) If IsNull(rs("S_FIRST_NAME")) Then Session("B2B_COMP_FNAME") = CStr(rs("COMP_CONT_FNAME")) Else Session("B2B_COMP_FNAME") = CStr(rs("S_FIRST_NAME")) End If If Not IsNull(rs("S_COUNTRY")) Then If CStr(rs("S_COUNTRY")) = "THAILAND" Then Session("WH_SHIP_IN_THAILAND") = "Y" Else Session("WH_FEDEX_COUNTRY") = CStr(rs("S_COUNTRY")) End If End If Call CreateMemberRecord 'set cookie If sIsRemember = "Y" Then Response.Cookies("MEMBER")("B2B_MEMBER_ID") = Session("B2B_MEMBER_ID") Response.Cookies("MEMBER")("B2B_LOGIN_EMAIL") = Session("B2B_LOGIN_EMAIL") Response.Cookies("MEMBER")("B2B_COMP_FNAME") = Session("B2B_COMP_FNAME") Response.Cookies("MEMBER").Expires = Date + 365 End If Response.Redirect "product.asp" Response.End Else sMesgMode = "201" End If Case "subscribe" sEmail = Trim(Request.Form("sEmail")) Call SaveMailingList Response.Redirect "index.asp?sMesgMode=502" Response.End End Select End If '****************************** 'HTML Template '****************************** %>
<% If Session("B2B_MEMBER_ID") = "" Then %> Please Login or Sign up <% Else %> Welcome, <%= Session("B2B_COMP_FNAME") %> | Logout <% End If %> |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Copyright 2007 woodenframe.com All Right Reserved |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||