<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '11 function fn_make_excel(file_path,excel_text) set fs=server.createobject("scripting.filesystemobject") If fs.FileExists (file_path) then fs.DeleteFile (file_path) set html_file=fs.createtextfile(file_path,true,false) html_file.write(excel_text) else set html_file=fs.createtextfile(file_path,true,false) html_file.writeline(excel_text) End If set fs=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '11 function fn_make_html_buyer_board(buyer_board_id,html_file_path) Const cdoSuppressNone= 0'Download all resources from the Web page (default). Const cdoSuppressImages= 1'Do not download resources from or tags. Const cdoSuppressBGSounds= 2 'Do not download resources from tags. Const cdoSuppressFrames= 4 'Do not download resources from tags. Const cdoSuppressObjects= 8 'Do not download resources from tags. Const cdoSuppressStyleSheets= 16 'Do not download resources from tags. Const cdoSuppressAll = 31 'Do not download any resources referred to from within the page. set mailling=server.createobject("CDO.Message") mailling.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/httpcookies")="buyer_board_id="&buyer_board_id&"" mailling.Configuration.Fields.Update mailling.CreateMHTMLBody "http://www.totalmanage.com/web/make_html/buyer_board/buyer_board_html_form.asp",cdoSuppressAll ddd=mailling.HTMLBody set mailling=nothing set fs=server.createobject("scripting.filesystemobject") 'html_file_path=Server.MapPath("../../site_map/buyer_board")&"\"&buyer_board_id&".htm" If fs.FileExists (html_file_path) then fs.DeleteFile (html_file_path) set html_file=fs.createtextfile(html_file_path,true,false) html_file.write ddd else set html_file=fs.createtextfile(html_file_path,true,false) html_file.write ddd End If set fs=nothing 'allrs_product=fn_select_product_20060216_1416(product_id) 'if not isnull(allrs_product) then 'product_id=allrs_product(0,0) 'if not fn_check_empty(product_id) then 'end if 'end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '11 function fn_make_html_product(product_id,html_file_path) Const cdoSuppressNone= 0'Download all resources from the Web page (default). Const cdoSuppressImages= 1'Do not download resources from or tags. Const cdoSuppressBGSounds= 2 'Do not download resources from tags. Const cdoSuppressFrames= 4 'Do not download resources from tags. Const cdoSuppressObjects= 8 'Do not download resources from tags. Const cdoSuppressStyleSheets= 16 'Do not download resources from tags. Const cdoSuppressAll = 31 'Do not download any resources referred to from within the page. set mailling=server.createobject("CDO.Message") mailling.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/httpcookies")="product_id="&product_id&"" mailling.Configuration.Fields.Update mailling.CreateMHTMLBody "http://www.totalmanage.com/web/make_html/product/product_html_form.asp",cdoSuppressAll ddd=mailling.HTMLBody set mailling=nothing set fs=server.createobject("scripting.filesystemobject") 'html_file_path=file_path&"\"&product_id&".htm" 'Server.MapPath("../../site_map/products")&"\"&product_id&".htm" If fs.FileExists (html_file_path) then fs.DeleteFile (html_file_path) set html_file=fs.createtextfile(html_file_path,true,false) html_file.write ddd else set html_file=fs.createtextfile(html_file_path,true,false) html_file.write ddd End If set fs=nothing 'allrs_product=fn_select_product_20060216_1416(product_id) 'if not isnull(allrs_product) then 'product_id=allrs_product(0,0) 'if not fn_check_empty(product_id) then 'end if 'end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '11 function fn_count_sponsor_basic(member_id) set db=server.createobject("adodb.connection") db.open db_open_string Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_count_sponsor_basic" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@member_id",adinteger,adParamInput,0) .Parameters.Append .CreateParameter("@sponsor_count",adinteger,adParamOutput,0) .Parameters("@member_id") = fn_change_query_string(member_id) .Parameters("@sponsor_count") = null .Execute , , adExecuteNoRecords fn_count_sponsor_basic=.Parameters("@sponsor_count") End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '7 function fn_get_search_word(full_search_word) dim index_char,one_char,temp_phone_keyword for index_char=1 to len(trim(full_search_word)) one_char=lcase(mid(full_search_word,index_char,1)) if asc(one_char)>=48 and asc(one_char)<=57 then if trim(index_char)=trim(1) then temp_phone_keyword=one_char else if asc(before_one_char)<48 or asc(before_one_char)>57 then temp_phone_keyword=trim(temp_phone_keyword)&" "&one_char else temp_phone_keyword=temp_phone_keyword&one_char end if end if elseif (asc(one_char)>=0 and asc(one_char)<=47) or (asc(one_char)>=58 and asc(one_char)<=64) or (asc(one_char)>=91 and asc(one_char)<=96) or (asc(one_char)>=123 and asc(one_char)<=127) then temp_phone_keyword=trim(temp_phone_keyword)&" " else if trim(index_char)=trim(1) then temp_phone_keyword=one_char else if (asc(before_one_char)>=48 and asc(before_one_char)<=57) or ((asc(before_one_char)>=0 and asc(before_one_char)<=47) or (asc(before_one_char)>=58 and asc(before_one_char)<=64) or (asc(before_one_char)>=91 and asc(before_one_char)<=96) or (asc(before_one_char)>=123 and asc(before_one_char)<=127)) then temp_phone_keyword=trim(temp_phone_keyword)&" "&one_char else temp_phone_keyword=temp_phone_keyword&one_char end if end if end if before_one_char=one_char next fn_get_search_word=trim(temp_phone_keyword) end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '7 function fn_change_font_color(old_temp_word,full_search_word) 'dim index_char,ddd,temp_full_word,temp_word,i,one_char 'product_description2=trim(temp_phone_keyword) search_word=split(full_search_word," ") 'redim preserve search_word(10) ddd=0 temp_full_word=null temp_word=null index_char=1 for index_char=1 to len(old_temp_word&" ") one_char=mid(old_temp_word,index_char,1) if not trim(one_char)=trim(" ") then temp_word=temp_word&one_char else temp_lower_word=lcase(temp_word) for i=0 to ubound(search_word) if not fn_check_empty(search_word(i)) then if isnumeric(search_word(i))=true or trim(len(search_word(i)))=trim(1) then if trim(temp_lower_word)=trim(search_word(i)) then temp_full_word=temp_full_word&" "&""&temp_word&"" ddd=1 exit for end if else if trim(instr(temp_lower_word,search_word(i)))=trim(1) then temp_full_word=temp_full_word&" "&""&left(temp_word,len(search_word(i)))&""&mid(temp_word,len(search_word(i))+1,len(temp_word))&"" ddd=1 exit for end if end if end if next if trim(ddd)=trim(0) then temp_full_word=temp_full_word&" "&temp_word&"" end if temp_word=null ddd=0 end if next fn_change_font_color=trim(temp_full_word) end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '7 function fn_get_search_string(full_text,full_search_word) dim temp_phone_keyword,index_char,one_char,before_one_char,product_description2 dim temp_word,ddd,temp_full_word,i,temp_one,temp_many full_text=trim(full_text)&" " temp_phone_keyword=null for index_char=1 to len(full_text) one_char=mid(full_text,index_char,1) if asc(one_char)>=48 and asc(one_char)<=57 then if trim(index_char)=trim(1) then temp_phone_keyword=trim(one_char) temp_one=one_char else if asc(before_one_char)<48 or asc(before_one_char)>57 then temp_phone_keyword=trim(temp_phone_keyword)&" "&trim(one_char) temp_many=temp_many&fn_change_font_color(temp_one,full_search_word) temp_one=one_char else temp_phone_keyword=temp_phone_keyword&trim(one_char) temp_one=temp_one&one_char end if end if elseif (asc(one_char)>=0 and asc(one_char)<=47) or (asc(one_char)>=58 and asc(one_char)<=64) or (asc(one_char)>=91 and asc(one_char)<=96) or (asc(one_char)>=123 and asc(one_char)<=127) then if trim(index_char)=trim(1) then temp_phone_keyword=trim(one_char) temp_many=one_char else if (asc(before_one_char)>=48 and asc(before_one_char)<=57) or not ((asc(before_one_char)>=0 and asc(before_one_char)<=47) or (asc(before_one_char)>=58 and asc(before_one_char)<=64) or (asc(before_one_char)>=91 and asc(before_one_char)<=96) or (asc(before_one_char)>=123 and asc(before_one_char)<=127)) then temp_phone_keyword=trim(temp_phone_keyword)&" "&trim(one_char)&"" temp_many=temp_many&fn_change_font_color(temp_one,full_search_word) temp_many=temp_many&one_char temp_one="" else temp_phone_keyword=temp_phone_keyword&trim(one_char) temp_many=temp_many&one_char temp_one="" end if end if else if trim(index_char)=trim(1) then temp_phone_keyword=trim(one_char) temp_one=one_char else if (asc(before_one_char)>=48 and asc(before_one_char)<=57) or (asc(before_one_char)>=0 and asc(before_one_char)<=47) or (asc(before_one_char)>=58 and asc(before_one_char)<=64) or (asc(before_one_char)>=91 and asc(before_one_char)<=96) or (asc(before_one_char)>=123 and asc(before_one_char)<=127) then temp_phone_keyword=trim(temp_phone_keyword)&" "&trim(one_char) temp_many=temp_many&fn_change_font_color(temp_one,full_search_word) temp_one=one_char else temp_phone_keyword=temp_phone_keyword&trim(one_char) temp_one=temp_one&one_char end if end if end if before_one_char=one_char next fn_get_search_string=trim(temp_many) end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '7 function fn_select_category_to_basic_path(category_id) set db=server.createobject("adodb.connection") db.open db_open_string Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_select_category_to_basic_path" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@category_id",adinteger,adParamInput,0) .Parameters("@category_id") = fn_change_query_string(category_id) set rs=.Execute if rs.eof and rs.bof then fn_select_category_to_basic_path=null else fn_select_category_to_basic_path=rs.getrows end if set rs=nothing End with Set objCmd = Nothing db.close set db=nothing end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '2 function fn_cdbl(var_string) if not fn_check_empty(var_string) then fn_cdbl=cdbl(var_string) else fn_cdbl=0 end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '4 function fn_change_formatnumber2(a,b) fn_change_formatnumber2=replace(fn_change_formatnumber(a,b),",","") end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '2 function fn_range_int(over_weight,increase_weight) dim n if fn_check_empty(over_weight) or fn_check_empty(increase_weight) then fn_range_int=0 else if not trim(increase_weight)=trim(0) then n=int(over_weight/increase_weight) if increase_weight*n=over_weight then fn_range_int=n else fn_range_int=n+1 end if else fn_range_int=0 end if end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function fn_change_date_length(a) if not fn_check_empty(a) then if len(a)=2 then fn_change_date_length=a else fn_change_date_length="0"&a end if else fn_change_date_length=a end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function replace_csv(var_string) if not (fn_check_empty(var_string)) then replace_csv=replace(var_string,",","") else replace_csv="" end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '6 function replace_chr(var_string) if not fn_check_empty(var_string) then replace_chr=replace(replace(replace(var_string,chr(39),"'"),chr(34),"""),chr(13)&chr(10)," ") else replace_chr=null end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '6 function replace_reserve_br(var_string) if not fn_check_empty(var_string) then replace_reserve_br=replace(replace(replace(var_string,chr(39),"'"),chr(34),"""),"
"," ") else replace_reserve_br=null end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '2 function fn_check_shop_member_basic(member_email,member_password,member_id,shop_id) set db=server.createobject("adodb.connection") db.open db_open_string Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_check_shop_member_basic" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@member_email",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@member_password",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@member_id",adinteger,adParamInput,0) .Parameters.Append .CreateParameter("@shop_id",adinteger,adParamInput,0) .Parameters("@member_email") = fn_change_query_string(member_email) .Parameters("@member_password") = fn_change_query_string(member_password) .Parameters("@member_id") = fn_change_query_string(member_id) .Parameters("@shop_id") = fn_change_query_string(shop_id) set rs=.Execute if rs.eof and rs.bof then fn_check_shop_member_basic=null else fn_check_shop_member_basic=rs.getrows end if set rs=nothing End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '2 function fn_check_member_basic(member_email,member_password,member_id) set db=server.createobject("adodb.connection") db.open db_open_string Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_check_member_basic" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@member_email",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@member_password",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@member_id",adinteger,adParamInput,0) .Parameters("@member_email") = fn_change_query_string(member_email) .Parameters("@member_password") = fn_change_query_string(member_password) .Parameters("@member_id") = fn_change_query_string(member_id) set rs=.Execute if rs.eof and rs.bof then fn_check_member_basic=null else fn_check_member_basic=rs.getrows end if set rs=nothing End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '88 function fn_select_shop_category_basic(category_id,shop_id) set db=server.createobject("adodb.connection") db.open db_open_string Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_select_shop_category_basic" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@category_id",adinteger,adParamInput,0) .Parameters.Append .CreateParameter("@shop_id",adinteger,adParamInput,0) .Parameters("@category_id") = fn_change_query_string(category_id) .Parameters("@shop_id") = fn_change_query_string(shop_id) set rs=.Execute if rs.eof and rs.bof then fn_select_shop_category_basic=null else fn_select_shop_category_basic=rs.getrows end if set rs=nothing End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '88 function fn_select_shop_category_basic_keyword_search(category_id,shop_id) set db=server.createobject("adodb.connection") db.open db_open_string Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_select_shop_category_basic_keyword_search" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@category_id",adinteger,adParamInput,0) .Parameters.Append .CreateParameter("@shop_id",adinteger,adParamInput,0) .Parameters("@category_id") = fn_change_query_string(category_id) .Parameters("@shop_id") = fn_change_query_string(shop_id) set rs=.Execute if rs.eof and rs.bof then fn_select_shop_category_basic_keyword_search=null else fn_select_shop_category_basic_keyword_search=rs.getrows end if set rs=nothing End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '88 function fn_select_inventory_alert_product_20050401_1103(shop_id,order_id) set db=server.createobject("adodb.connection") db.open db_open_string Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_select_inventory_alert_product_20050401_1103" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@shop_id",adinteger,adParamInput,0) .Parameters.Append .CreateParameter("@order_id",adinteger,adParamInput,0) .Parameters("@shop_id") = fn_change_query_string(shop_id) .Parameters("@order_id") = fn_change_query_string(order_id) set rs=.Execute if rs.eof and rs.bof then fn_select_inventory_alert_product_20050401_1103=null else fn_select_inventory_alert_product_20050401_1103=rs.getrows end if set rs=nothing End with Set objCmd = Nothing db.close set db=nothing end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function fn_send_auto_email_product(order_id,shop_id,my_email) allrs_product=fn_select_inventory_alert_product_20050401_1103(shop_id,order_id) if not isnull(allrs_product) then for index_product=0 to ubound(allrs_product,2) product_id=allrs_product(0,index_product) product_bar_code=allrs_product(1,index_product) product_description=allrs_product(2,index_product) product_image=allrs_product(3,index_product) product_image1=allrs_product(4,index_product) vendor_id=allrs_product(5,index_product) vendor_email=allrs_product(6,index_product) mail_body="We are very interested in purchasing the following products.
Please provide us with product availability and the prices.

" mail_body=mail_body&"
" if fn_check_empty(product_image) then mail_body=mail_body&"" else mail_body=mail_body&"" end if mail_body=mail_body&"
Barcode : "&fn_html_encode(product_bar_code)&"" mail_body=mail_body&"
"&fn_html_encode(product_description)&"
" mail_title="I am very interested in purchasing the following products." if not fn_check_empty(my_email) then ddd=fn_send_mail2(null,null,my_email,mail_title,mail_body,shop_id) end if ddd=fn_send_mail2(null,null,vendor_email,mail_title,mail_body,shop_id) next end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '17 function fn_send_cdo_mail(sender_email,sender_name,receiver_email,mail_title,mail_body_url,httpcookies) Const cdoSuppressNone= 0'Download all resources from the Web page (default). Const cdoSuppressImages= 1'Do not download resources from or tags. Const cdoSuppressBGSounds= 2 'Do not download resources from tags. Const cdoSuppressFrames= 4 'Do not download resources from tags. Const cdoSuppressObjects= 8 'Do not download resources from tags. Const cdoSuppressStyleSheets= 16 'Do not download resources from tags. Const cdoSuppressAll = 31 'Do not download any resources referred to from within the page. set mailling=server.createobject("CDO.Message") mailling.subject=mail_title mailling.bodypart.CharSet = "utf-8" mailling.from=ucase(sender_name)&"<"&sender_email&">" mailling.to=receiver_email mailling.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/httpcookies")=httpcookies mailling.Configuration.Fields.Update mailling.CreateMHTMLBody mail_body_url,cdoSuppressAll mailling.send set mailling=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '6 function fn_get_weekday(a) if a=1 then fn_get_weekday="sun" end if if a=2 then fn_get_weekday="mon" end if if a=3 then fn_get_weekday="tue" end if if a=4 then fn_get_weekday="wed" end if if a=5 then fn_get_weekday="thu" end if if a=6 then fn_get_weekday="fri" end if if a=7 then fn_get_weekday="sat" end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '17 function fn_send_mail2(sender_email,sender_name,receiver_email,mail_title,mail_body,member_id) set db=server.createobject("adodb.connection") db.open db_open_string dim mbody,company_domain_name,company_name,company_address,company_city,company_state,company_zip_code,company_country,company_phone,company_fax,company_email sql="select member_company_name,member_company_address,member_company_zip_code,country,member_company_phone,member_company_fax,member_company_email,gold_domain_name,gold_dns_name from member left outer join country on dbo.member.member_company_country_id=dbo.country.country_id where member_id="&member_id&"" allrs_company=fn_select(sql) if not isnull(allrs_company) then company_name=allrs_company(0,0) company_address=allrs_company(1,0) company_zip_code=allrs_company(2,0) company_country=allrs_company(3,0) company_phone=allrs_company(4,0) company_fax=allrs_company(5,0) company_email=allrs_company(6,0) company_domain_name=allrs_company(7,0) company_dns_name=allrs_company(8,0) end if mbody="" mbody=mbody&""&ucase(company_host_name)&"


" mbody=mbody&mail_body mbody=mbody&"
COPYRIGHT(C) "&ucase(company_host_name)&" ALL RIGHTS RESERVED.
"&ucase(company_address)&" "&ucase(company_zip_code)&" "&ucase(company_cuntry)&"
PHONE : "&ucase(company_phone)&"
FAX : "&ucase(company_fax)&"
EMAIL : "&company_email&"" mbody=mbody&"" set mailling=server.createobject("cdonts.newmail") mailling.bodyformat=0 mailling.mailformat=0 mailling.subject=mail_title if fn_check_empty(sender_name) then sender_name=company_domain_name end if if fn_check_empty(sender_email) then sender_email=company_email end if mailling.from=ucase(sender_name)&"<"&sender_email&">" mailling.bcc=receiver_email mailling.body=mbody mailling.send set mailling=nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '20 Function fn_GetUniqueName_thumb_head(filename,file_path,file_type) dim count store_directory=Server.MapPath(file_path) store=store_directory&"\"&filename set fs=server.createobject("scripting.filesystemobject") count=0 do while fs.fileexists(store) filename2="yyythumb_"&count&filename count=count+1 store=store_directory&"\"&filename2 loop set fs=nothing fn_GetUniqueName_thumb_head = "yyythumb_"&count-1 end function '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '19 function fn_abcupload4_upload_file_asf(file_object,file_path) dim filename,filesize,filetype,upload_file,directorypath set ofile=file_object if ofile.fileexists then filename=ofile.safefilename filesize=ofile.length filetype=ofile.filetype if trim(lcase(filetype))=trim("asf") or trim(lcase(filetype))=trim("mpg") or trim(lcase(filetype))=trim("wmv") or trim(lcase(filetype))=trim("avi") then if filesize>4096000 then fn_abcupload4_upload_file_asf=null else directorypath=Server.MapPath(file_path) filename=fn_GetUniqueName_all(filename,file_path) ofile.save directorypath&"\"&filename fn_abcupload4_upload_file_asf=lcase(filename) end if else fn_abcupload4_upload_file_asf=null end if else fn_abcupload4_upload_file_asf=null end if set ofile=nothing end function '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '19 function fn_kms_thumbnail(filename,file_path,thumb_width,thumb_height,file_type) dim small_filename,directorypath Dim FName Dim TestThumb directorypath=Server.MapPath(file_path) FName = directorypath&"\"&filename Set TestThumb = Server.CreateObject("KMSThumb.Thumb") TestThumb.FileName = FName TestThumb.Width = thumb_width TestThumb.Height = thumb_height TestThumb.Quality = 100 TestThumb.ImgGB = file_type '1=jpg,2=gif TestThumb.FrontStr = fn_GetUniqueName_thumb_head(filename,file_path,file_type) TestThumb.ImgScale = 2 TestThumb.SaveThumb fn_kms_thumbnail=TestThumb.imgStr Set TestThumb = nothing end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '35 function fn_move_search_page(now_page,page_size,total_count) dim fn_move_pate,total_page,k,start fn_move_search_page=null total_page=total_count/page_size if cdbl(total_count mod page_size)>cdbl(0) then total_page=fix(total_page)+1 end if fn_move_search_page=fn_move_search_page&"[front]  " start=(int(now_page/10))*10+1 if trim(now_page mod 10)=trim(0) then start=start-10 end if if not trim(start)=trim(1) then fn_move_search_page=fn_move_search_page&"  <<  " end if for k=start to start+9 step 1 if trim(k)=trim(now_page) then fn_move_search_page=fn_move_search_page&"  "&k&"  " else if trim(k)=trim(total_page) then fn_move_search_page=fn_move_search_page&"  "&k&"  " fn_move_search_page=fn_move_search_page&"  next search result page >>>  " else fn_move_search_page=fn_move_search_page&"  "&k&"  " end if end if if trim(k)=trim(total_page) then exit for else if not trim(k mod 10)=trim(0) then fn_move_search_page=fn_move_search_page&"|" end if end if next if cdbl(start+10)<=cdbl(total_page) then fn_move_search_page=fn_move_search_page&"  >>  " end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '35 function fn_move_page(now_page,page_size,total_count) dim fn_move_pate,total_page,k,start fn_move_page=null if cdbl(total_count)>cdbl(0) then total_page=total_count/page_size if cdbl(total_count mod page_size)>cdbl(0) then total_page=fix(total_page)+1 end if fn_move_page=fn_move_page&"[front]  " start=(int(now_page/10))*10+1 if trim(now_page mod 10)=trim(0) then start=start-10 end if if not trim(start)=trim(1) then fn_move_page=fn_move_page&"  <<  " end if for k=start to start+9 step 1 if trim(k)=trim(now_page) then fn_move_page=fn_move_page&"  "&fn_change_formatnumber(k,0)&"  " else fn_move_page=fn_move_page&"  "&fn_change_formatnumber(k,0)&"  " end if if cdbl(now_page)<=cdbl(total_page)then if trim(k)=trim(total_page) then exit for end if else if trim(k)=trim(now_page) then exit for end if end if if not trim(k mod 10)=trim(0) then fn_move_page=fn_move_page&"|" end if 'end if 'if cdbl(total_page)>=cdbl(now_page)then 'if trim(k)=trim(now_page) then 'exit for 'end if 'end if next if cdbl(start+10)<=cdbl(total_page) then fn_move_page=fn_move_page&"  >>  " end if 'if cdbl(total_page)>=cdbl(now_page)then 'fn_move_page=fn_move_page&"  [end : "&fn_change_formatnumber(total_page,0)&"]" 'end if end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '3 function fn_check_empty(a) if trim(a)="" or isnull(a) then fn_check_empty=true else fn_check_empty=false end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function fn_change_no_null(a) if fn_check_empty(a) then fn_change_no_null="" else fn_change_no_null=a end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '14 function fn_replace_output_string(var_string) if not fn_check_empty(var_string) then fn_replace_output_string=trim(replace(var_string,chr(34),""")) else fn_replace_output_string=null end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '14 function fn_replace_output_string_meta(var_string) if not fn_check_empty(var_string) then fn_replace_output_string_meta=trim(replace(var_string,chr(34),""")) fn_replace_output_string_meta=replace(fn_replace_output_string_meta,chr(13)&chr(10)," ") else fn_replace_output_string_meta=null end if end function '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '19 function fn_abcupload4_upload_file(file_object,file_path) dim filename,filesize,filetype,upload_file,directorypath set ofile=file_object if ofile.fileexists then filename=ofile.safefilename filesize=ofile.length filetype=ofile.filetype if trim(lcase(filetype))=trim("jpg") or trim(lcase(filetype))=trim("gif") then if filesize>4096000 then fn_abcupload4_upload_file=null else directorypath=Server.MapPath(file_path) filename=fn_GetUniqueName_all(filename,file_path) ofile.save directorypath&"\"&filename fn_abcupload4_upload_file=lcase(filename) end if else fn_abcupload4_upload_file=null end if else fn_abcupload4_upload_file=null end if set ofile=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '20 Function fn_GetUniqueName_all(filename,file_path) dim i,file_name_length,one_char store_directory=Server.MapPath(file_path) strname=mid(filename, 1, instrrev(filename,".")-1) strext=mid(filename,instrrev(filename,".")+1) store=store_directory&"\"&filename file_name_length=len(strname) for i=1 to file_name_length one_char=asc(mid(strname,i,1)) if cdbl(one_char)cdbl(57) and cdbl(one_char)cdbl(90) and cdbl(one_char)cdbl(95) and cdbl(one_char)cdbl(122) then strname=null upperbound = 999999999 lowerbound = 100000000 randomize strname=Int((upperbound-lowerbound+1)*Rnd(1)+lowerbound) exit for end if next set fs=server.createobject("scripting.filesystemobject") count=0 do while fs.fileexists(store) filename=strname&count&"."&strext count=count+1 store=store_directory&"\"&filename loop set fs=nothing fn_GetUniqueName_all = filename end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '10 function fn_change_query_string(a) if fn_check_empty(a) then fn_change_query_string=null else fn_change_query_string=trim(replace(replace(a,"'",chr(39)),""",chr(34))) fn_change_query_string=left(fn_change_query_string,4000) end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '10 function fn_html_encode(a) if fn_check_empty(a) then fn_html_encode=null else fn_html_encode=server.HTMLEncode(a) end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '10 function fn_url_encode(a) if fn_check_empty(a) then fn_url_encode=null else fn_url_encode=server.URLEncode(a) end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '6 function fn_replace_etc(var_string) if not fn_check_empty(var_string) then fn_replace_etc=replace(replace(var_string,".",""),"-","_") else fn_replace_etc=null end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '4 function fn_change_formatnumber(a,b) if fn_check_empty(a) then fn_change_formatnumber=formatnumber(0,b) else if fn_check_number(a) then fn_change_formatnumber=formatnumber(a,b) else fn_change_formatnumber=formatnumber(0,b) end if end if end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '5 function fn_check_number(a) if fn_check_empty(a) then fn_check_number=false else if trim(left(a,1))=trim("-") or trim(left(a,1))=trim("+") then for i=2 to len(a)-1 temp=mid(a,i,1) if not (trim(temp)=trim("0") or trim(temp)=trim("1") or trim(temp)=trim("2") or trim(temp)=trim("3") or trim(temp)=trim("4") or trim(temp)=trim("5") or trim(temp)=trim("6") or trim(temp)=trim("7") or trim(temp)=trim("8") or trim(temp)=trim("9") or trim(temp)=trim(".")) then fn_check_number=false exit function end if next fn_check_number=true else for i=1 to len(a)-1 temp=mid(a,i,1) if not (trim(temp)=trim("0") or trim(temp)=trim("1") or trim(temp)=trim("2") or trim(temp)=trim("3") or trim(temp)=trim("4") or trim(temp)=trim("5") or trim(temp)=trim("6") or trim(temp)=trim("7") or trim(temp)=trim("8") or trim(temp)=trim("9") or trim(temp)=trim(".")) then fn_check_number=false exit function end if next fn_check_number=true end if end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '6 function fn_replace_br(var_string) if not fn_check_empty(var_string) then fn_replace_br=replace(replace(replace(var_string,chr(39),"'"),chr(34),"""),chr(13)&chr(10),"
") else fn_replace_br=null end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '6 function fn_replace_br_br(var_string) if not fn_check_empty(var_string) then if trim(instr(var_string,chr(13)&chr(10)&chr(13)&chr(10)))=trim(0) then fn_replace_br_br=fn_replace_br(var_string) else fn_replace_br_br=fn_replace_br_br(replace(var_string,chr(13)&chr(10)&chr(13)&chr(10),chr(13)&chr(10))) end if else fn_replace_br_br=null end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '2 function fn_select(sql) set db=server.createobject("adodb.connection") db.open db_open_string dim long_data_length,sql_limit,index_select long_data_length=len(sql) sql_limit=3800 dim sql_array(10) for index_select=1 to 10 sql_array(index_select-1)=mid(sql,1+sql_limit*(index_select-1),sql_limit) next Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_select" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@sql",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql1",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql2",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql3",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql4",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql5",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql6",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql7",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql8",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql9",advarwchar,adParamInput,4000) .Parameters("@sql") = replace(replace(replace(sql_array(0),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql1") = replace(replace(replace(sql_array(1),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql2") = replace(replace(replace(sql_array(2),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql3") = replace(replace(replace(sql_array(3),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql4") = replace(replace(replace(sql_array(4),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql5") = replace(replace(replace(sql_array(5),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql6") = replace(replace(replace(sql_array(6),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql7") = replace(replace(replace(sql_array(7),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql8") = replace(replace(replace(sql_array(8),"'",chr(39)),""",chr(34)),"'","'") .Parameters("@sql9") = replace(replace(replace(sql_array(9),"'",chr(39)),""",chr(34)),"'","'") set rs=.Execute if rs.eof and rs.bof then fn_select=null else fn_select=rs.getrows end if set rs=nothing End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '12 function fn_delete(sql) set db=server.createobject("adodb.connection") db.open db_open_string dim long_data_length dim sql_limit dim sql_array(4) dim index_select Dim objCmd dim rs long_data_length=len(sql) sql_limit=3800 for index_select=1 to 4 sql_array(index_select-1)=mid(sql,1+sql_limit*(index_select-1),sql_limit) next Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_delete" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@sql",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql1",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql2",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql3",advarwchar,adParamInput,4000) .Parameters("@sql") = sql_array(0) .Parameters("@sql1") = sql_array(1) .Parameters("@sql2") = sql_array(2) .Parameters("@sql3") = sql_array(3) .Execute , , adExecuteNoRecords End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '13 function fn_update(sql) set db=server.createobject("adodb.connection") db.open db_open_string dim long_data_length dim sql_limit dim sql_array(4) dim index_update long_data_length=len(sql) sql_limit=3800 for index_update=1 to 4 sql_array(index_update-1)=mid(sql,1+sql_limit*(index_update-1),sql_limit) next Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_update" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@sql",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql1",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql2",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql3",advarwchar,adParamInput,4000) .Parameters("@sql") = sql_array(0) .Parameters("@sql1") = sql_array(1) .Parameters("@sql2") = sql_array(2) .Parameters("@sql3") = sql_array(3) .Execute , , adExecuteNoRecords End with Set objCmd = Nothing db.close set db=nothing end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '1 function fn_insert(sql) set db=server.createobject("adodb.connection") db.open db_open_string dim long_data_length dim sql_limit dim sql_array(4) dim index_insert long_data_length=len(sql) sql_limit=3800 for index_insert=1 to 4 sql_array(index_insert-1)=mid(sql,1+sql_limit*(index_insert-1),sql_limit) next Dim objCmd Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = "sp_insert" .CommandType = adCmdStoredProc .Parameters.Append .CreateParameter("@sql",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql1",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql2",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@sql3",advarwchar,adParamInput,4000) .Parameters.Append .CreateParameter("@output_value",adinteger,adParamOutput,0) .Parameters("@sql") = sql_array(0) .Parameters("@sql1") = sql_array(1) .Parameters("@sql2") = sql_array(2) .Parameters("@sql3") = sql_array(3) .Execute , , adExecuteNoRecords fn_insert=.Parameters("@output_value") End with Set objCmd = Nothing db.close set db=nothing end function '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '14 function fn_replace_input_string(var_string) if not fn_check_empty(var_string) then var_string=trim(replace(replace(replace(var_string,"'",chr(39)),""",chr(34)),"'","''")) do while instr(var_string," ")<>0 var_string=replace(var_string," "," ") loop fn_replace_input_string=var_string else fn_replace_input_string=null end if end function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '33 function fn_post(a) if not fn_check_empty(a) then fn_post=replace(a," ","%20") else fn_post=a end if end function %> <% 'Option Explicit %> <% response.buffer=true response.expires=-1 session.timeout=120 Server.ScriptTimeout = 240000 %> <% dim db dim sql set db=server.createobject("adodb.connection") db.open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=tli0917603381187.db.4487666.hostedresource.com; PORT=3306; DATABASE=tli0917603381187; USER=tli0917603381187; PASSWORD='Usk051515'; OPTION=0;" db_open_string="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=tli0917603381187.db.4487666.hostedresource.com; PORT=3306; DATABASE=tli0917603381187; USER=tli0917603381187; PASSWORD='Usk051515'; OPTION=0;" %> New Document <% ''''''''''''''''''''''''''''''''' function fn_select(sql) Set objCmd = Server.CreateObject("ADODB.Command") with objCmd .ActiveConnection = db .CommandText = fn_change_query_string(sql) set rs=.Execute if rs.eof and rs.bof then fn_select=null else fn_select=rs.getrows end if set rs=nothing End with Set objCmd = Nothing end function '''''''''''''''''''''''''''''''''' %>
<% 'new_product_sql = "select top 7 prd_seq, prd_nm, prd_desc, img_src from prd_master where del_yn = 'N' order by regist_dt desc " new_sql = "select pd.products_id, pd.products_type, pd.products_model, pd.products_image, " new_sql = new_sql & " ds.products_name, ds.products_description " new_sql = new_sql & " from zen_products pd, zen_products_description ds " new_sql = new_sql & " where pd.master_categories_id in (SELECT categories_id FROM zen_categories where parent_id = 1 ) and pd.products_type = 1 and pd.products_id = ds.products_id and pd.products_status = 1 order by 1 desc limit 0, 10" 'response.write( new_sql ) 'response.end() allrs_new_product_list = fn_select(new_sql) if not isnull(allrs_new_product_list) Then inner_html = "" for index_new_product_list=0 to ubound(allrs_new_product_list,2) prd_seq = allrs_new_product_list(0,index_new_product_list) prd_type = allrs_new_product_list(1,index_new_product_list) prd_desc = allrs_new_product_list(2,index_new_product_list) img_src = allrs_new_product_list(3,index_new_product_list) prd_nm = allrs_new_product_list(4,index_new_product_list) ''inner_html = inner_html & "  " + prd_nm + "" Next Else inner_html = "Comming Soon !! " End if %>
<%=inner_html%>