<% dim server_db_conn dim server_DSNtemp dim server_ssql 'create database connection to server db sub CreateServerDbConnection() server_DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " server_DSNtemp=server_DSNtemp & "DBQ=" & server.mappath("../../../../../db/dbServer.mdb") server_DSNtemp=server_DSNtemp & ";Password=790527145433" set server_db_conn = server.createobject("adodb.connection") 'Response.Write server.mappath("../../../../../db/dbServer.mdb") server_db_conn.Open server_DSNtemp end sub 'close server database connection sub CloseServerDbConnection() server_db_conn.Close set server_db_conn = nothing end sub 'update forum setting while forum have been created sub ForumCreated(storename) dim ForumCreated_rs call CreateServerDbConnection() server_ssql = "select * from tbl_store where store_name = '" & storename & "'" set ForumCreated_rs = server.CreateObject("adodb.recordset") ForumCreated_rs.Open server_ssql,server_db_conn,3,3 ForumCreated_rs.Fields("forum_service") = "on" ForumCreated_rs.Fields("forum_service_apply_date") = date() ForumCreated_rs.Update ForumCreated_rs.Close set ForumCreated_rs = nothing call CloseServerDbConnection() end sub 'update forum setting sub UpdateForum(status, storename) dim UpdateForum_rs call CreateServerDbConnection() server_ssql = "select * from tbl_store where store_name = '" & storename & "'" set UpdateForum_rs = server.CreateObject("adodb.recordset") UpdateForum_rs.Open server_ssql,server_db_conn,3,3 if status = "on" then UpdateForum_rs.Fields("forum_service") = status else UpdateForum_rs.Fields("forum_service") = "off" end if UpdateForum_rs.Update UpdateForum_rs.Close set UpdateForum_rs = nothing call CloseServerDbConnection() end sub 'update store design setting sub UpdateStoreDesign(design, storename) dim UpdateStoreDesign_rs call CreateServerDbConnection() server_ssql = "select * from tbl_store where store_name = '" & storename & "'" set UpdateStoreDesign_rs = server.CreateObject("adodb.recordset") UpdateStoreDesign_rs.Open server_ssql,server_db_conn,3,3 UpdateStoreDesign_rs.Fields("store_design") = design UpdateStoreDesign_rs.Fields("store_design_apply_date") = date() UpdateStoreDesign_rs.Update UpdateStoreDesign_rs.Close set UpdateStoreDesign_rs = nothing call CloseServerDbConnection() end sub 'update 2checkout id sub Update2CheckoutId(account_id, storename) dim Update2CheckoutId_rs call CreateServerDbConnection() server_ssql = "select * from tbl_store where store_name = '" & storename & "'" set Update2CheckoutId_rs = server.CreateObject("adodb.recordset") Update2CheckoutId_rs.Open server_ssql,server_db_conn,3,3 Update2CheckoutId_rs.Fields("2checkout_account_id") = account_id Update2CheckoutId_rs.Update Update2CheckoutId_rs.Close set Update2CheckoutId_rs = nothing call CloseServerDbConnection() end sub 'update download section setting sub UpdateDownloadSection(status, storename) dim UpdateDownloadSection_rs call CreateServerDbConnection() server_ssql = "select * from tbl_store where store_name = '" & storename & "'" set UpdateDownloadSection_rs = server.CreateObject("adodb.recordset") UpdateDownloadSection_rs.Open server_ssql,server_db_conn,3,3 if status = "on" then UpdateDownloadSection_rs.Fields("download_section") = status else UpdateDownloadSection_rs.Fields("download_section") = "off" end if UpdateDownloadSection_rs.Update UpdateDownloadSection_rs.Close set UpdateDownloadSection_rs = nothing call CloseServerDbConnection() end sub 'update pay88 id sub UpdatePay88Id(account_id, storename) dim UpdatePay88Id_rs call CreateServerDbConnection() server_ssql = "select * from tbl_store where store_name = '" & storename & "'" set UpdatePay88Id_rs = server.CreateObject("adodb.recordset") UpdatePay88Id_rs.Open server_ssql,server_db_conn,3,3 UpdatePay88Id_rs.Fields("pay88_id") = account_id UpdatePay88Id_rs.Update UpdatePay88Id_rs.Close set UpdatePay88Id_rs = nothing call CloseServerDbConnection() end sub %>