<%
	'Reply : Done / Fail
	option explicit
	dim conn
	dim DSNtemp
	dim rs
	dim ssql
	dim order_number
	dim storename
	dim objfs
	dim objfile
	dim SystemFolder
	dim DestinationFolder
	dim account_created
	dim sExpireDate
	dim rCounter
	dim VersionInfo
	
	const default_design = "theme"

	'order_number = trim(Request.Form("serial_number"))
	'storename = trim(Request.Form("storename"))

	order_number = trim(Request("serial_number"))
	storename = trim(Request("storename"))
	
	if order_number = "" then order_number = storename

	'***********************************************************************************
	'CHECK SERIAL NUMBER VERSION
	'***********************************************************************************
	'VersionInfo = mid(trim(Request.Form("serial_number")),1,2)
	VersionInfo = mid(trim(Request("serial_number")),1,2)
	if VersionInfo = "LT" then
		VersionInfo = "Lite"
	else
		VersionInfo = "Full"
	end if

	'***********************************************************************************
	'UPDATE SERVER DATABASE
	'***********************************************************************************
	'create database connection to server db
	DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
	DSNtemp=DSNtemp & "DBQ=" & server.mappath("../db/dbServer.mdb")
	DSNtemp=DSNtemp & ";Password=790527145433"
	set conn = server.createobject("adodb.connection")
	conn.Open DSNtemp

	ssql = "select * from tbl_store"
	set rs = server.CreateObject("adodb.recordset")
	rs.Open ssql,conn,3,3
	rCounter = rs.RecordCount 
	rs.Close
	set rs = nothing
	
	if rCounter <= 75 then
		'update store design setting
		ssql = "select * from tbl_store where store_name = '" & storename & "'"
		set rs = server.CreateObject("adodb.recordset")
		rs.Open ssql,conn,3,3
		rs.AddNew
		rs.Fields("store_serial_number") = order_number
		rs.Fields("store_name") = storename
		rs.Fields("store_design") = default_design
		rs.Fields("version_info") = VersionInfo
		rs.Update
		rs.Close
		set rs = nothing

		'close server database connection
		conn.Close
		set conn = nothing

		set objfs = server.CreateObject("Scripting.FileSystemObject")
		if objfs.FolderExists(server.MapPath("../member/" & storename)) = true then
			account_created = false
		else
			SystemFolder = server.MapPath("default_folder")
			DestinationFolder = server.MapPath("../member/" & storename)
			objfs.CopyFolder SystemFolder,DestinationFolder
		end if

		'***********************************************************************************
		'UPDATE CLIENT(MEMBER) DATABASE
		'***********************************************************************************
		'create database connection to member store via storename
		DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
		DSNtemp=DSNtemp & "DBQ=" & server.mappath("../member/" & storename & "/db/dbStore.mdb")
		DSNtemp=DSNtemp & ";Password=790527145433"
		set conn = server.createobject("adodb.connection")
		conn.Open DSNtemp

		sExpireDate = dateadd("d",365,date)
		set rs = server.CreateObject("adodb.recordset")
		rs.Open "tbl_company",conn,3,3
		rs.Fields("company_username") = lcase(storename)
		rs.Fields("company_password") = lcase(storename)
		rs.Fields("company_account_expire_date") = sExpireDate
		rs.Fields("company_account_status") = "Active"
		rs.Update
		rs.Close
		set rs = nothing

		'close client database connection
		conn.Close
		set conn = nothing

		if objfs.FileExists(server.MapPath("../member/" & storename & "/design.asp")) then
			objfs.DeleteFile server.MapPath("../member/" & storename & "/design.asp")
		end if
		set objfile = objfs.OpenTextFile(server.MapPath("../member/" & storename & "/design.asp"),8,-1,0)
		objfile.WriteLine vbcrlf
		objfile.WriteLine chr(60) & chr(37)
		objfile.WriteLine "Response.Redirect " & chr(34) & "../../web/" & default_design & "/index.asp?storename=" & storename & chr(34)
		objfile.WriteLine chr(37) & chr(62)
		objfile.close
		set objfile = nothing

		set objfile = objfs.OpenTextFile(server.MapPath("../member/" & storename & "/forum/storename.asp"),8,-1,0)
		objfile.WriteLine vbcrlf
		objfile.WriteLine chr(60) & chr(37)
		objfile.WriteLine "const storename = " & chr(34) & storename & chr(34)
		objfile.WriteLine chr(37) & chr(62)
		objfile.close
		set objfile = nothing
		set objfs = nothing
		account_created = true

		if account_created = true then
			Response.Write "Done"
		else
			Response.Write "Fail"
		end if
	else
		Response.Write "Fail"
	end if
%>