<% if session("member_name") <> "" then %>
Welcome, <% = session("member_name") %>
<% end if %>
<%
if len(session("company_details")) > 220 then
Response.Write mid(session("company_details"),1,219)
else
Response.Write session("company_details")
end if
%>
Read More
<% if session("member_email") <> "" then %>
EDIT PROFILE
|
ORDER HISTORY
|
<% else %>
<% if session("member_register_function") = "on" then %>
REGISTER
|
<% end if %>
MEMBER LOGIN
|
<% if session("display_cart") = "on" then %>
VIEW CART
|
<% end if %>
<% end if %>
<% if session("display_partner") = "on" then %>
OUR PARTNER
|
<% end if %>
<% if session("display_news") = "on" then %>
PRESS RELEASE
|
<% end if %>
<% if session("display_job") = "on" then %>
CAREER OPPORTUNITIES
|
<% end if %>
<% if session("display_download") = "on" then %>
DOWNLOAD
|
<% end if %>
<% if session("display_forum") = "on" then %>
FORUM
|
<% end if %>
<% if session("member_email") <> "" then %>
<% if session("display_cart") = "on" then %>
VIEW CART
|
<% end if %>
SIGN OUT
|
<% end if %>
<%
end sub
'***********************************************
' page header
'***********************************************
sub PageHeader(storename)
%>
<% = session("company_name") %>
<% if session("display_language") = "chinese-TW" then %>
<% elseif session("display_language") = "chinese-CN" then %>
<% end if %>
')" language="Javascript1.2">
<% if session("member_name") <> "" then %>
Welcome, <% = session("member_name") %>
<% end if %>
<%
if len(session("company_details")) > 220 then
Response.Write mid(session("company_details"),1,219)
else
Response.Write session("company_details")
end if
%>
Read More
<% if session("member_email") <> "" then %>
EDIT PROFILE
|
ORDER HISTORY
|
<% else %>
<% if session("member_register_function") = "on" then %>
REGISTER
|
<% end if %>
MEMBER LOGIN
|
<% if session("display_cart") = "on" then %>
VIEW CART
|
<% end if %>
<% end if %>
<% if session("display_partner") = "on" then %>
OUR PARTNER
|
<% end if %>
<% if session("display_news") = "on" then %>
PRESS RELEASE
|
<% end if %>
<% if session("display_job") = "on" then %>
CAREER OPPORTUNITIES
|
<% end if %>
<% if session("display_download") = "on" then %>
DOWNLOAD
|
<% end if %>
<% if session("display_forum") = "on" then %>
FORUM
|
<% end if %>
<% if session("member_email") <> "" then %>
<% if session("display_cart") = "on" then %>
VIEW CART
|
<% end if %>
SIGN OUT
|
<% end if %>
<%
end sub
'***********************************************
' introduce page footer
'***********************************************
sub IntroducePageFooter(storename)
%>
">
<% call PartnerColumn() %>
">
<% call VisitorCounter(storename) %>
<% if len(session("copyright_notes")) > 0 then %>
<% = session("copyright_notes") %>
<% else %>
Copyright by <% = session("company_name") %>
<% end if %>
<%
end sub
'***********************************************
' page footer
'***********************************************
sub PageFooter(storename)
%>
">
<% call PartnerColumn() %>
">
<% call VisitorCounter(storename) %>
<% if len(session("copyright_notes")) > 0 then %>
<% = session("copyright_notes") %>
<% else %>
Copyright by <% = session("company_name") %>
<% end if %>
<%
end sub
'***********************************************
' visitor counter
'***********************************************
sub VisitorCounter(storename)
if session("display_visitor_counter") = "on" then
dim objfs
dim objfile
dim myCounter
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/counter.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/counter.txt"),1,-1,0)
myCounter = objfile.ReadLine
objfile.close
end if
if session("ip") <> Request.ServerVariables("remote_addr") then
if myCounter >= 0 then
'myCounter = cdbl(myCounter) + mid(second(now),1,1)
myCounter = cdbl(myCounter) + 1
else
myCounter = 1
end if
if objfs.FileExists(server.MapPath("../../member/" & storename & "/counter.txt")) = true then
objfs.DeleteFile server.MapPath("../../member/" & storename & "/counter.txt"),0
end if
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/counter.txt"),8,-1,0)
objfile.WriteLine myCounter
objfile.close
set objfile = nothing
session("ip") = Request.ServerVariables("remote_addr")
end if
Response.Write "Total Visitors : " & myCounter
set objfs = nothing
end if
end sub
'***********************************************
' search column
'***********************************************
sub SearchColumn(storename)
if session("display_search") = "on" then
%>
<%
end if
end sub
'***********************************************
' show search result
'***********************************************
sub SearchInfo(storename, keyword)
dim search_rs
keyword = trim(Request.Form("keyword"))
if keyword = "" then keyword = "no keyword provide"
ssql = "select * from tbl_product_details where product_model like '%" & keyword & "%' or product_details like '%" & keyword & "%' or product_category like '%" & keyword & "%' or product_sub_category like '%" & keyword & "%' and product_status = 'active' order by product_model"
set search_rs = server.CreateObject("adodb.recordset")
search_rs.Open ssql,conn,3,3
%>
SEARCH FOR
<% = ucase(keyword) %>
TOTAL <% = search_rs.RecordCount %> RESULT FOUND
<%
if not search_rs.EOF then
i = 1
do until search_rs.eof
%>
<%
search_rs.Close
set search_rs = nothing
end sub
'***********************************************
' product families side menu
'***********************************************
sub ProductFamiliesSideMenu(storename, category_id)
if session("display_product") = "on" then
dim category_rs, subfamilies_rs
ssql = "select * from tbl_product_categories order by category_name"
set category_rs = server.CreateObject("adodb.recordset")
category_rs.Open ssql,conn
dim objfs
dim objfile
dim myCatStatus
set objfs = server.CreateObject("scripting.FileSystemObject")
%>
<% call SearchColumn(storename) %>
PRODUCT FAMILIES
<% do until category_rs.eof
ssql = "select * from tbl_product_sub_categories where product_category_id = '" & category_rs("product_category_id") & "' order by product_sub_category"
set subfamilies_rs = server.CreateObject("adodb.recordset")
subfamilies_rs.Open ssql,conn
%>
<% do until subfamilies_rs.eof
if objfs.FileExists(server.MapPath("../../member/" & storename & "/cat" & subfamilies_rs("product_sub_category_id") & ".txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/cat" & subfamilies_rs("product_sub_category_id") & ".txt"),1,-1,0)
myCatStatus = objfile.ReadLine
objfile.close
set objfile = nothing
else
myCatStatus = ""
end if
%>
<% if myCatStatus = "on" then %>
<% else %>
<% end if %>
» <% = subfamilies_rs("product_sub_category") %>
<%
subfamilies_rs.MoveNext
loop
subfamilies_rs.Close
set subfamilies_rs = nothing
%>
<%
category_rs.MoveNext
loop
category_rs.Close
set category_rs = nothing
%>
<%
set objfs = nothing
end if
end sub
'***********************************************
' product families menu
'***********************************************
sub ProductFamiliesMenu(storename)
DisplayCategoriesAtMainPage(storename)
if session("myCategoriesSetting") = "on" then
dim category_rs, subfamilies_rs
dim rCount
ssql = "select * from tbl_product_categories order by category_name"
set category_rs = server.CreateObject("adodb.recordset")
category_rs.Open ssql,conn
i = 0
dim objfs
dim objfile
dim myCatStatus
set objfs = server.CreateObject("scripting.FileSystemObject")
%>
<% while not category_rs.EOF
ssql = "select * from tbl_product_sub_categories where product_category_id = '" & category_rs("product_category_id") & "' order by product_sub_category"
set subfamilies_rs = server.CreateObject("adodb.recordset")
subfamilies_rs.Open ssql,conn
if i = 0 then
%>
<% end if
if i = 4 then
i = 0
%>
<% end if %>
<% = ucase(category_rs("category_name")) %>
<%
for rCount = 1 to 5
if not subfamilies_rs.eof then
if objfs.FileExists(server.MapPath("../../member/" & storename & "/cat" & subfamilies_rs("product_sub_category_id") & ".txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/cat" & subfamilies_rs("product_sub_category_id") & ".txt"),1,-1,0)
myCatStatus = objfile.ReadLine
objfile.close
else
myCatStatus = ""
end if
%>
<% if myCatStatus = "on" then %>
<% else %>
<% end if %>
» <% = subfamilies_rs("product_sub_category") %>
<%
subfamilies_rs.MoveNext
else
exit for
end if
next
if not subfamilies_rs.eof then
%>
» More...
<%
end if
subfamilies_rs.Close
set subfamilies_rs = nothing
%>
<%
i = i + 1
category_rs.MoveNext
wend
category_rs.close
set category_rs = nothing
%>
<%
set objfs = nothing
end if
end sub
'***********************************************
' show latest item
'***********************************************
sub LatestItem(storename, page_number)
if session("display_product") = "on" then
dim prefixImgHeight
dim prefixImgWidth
dim intPageNo, TotalPage
dim item_rs
const intDB = 1
const adOpenStatic = 3
const adLockOptimistic = 3
const adUseClient = 3
const cntPageSize = 9 'record per page
'--- Process ADO Connection ---
conn.CursorLocation = adUseClient
'--- Process Recordset ---
ssql = "select * from tbl_product_details where show_as_latest_product = 'on' order by product_id desc"
set item_rs = server.createobject("adodb.recordset")
item_rs.Open ssql, conn, adOpenStatic, adLockOptimistic
item_rs.PageSize = cntPageSize
TotalPage = item_rs.PageCount
'--- read the value of the page reqested ---
intPageNo = page_number
if intPageNo = empty then
intPageNo = 1
else
intPageNo = cint(intPageNo)
'if over total page
if intPageNo > TotalPage then intPageNo = TotalPage
end if
if not item_rs.EOF then
item_rs.AbsolutePage = intPageNo
end if
%>
<%
end if
i = i + 1
item_rs.MoveNext
wend
item_rs.close
set item_rs = nothing
%>
PAGE <% = formatnumber(intPageNo,0) %>
OF <% = formatnumber(TotalPage,0) %>
<% if intPageNo > 1 then %>
FIRST PREVIOUS
<% end if %>
<% if intPageNo < TotalPage then %>
NEXT LAST
<% end if %>
<%
end if
end sub
'***********************************************
' about us
'***********************************************
sub AboutUs(storename)
dim company_rs
dim company_details
ssql = "select * from tbl_company"
set company_rs = server.CreateObject("adodb.recordset")
company_rs.Open ssql,conn,3,3
if len(company_rs("company_details")) > 0 then
company_details = replace(company_rs("company_details"),"vbcrlf"," ",1,-1,1)
else
company_details = ""
end if
%>
<% = ucase(company_rs("company_name")) %>
<% if company_rs("company_image") <> "" then %>
<% end if %>
Who We Are
<% = company_details %>
<% if company_rs("company_logo") <> "" then %>
<% end if %>
<% = company_rs("company_name") %>
<% if company_rs("company_register_number") <> "" then %>
(<% = company_rs("company_register_number") %>)
<% end if %>
<% if company_rs("company_address") <> "" then %>
<% = replace(company_rs("company_address"),vbcrlf," ",1,-1,1) %>
<% end if %>
<% if company_rs("company_phone") <> "" then %>
TEL : <% = company_rs("company_phone") %>
<% end if %>
<% if company_rs("company_fax") <> "" then %>
FAX : <% = company_rs("company_fax") %>
<% end if %>
<% if company_rs("company_email") <> "" then %>
EMAIL US AT : <% = company_rs("company_email") %>
<% end if %>
<% call OutletInfo(storename) %>
<%
company_rs.Close
set company_rs = nothing
end sub
'***********************************************
' feedback form
'***********************************************
sub FeedbackForm(storename)
%>
FEEDBACK
<%
end sub
'***********************************************
' service families
'***********************************************
sub ServiceFamilies()
dim service_rs
i = 0
ssql = "select * from tbl_service order by service_name"
set service_rs = server.CreateObject("adodb.recordset")
service_rs.Open ssql,conn,3,3
%>
<%
i = i + 1
service_rs.MoveNext
wend
service_rs.close
set service_rs = nothing
%>
<%
end sub
'***********************************************
' press release
'***********************************************
sub PressRelease(storename)
dim press_release_rs
i = 0
ssql = "select * from tbl_press_release order by press_release_auto_id desc"
set press_release_rs = server.CreateObject("adodb.recordset")
press_release_rs.Open ssql,conn,3,3
%>
PRESS RELEASE
<% if press_release_rs.EOF then %>
Sorry, This section is under maintenance.
Please come back later.
<% else %>
<% do until press_release_rs.EOF %>
<% if len(press_release_rs("press_release_image")) > 0 then %>
<% end if %>
<%
press_release_rs.MoveNext
loop
press_release_rs.Close
set press_release_rs = nothing
%>
<%
end if
end sub
'***********************************************
' press release side menu
'***********************************************
sub PressReleaseSideMenu(storename)
if session("display_news") = "on" then
dim press_release_side_menu_rs
i = 0
ssql = "select * from tbl_press_release order by press_release_auto_id desc"
set press_release_side_menu_rs = server.CreateObject("adodb.recordset")
press_release_side_menu_rs.Open ssql,conn,3,3
if not press_release_side_menu_rs.EOF then
%>
PRESS RELEASE
<%
for i = 0 to 2
if not press_release_side_menu_rs.EOF then
%>
<%
press_release_side_menu_rs.MoveNext
end if
next
press_release_side_menu_rs.Close
set press_release_side_menu_rs = nothing
%>
<%
end if
end if
end sub
'***********************************************
' career opportunities
'***********************************************
sub CareerOpportunities()
dim career_rs
i = 0
ssql = "select * from tbl_career order by job_id desc"
set career_rs = server.CreateObject("adodb.recordset")
career_rs.Open ssql,conn,3,3
%>
CAREER OPPORTUNITIES
<% if career_rs.EOF then %>
Sorry, This section is under maintenance.
Please come back later.
<%
i = i + 1
career_rs.MoveNext
wend
career_rs.close
set career_rs = nothing
%>
<%
end if
end sub
'***********************************************
' show all item in selected product families
'***********************************************
sub ItemLayout(storename, category_id, sub_category_id, page_number)
dim intPageNo, TotalPage
dim item_rs
const intDB = 1
const adOpenStatic = 3
const adLockOptimistic = 3
const adUseClient = 3
const cntPageSize = 10 'record per page
'--- Process ADO Connection ---
conn.CursorLocation = adUseClient
'--- Process Recordset ---
ssql = "select * from tbl_product_details where product_category_id = '" & category_id & "' and product_sub_category_id = '" & sub_category_id & "' and product_status = 'on'"
set item_rs = server.createobject("adodb.recordset")
item_rs.Open ssql, conn, adOpenStatic, adLockOptimistic
item_rs.PageSize = cntPageSize
TotalPage = item_rs.PageCount
'--- read the value of the page reqested ---
intPageNo = page_number
if intPageNo = empty then
intPageNo = 1
else
intPageNo = cint(intPageNo)
'if over total page
if intPageNo > TotalPage then intPageNo = TotalPage
end if
if not item_rs.EOF then
item_rs.AbsolutePage = intPageNo
end if
i = 0
%>
<% if not item_rs.EOF then %>
ITEMS IN <% = ucase(item_rs("product_category")) %> > <% = ucase(item_rs("product_sub_category")) %>
<% end if %>
<% while not item_rs.EOF
if i = 0 then
%>
<% end if
if i = 2 or i = 4 or i = 6 or i = 8 or i = 10 then
%>
<%
if len(item_rs("product_details")) > 250 then
response.Write mid(replace(item_rs("product_details")," ","",1,-1,1),1,250) & "..."
else
if len(item_rs("product_details")) > 0 then
response.Write replace(item_rs("product_details")," ","",1,-1,1) & "..."
end if
end if
%>
<%
end if
i = i + 1
item_rs.MoveNext
wend
item_rs.close
set item_rs = nothing
%>
PAGE <% = formatnumber(intPageNo,0) %>
OF <% = formatnumber(TotalPage,0) %> SHOW ALL
<% if intPageNo > 1 then %>
FIRST PREVIOUS
<% end if %>
<% if intPageNo < TotalPage then %>
NEXT LAST
<% end if %>
<%
end sub
'***********************************************
' show details for selected item
'***********************************************
sub ItemDetails(storename, category_id)
dim item_rs
dim product_population
ssql = "select * from tbl_product_details where product_id = '" & Request.QueryString("product_id") & "'"
set item_rs = server.CreateObject("adodb.recordset")
item_rs.Open ssql,conn,3,3
%>
<% = ucase(item_rs("product_model")) %>
<% if item_rs("product_member_price") <> "0" or item_rs("product_retail_price") <> "0" then %>
Product Code : <% = item_rs("product_code") %>
<% end if %>
<% if len(item_rs("product_images")) > 0 then %>
<% end if %>
<% if session("member_email") <> "" then
if session("member_level") = "RESELLER" then
if item_rs("product_member_price") <> "0" then
%>
Member Price : <% = session("company_currency_format")%> <% = item_rs("product_member_price") %>
<% end if %>
<% if item_rs("product_retail_price") <> "0" then %>
Retail Price : <% = session("company_currency_format")%> <% = item_rs("product_retail_price") %>
<% end if
else
if item_rs("product_retail_price") <> "0" then %>
Retail Price : <% = session("company_currency_format")%> <% = item_rs("product_retail_price") %>
<% end if
end if
else
if item_rs("product_retail_price") <> "0" then %>
Retail Price : <% = session("company_currency_format")%> <% = item_rs("product_retail_price") %>
<% end if
end if
%>
<% if session("display_cart") = "on" then
if item_rs("product_member_price") <> "0" and item_rs("product_retail_price") <> "0" then
%>
<% end if
end if
%>
<%
'update product population for selected item
product_population = item_rs("product_population") + 1
ssql = "update tbl_product set product_population = '" & product_population & "' where product_id = '" & item_rs("product_id") & "'"
conn.Execute ssql
item_rs.Close
set item_rs = nothing
end sub
'***********************************************
' member register form
'***********************************************
sub MemberRegisterForm(storename)
if session("member_register_function") = "on" then
%>
REGISTER AS NEW MEMBER
<%
end if
end sub
'***********************************************
' save member info
'***********************************************
sub SaveMemberInfo(storename, member_name, member_address, member_phone, member_email, member_password)
dim register_rs
member_name = trim(member_name)
member_address = trim(member_address)
member_phone = trim(member_phone)
member_email = trim(member_email)
member_password = trim(member_password)
'replace vbCrLf to
if len(member_address) > 0 then
member_address = replace(member_address, vbcrlf, " ", 1, -1, 1)
end if
ssql = "select * from tbl_member where member_email = '" & member_email & "'"
set register_rs = server.CreateObject("adodb.recordset")
register_rs.Open ssql,conn,3,3
'add new member data
if register_rs.EOF then
register_rs.AddNew
register_rs.Fields("member_name") = member_name
register_rs.Fields("member_address") = member_address
register_rs.Fields("member_phone") = member_phone
register_rs.Fields("member_email") = member_email
register_rs.Fields("member_password") = member_password
register_rs.Update
%>
<%
end if
register_rs.Close
set register_rs = nothing
end sub
'***********************************************
' member login form
'***********************************************
sub MemberLoginForm(storename, member_email, url)
%>
<%
end sub
'***********************************************
' member login verify
'***********************************************
sub MemberLoginVerify(storename, member_email, member_password, url)
dim verify_rs
ssql = "select * from tbl_member where member_email ='" & member_email & "'"
set verify_rs = server.CreateObject("adodb.Recordset")
verify_rs.Open ssql,conn,3,3
if verify_rs.EOF then
session("member_email") = ""
%>
MEMBER LOGIN
Sorry, but the <% = member_email %> could not be found in our system
<%
end if
end if
verify_rs.close
set verify_rs = nothing
end sub
'***********************************************
' member edit profile
'***********************************************
sub MemberEditProfile(storename, member_email)
dim member_rs
dim member_address
ssql = "select * from tbl_member where member_email = '" & member_email & "'"
set member_rs = server.CreateObject("adodb.recordset")
member_rs.Open ssql,conn,3,3
if len(trim(member_rs("member_address"))) > 0 then
member_address = replace(member_rs("member_address")," ",vbcrlf, 1, -1, 1)
end if
%>
EDIT PROFILE
<%
member_rs.Close
set member_rs = nothing
end sub
'***********************************************
' update member profile
'***********************************************
sub UpdateMemberInfo(storename, member_name, member_address, member_phone, member_email, member_password)
dim member_rs
'replace vbCrLf to
if len(member_address) > 0 then
member_address = replace(member_address, vbcrlf, " ", 1, -1, 1)
end if
ssql = "select * from tbl_member where member_email = '" & member_email & "'"
set member_rs = server.CreateObject("adodb.recordset")
member_rs.Open ssql,conn,3,3
member_rs.Fields("member_name") = member_name
member_rs.Fields("member_address") = member_address
member_rs.Fields("member_phone") = member_phone
member_rs.Fields("member_password") = member_password
member_rs.Update
member_rs.Close
set member_rs = nothing
session("member_name") = member_name
Response.Redirect "index.asp?storename=" & storename
end sub
'***********************************************
' order history
'***********************************************
sub OrderHistory(storename, member_email)
dim order_history_rs
ssql = "select * from tbl_order where member_email = '" & member_email & "' order by order_id desc"
set order_history_rs = server.createobject("adodb.recordset")
order_history_rs.Open ssql,conn,3,3
%>
<%
i = i + 1
order_history_rs.MoveNext
loop
order_history_rs.close
set order_history_rs = nothing
%>
<%
end sub
'***********************************************
' member view order details
'***********************************************
sub OrderDetails(storename, order_id)
dim order_review_rs
dim intPrice
dim ShippingCharges
ssql = "select * from tbl_order_review where system_order_id = '" & order_id & "'"
set order_review_rs = server.CreateObject("adodb.recordset")
order_review_rs.Open ssql,conn,3,3
intPrice = 0
i = 1
ShippingCharges = order_review_rs("shipping_charges")
%>
Order No :
<% = order_review_rs("order_id") %>
Date : <% = order_review_rs("order_date") %>
<%
order_review_rs.Close
set order_review_rs = nothing
end sub
'***********************************************
' partner column
'***********************************************
sub PartnerColumn()
if session("display_partner") = "on" then
dim partner_rs
ssql = "select * from tbl_partner order by partner_name"
set partner_rs = server.CreateObject("adodb.recordset")
partner_rs.Open ssql,conn,3,3
%>
<%
end if
end sub
'***********************************************
' show offline payment info
'***********************************************
sub OfflinePaymentInfo(total, order_id)
dim offline_payment_rs
ssql = "select * from tbl_order where system_order_id = '" & order_id & "'"
set offline_payment_rs = server.CreateObject("adodb.recordset")
offline_payment_rs.Open ssql,conn,3,3
%>
OFFLINE PAYMENT INSTRUCTION
<% = session("offline_payment_info") %>
TRANSACTION INFO
BANK NAME :
<% = session("bank_name") %>
BANK ACCOUNT NUMBER :
<% = session("bank_account_number") %>
ORDER NUMBER :
<% = offline_payment_rs("order_id") %>
TOTAL AMOUNT :
<% = session("company_currency_format") %> <% = total %>
<%
offline_payment_rs.Close
set offline_payment_rs = nothing
end sub
'***********************************************
' show online payment info
'***********************************************
sub OnlinePaymentInfo(storename, total, order_id)
dim online_payment_rs
dim default_total, new_total, new_order_id, sub_total, percent, grand_total
dim pay88_order_id
dim merchant_order_id
ssql = "select * from tbl_order where system_order_id = '" & order_id & "'"
set online_payment_rs = server.CreateObject("adodb.recordset")
online_payment_rs.Open ssql,conn,3,3
'Response.Write "total start : " & total & " "
default_total = total
'Response.Write "default_total : " & default_total & " "
new_total = CalculateExchangeRate(total)
'Response.Write "new total : " & new_total & " "
sub_total = new_total
'Response.Write "sub_total : " & sub_total & " "
percent = new_total
percent = CalculateSalesPercent(percent)
'Response.Write "percent : " & percent & " "
grand_total = cdbl(sub_total) + cdbl(percent)
'Response.Write "grand total : " & grand_total & " "
new_order_id = storename & "-" & order_id
pay88_order_id = order_id
merchant_order_id = storename
dim mbpercent
dim mbtotal
dim newmbtotal
dim mbgrandtotal
mbpercent = "2.5"
mbtotal = default_total
mbpercent = default_total
mbpercent = CalculateSalesPercent(mbpercent)
mbgrandtotal = cdbl(mbtotal) + cdbl(mbpercent)
dim my88total
my88total = default_total
%>
TRANSACTION INFO
<% call LoadPay88(storename) %>
<% if session("my88Status") = "on" then %>
FOR PAY VIA PAY88
TOTAL AMOUNT :
RM <% = my88total %>
<%
response.Write ""
%>
">
">
">
">
<% end if %>
<% call LoadPayPal(storename) %>
<% if session("paypalStatus") = "on" then %>
FOR PAY VIA PAYPAL
TOTAL AMOUNT :
USD <% = my88total %>
<% end if %>
<% call LoadMoneyBookers(storename) %>
<% if session("myMBStatus") = "on" then %>
FOR PAY VIA MONEYBOOKERS
TOTAL AMOUNT :
RM <% = mbtotal %>
% PLUS ON SALES :
2.5% (RM <% = mbpercent %>)
TOTAL AMOUNT BILL ON CARD :
RM <% = mbgrandtotal %>
<% end if %>
<% if session("online_payment_test_order_mode") = "on" then %>
<%
online_payment_rs.Close
set online_payment_rs = nothing
end sub
'***********************************************
' payment section
'***********************************************
sub PaymentSection(storename, payment_mode, total, order_id)
select case payment_mode
case "offline"
call OfflinePaymentInfo(total, order_id)
case "online"
call OnlinePaymentInfo(storename, total, order_id)
end select
end sub
'***********************************************
' calculate exchange rate
'***********************************************
function CalculateExchangeRate(t_total)
t_total = t_total / session("exchange_rate")
dim t_Length
dim e_Total
dim c_Len
dim s_Char
dim y_Cnt
dim z_Char
t_Length = len(t_total)
e_Total = ""
c_Len = 0
s_Char = ""
y_Cnt = 0
for i = 1 to t_Length
s_Char = mid(t_total,i,1)
if s_Char = "." then
e_Total = e_Total & s_Char
exit for
end if
e_Total = e_Total & s_Char
c_Len = c_Len + 1
next
c_Len = c_Len + 2
for i = c_Len to t_Length
if y_Cnt = 2 then
exit for
else
e_Total = e_Total & mid(t_total,i,1)
y_Cnt = y_Cnt + 1
end if
next
y_Cnt = 0
c_Len = c_Len + 2
for i = c_Len to t_Length
if y_Cnt = 1 then
exit for
else
z_Char = mid(t_total,i,1)
if z_Char >= 5 then
e_Total = e_Total + 0.01
end if
y_Cnt = y_Cnt + 1
end if
next
e_Total = e_Total
CalculateExchangeRate = e_Total
end function
'***********************************************
' calculate sales percent
'***********************************************
function CalculateSalesPercent(y_total)
y_total = y_total * session("2checkout_percent") / 100
dim t_Length
dim p_Total
dim c_Len
dim s_Char
dim y_Cnt
dim z_Char
t_Length = len(y_total)
p_Total = ""
c_Len = 0
s_Char = ""
y_Cnt = 0
for i = 1 to t_Length
s_Char = mid(y_total,i,1)
if s_Char = "." then
p_Total = p_Total & s_Char
exit for
end if
p_Total = p_Total & s_Char
c_Len = c_Len + 1
next
c_Len = c_Len + 2
for i = c_Len to t_Length
if y_Cnt = 2 then
exit for
else
p_Total = p_Total & mid(y_total,i,1)
y_Cnt = y_Cnt + 1
end if
next
y_Cnt = 0
c_Len = c_Len + 2
for i = c_Len to t_Length
if y_Cnt = 1 then
exit for
else
z_Char = mid(y_total,i,1)
if z_Char >= 5 then
p_Total = p_Total + 0.01
end if
y_Cnt = y_Cnt + 1
end if
next
p_Total = p_Total
CalculateSalesPercent = p_Total
end function
'***********************************************
' member request password form
'***********************************************
sub MemberRequestPasswordForm(storename)
%>
PASSWORD REMINDER
<%
end sub
'***********************************************
' send password to member
'***********************************************
sub SendPasswordToMember(member_email)
dim send_password_rs
dim MessageBody
dim msg
ssql = "select * from tbl_member where member_email ='" & member_email & "'"
set send_password_rs = server.CreateObject("adodb.recordset")
send_password_rs.Open ssql,conn,3,3
if not send_password_rs.EOF then
MessageBody = "Your account info ... "
MessageBody = MessageBody & "----------------------------------------------------- "
MessageBody = MessageBody & "USERNAME : " & send_password_rs("member_email") & " "
MessageBody = MessageBody & "PASSWORD : " & send_password_rs("member_password") & " "
MessageBody = MessageBody & "
"
MessageBody = MessageBody & "-----------------------------------------------------"
dim objCDOSYSMail
dim objCDOSYSCon
' Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
' Outgoing SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "web@vanueweb.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "1234"
objCDOSYSCon.Fields.Update
' Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = session("company_email")
objCDOSYSMail.To = member_email
objCDOSYSMail.Subject = "Support"
objCDOSYSMail.HTMLBody = MessageBody
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
msg = "PASSWORD SENT."
else
msg = ucase(member_email) & " NOT EXIST IN OUR SYSTEM."
end if
send_password_rs.close
set send_password_rs = nothing
%>
PASSWORD REMINDER
<% = msg %>
<%
end sub
'***********************************************
' show all partner
'***********************************************
sub ShowAllPartner(storename)
dim partner_rs
ssql = "select * from tbl_partner order by partner_name"
set partner_rs = server.CreateObject("adodb.recordset")
partner_rs.Open ssql,conn,3,3
%>
OUR PARTNER
<% if partner_rs.EOF then %>
Sorry, This section is under maintenance.
Please come back later.
<% else %>
<% do until partner_rs.EOF %>
<% if len(partner_rs("partner_logo")) > 0 then %>
<% end if %>
<%
partner_rs.MoveNext
loop
partner_rs.Close
set partner_rs = nothing
%>
<%
end if
end sub
'***********************************************
' outlet info
'***********************************************
sub OutletInfo(storename)
dim outlet_rs
ssql = "select * from tbl_outlet"
set outlet_rs = server.CreateObject("adodb.recordset")
outlet_rs.Open ssql,conn,3,3
if not outlet_rs.EOF then
%>
OUR BRANCH
<%
do until outlet_rs.EOF
%>
<% = outlet_rs("outlet_name") %>
<% if outlet_rs("outlet_address") <> "" then %>
<% = replace(outlet_rs("outlet_address"),vbcrlf," ",1,-1,1) %>
<% end if %>
<% if outlet_rs("outlet_phone") <> "" then %>
TEL : <% = outlet_rs("outlet_phone") %>
<% end if %>
<% if outlet_rs("outlet_fax") <> "" then %>
FAX : <% = outlet_rs("outlet_fax") %>
<% end if %>
<% if outlet_rs("outlet_email") <> "" then %>
Email us at : <% = outlet_rs("outlet_email") %>
<% end if %>
<%
outlet_rs.MoveNext
loop
outlet_rs.Close
set outlet_rs = nothing
%>
<%
end if
end sub
'***********************************************
' ads banner
'***********************************************
sub LoadAdsBanner(storename)
dim objfs
dim objfile
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/ads.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/ads.txt"),1,-1,0)
session("myAds") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
if objfs.FileExists(server.MapPath("../../member/" & storename & "/adsURL.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/adsURL.txt"),1,-1,0)
session("myAdsURL") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
if objfs.FileExists(server.MapPath("../../member/" & storename & "/adsStatus.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/adsStatus.txt"),1,-1,0)
session("myAdsStatus") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
if right(session("myAds"),3) = "swf" then
session("AdsBannerType") = "flash"
else
session("AdsBannerType") = "image"
end if
if session("myAdsStatus") = "on" then
if session("AdsBannerType") = "image" then
%>
<%
else
%>
<%
end if
end if
end sub
'********************************************************
' list all item in selected product families - non paging
'********************************************************
sub ListAllItem(storename, category_id, sub_category_id)
dim item_rs
ssql = "select * from tbl_product_details where product_category_id = '" & category_id & "' and product_sub_category_id = '" & sub_category_id & "' and product_status = 'on'"
set item_rs = server.createobject("adodb.recordset")
item_rs.Open ssql, conn, 3 , 3
%>
<% if not item_rs.EOF then %>
ITEMS IN <% = ucase(item_rs("product_category")) %> > <% = ucase(item_rs("product_sub_category")) %>
<% end if %>
<%
while not item_rs.EOF
%>
<% = ucase(item_rs("product_model")) %>
<% if item_rs("product_member_price") <> "0" or item_rs("product_retail_price") <> "0" then %>
Product Code : <% = item_rs("product_code") %>
<% end if %>
<% if len(item_rs("product_images")) > 0 then %>
<% end if %>
<% if session("member_email") <> "" then
if session("member_level") = "RESELLER" then
if item_rs("product_member_price") <> "0" then
%>
Member Price : <% = session("company_currency_format")%> <% = item_rs("product_member_price") %>
<% end if %>
<% if item_rs("product_retail_price") <> "0" then %>
Retail Price : <% = session("company_currency_format")%> <% = item_rs("product_retail_price") %>
<% end if
else
if item_rs("product_retail_price") <> "0" then %>
Retail Price : <% = session("company_currency_format")%> <% = item_rs("product_retail_price") %>
<% end if
end if
else
if item_rs("product_retail_price") <> "0" then %>
Retail Price : <% = session("company_currency_format")%> <% = item_rs("product_retail_price") %>
<% end if
end if
%>
<% if session("display_cart") = "on" then
if item_rs("product_member_price") <> "0" and item_rs("product_retail_price") <> "0" then
%>
<% end if
end if
%>
<% = item_rs("product_details") %>
<%
item_rs.MoveNext
wend
item_rs.close
set item_rs = nothing
end sub
'***********************************************
' ordering term
'***********************************************
sub LoadOrderTerms(storename)
dim objfs
dim objfile
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/terms.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/terms.txt"),1,-1,0)
session("myTerms") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
if objfs.FileExists(server.MapPath("../../member/" & storename & "/terms_status.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/terms_status.txt"),1,-1,0)
session("myTermStatus") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
end sub
'***********************************************
' moneybookers
'***********************************************
sub LoadMoneyBookers(storename)
dim objfs
dim objfile
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/myMBEmail.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/myMBEmail.txt"),1,-1,0)
session("myMBEmail") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
if objfs.FileExists(server.MapPath("../../member/" & storename & "/myMBStatus.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/myMBStatus.txt"),1,-1,0)
session("myMBStatus") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
end sub
'***********************************************
' display categories at main page
'***********************************************
sub DisplayCategoriesAtMainPage(storename)
dim objfs
dim objfile
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/myCategoriesSetting.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/myCategoriesSetting.txt"),1,-1,0)
session("myCategoriesSetting") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
end sub
'***********************************************
' pay88
'***********************************************
sub LoadPay88(storename)
dim objfs
dim objfile
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/my88Code.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/my88Code.txt"),1,-1,0)
session("my88Code") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
if objfs.FileExists(server.MapPath("../../member/" & storename & "/my88Status.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/my88Status.txt"),1,-1,0)
session("my88Status") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
end sub
'***********************************************
' order message
'***********************************************
sub LoadOrderMessage(storename)
dim objfs
dim objfile
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/message_status.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/message_status.txt"),1,-1,0)
session("myMessageStatus") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
end sub
'***********************************************
' paypal
'***********************************************
sub LoadPayPal(storename)
dim objfs
dim objfile
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../member/" & storename & "/paypalCode.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/paypalCode.txt"),1,-1,0)
session("paypalCode") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
if objfs.FileExists(server.MapPath("../../member/" & storename & "/paypalStatus.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../member/" & storename & "/paypalStatus.txt"),1,-1,0)
session("paypalStatus") = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
end sub
%>
![](../../member/" & storename & "/images/" & item_rs("product_images") & ")
"
end if
%>
![](../../member/<% = storename %>/images/<% = company_rs("company_image") %>)
<% end if %>
![](../../member/<% = storename %>/images/<% = company_rs("company_logo") %>)
<% end if %>
![](../../member/<% = storename %>/images/<% = press_release_rs("press_release_image") %>)
<% end if %>
![](../../member/<% = storename %>/images/<% = session("myAds") %>)
<%
else
%>
<%
end if
end if
end sub
'********************************************************
' list all item in selected product families - non paging
'********************************************************
sub ListAllItem(storename, category_id, sub_category_id)
dim item_rs
ssql = "select * from tbl_product_details where product_category_id = '" & category_id & "' and product_sub_category_id = '" & sub_category_id & "' and product_status = 'on'"
set item_rs = server.createobject("adodb.recordset")
item_rs.Open ssql, conn, 3 , 3
%>
![](../../member/<% = storename %>/images/<% = item_rs("product_images") %>)
![](../../member/<% = storename %>/images/<% = partner_rs("partner_logo") %>)