E-mail

<%@ codepage=65001%> <% option explicit Response.buffer=true %> <%'On Error Resume Next%> <% Dim m_body, m_SettingID, rs_ContactUs, m_Created, m_RefID, m_body2, m_Subject, m_Now, m_ContactUsID Dim m_data2, m_numrows, i, m_data, m_sql Dim Upload, m_memberOnly, m_ShowForm, m_ShowUpload, m_Passed Dim file, item, value, m_ID, files(200), m_MoreFile Dim fso, oFile, m_OverwriteProblem, m_ref, m_Send, m_UseDatabaseInformation Dim Ufilename, filesize, ks, fileKey, m_numrows2, rs_news, m_FileName, m_GenNow, m_GenNow2, m_Details Dim i1, m_ItemID, m_subject2, m_Description, m_Picture Dim i2, i3, i4, m_data3, m_ViewMode Dim m_Note, m_ItemID2, m_ShowBackAndNext Dim m_filetext, m_MaxPicView, m_News_LockItemObject, m_News_ObjectName Dim sys_File_PicResize, m_NumFile, m_ShowContactDetails, m_Unlimit_File Dim m_File_Size(5), m_ContactUsForm_LockItemObject, sys_SaveToDatabase, m_OK ' * * * Setting * * * m_UseDatabaseInformation=false m_News_LockItemObject="Contact Us" m_News_ObjectName="News01" sys_FileFolder="ni" 'm_File_Size(1)="max 10 MB" m_File_Size(1)="" m_Unlimit_File=false sys_File_PicResize=false sys_SaveToDatabase=false m_memberOnly=false m_ShowForm=true m_ShowContactDetails=false m_ContactUsForm_LockItemObject="Contact Us Form" m_ShowUpload=false m_NumFile=1 m_Unlimit_File=false ' * * * Setting * * * m_MoreFile=request("MoreFile") if m_MoreFile<>"" then m_ShowForm=false m_ShowContactDetails=false end if ' From Member Menu: if request("FileUpload")<>"" then m_ShowForm=false m_ShowContactDetails=false end if if request("Send")<>"" then Set Upload = New FreeASPUpload Upload.Save(sys_RefPath & "temp_ni") 'm_Unlimit_File=true: m_MoreFile=Upload.Form("Morefile") 'If "Contact Information" is found: m_OK="" if Upload.Form("Name")<>"" then 'Prepare e-mail (Contact Information): m_Now=GenNow() m_OK="1" m_Subject="Enquiry - " & m_Now m_body2=m_body2 & "" m_body2=m_body2 & "

" if sys_L="e" then m_body2=m_body2 & "Name: " & Upload.Form("title") & " " & Upload.Form("Name") & "
" if sys_B2C=false then m_body2=m_body2 & "Company Name: " & Upload.Form("companyname") & "
" m_body2=m_body2 & "E-mail: " & Upload.Form("email") & "
" m_body2=m_body2 & "Tel: " & Upload.Form("phoneno") & "
" m_body2=m_body2 & "Fax: " & Upload.Form("Fax") & "
" m_body2=m_body2 & "Your Comment or Message:
" if Upload.Form("comment")<>"" then m_body2=m_body2 & replace(Upload.Form("comment"), vbcrlf, "
") & "
" end if end if if sys_L="b" then m_body2=m_body2 & "姓名: " & Upload.Form("title") & " " & Upload.Form("Name") & "
" if sys_B2C=false then m_body2=m_body2 & "公司名字: " & Upload.Form("companyname") & "
" m_body2=m_body2 & "電郵地址: " & Upload.Form("email") & "
" m_body2=m_body2 & "聯絡電話: " & Upload.Form("phoneno") & "
" m_body2=m_body2 & "傳真: " & Upload.Form("Fax") & "
" m_body2=m_body2 & "其他訊息:
" if Upload.Form("comment")<>"" then m_body2=m_body2 & replace(Upload.Form("comment"), vbcrlf, "
") & "
" end if end if if sys_L="g" then m_body2=m_body2 & "姓名: " & Upload.Form("title") & " " & Upload.Form("Name") & "
" if sys_B2C=false then m_body2=m_body2 & "公司名字: " & Upload.Form("companyname") & "
" m_body2=m_body2 & "电邮地址: " & Upload.Form("email") & "
" m_body2=m_body2 & "联络电话: " & Upload.Form("phoneno") & "
" m_body2=m_body2 & "传真: " & Upload.Form("Fax") & "
" m_body2=m_body2 & "其他讯息:
" if Upload.Form("comment")<>"" then m_body2=m_body2 & replace(Upload.Form("comment"), vbcrlf, "
") & "
" end if end if m_body2=m_body2 & "

" 'If "Contact Information" need to save or m_ShowUpload=true: if (sys_SaveToDatabase=true or m_ShowUpload=true) then m_ContactUsID=GenContactUsID m_sql="Insert into " & m_News_ObjectName & "_Item_e1 (" m_sql=m_sql & "ItemID, " m_sql=m_sql & "Created, " m_sql=m_sql & "Status, " m_sql=m_sql & "LockItemObject, " m_sql=m_sql & "Name, " m_sql=m_sql & "Details" m_sql=m_sql & ") Values (" m_sql=m_sql & "'" & FormatSQLText(m_ContactUsID) & "', " m_sql=m_sql & "'" & m_Now & "', " m_sql=m_sql & "'Show', " m_sql=m_sql & "'" & FormatSQLText(m_ContactUsForm_LockItemObject) & "', " m_sql=m_sql & "'" & FormatSQLText(m_Subject) & "', " m_sql=m_sql & "'" & FormatSQLText(m_body2) & "' " m_sql=m_sql & ")" ExeSql(m_sql) end if end if 'Save files: if m_ShowUpload=true then if m_ContactUsID="" then m_ContactUsID=Upload.Form("ItemID") ks=Upload.UploadedFiles.keys if (UBound(ks) <> -1) then for each fileKey in Upload.UploadedFiles.keys for i=1 to m_NumFile if fileKey="picture" & i then files(i)=lcase(Upload.UploadedFiles(fileKey).FileName) if not ((right(files(i), 3)="zip" or right(files(i), 3)="rar" or right(files(i), 3)="mpg" or right(files(i), 3)="doc" or right(files(i), 4)="docx" or right(files(i), 3)="pdf" or right(files(i), 3)="wmv" or right(files(i), 3)="flv" or right(files(i), 3)="xls" or right(files(i), 4)="xlsx" or right(files(i), 3)="ppt" or right(files(i), 4)="pptx" or right(files(i), 3)="swf" or right(files(i), 3)="gif" or right(files(i), 3)="png" or right(files(i), 3)="bmp" or right(files(i), 3)="jpg") and Upload.UploadedFiles(fileKey).Length<20000000) then files(i)="" end if end if next next end if 'Move File: m_Ref="" m_GenNow2=GenNow2() for i=1 to m_NumFile if files(i)<>"" then Set fso=CreateObject("Scripting.FileSystemObject") if (fso.FileExists(sys_RefPath & "temp_" & sys_FileFolder & "\" & files(i))) then ' File Rename: if sys_FileRename=true then Set oFile=fso.GetFile(sys_RefPath & "temp_" & sys_FileFolder & "\" & files(i)) m_FileName=replace(Server.URLEncode(files(i)), "%2E", ".") m_FileName=replace(m_FileName, "+", " ") m_FileName=replace(m_FileName, "%", "") m_FileName=m_GenNow2 & "_" & m_FileName oFile.Name=m_FileName Set oFile=Nothing files(i)=m_FileName end if fso.MoveFile sys_RefPath & "temp_" & sys_FileFolder & "\" & files(i), sys_RefPath & sys_FileFolder & "\" else if sys_FileRename=true then m_FileName=replace(Server.URLEncode(files(i)), "%2E", ".") m_FileName=replace(m_FileName, "+", " ") m_FileName=replace(m_FileName, "%", "") m_FileName=m_GenNow2 & "_" & m_FileName files(i)=m_FileName end if end if Set fso=Nothing end if Next for i=1 to m_NumFile if files(i)<>"" then if i<=9 then m_GenNow=GenNow & "-0" & i else m_GenNow=GenNow & "-" & i end if m_sql="Insert into " & m_News_ObjectName & "_Item_Files (" m_sql=m_sql & "ItemID, " m_sql=m_sql & "Picture, " m_sql=m_sql & "Created, " m_sql=m_sql & "LockItemObject, " m_sql=m_sql & "Note_1, " m_sql=m_sql & "Note_2, " m_sql=m_sql & "Note_3" m_sql=m_sql & ") Values (" m_sql=m_sql & "'" & FormatSQLText(m_ContactUsID) & "' " m_sql=m_sql & ",'" & FormatSQLText(files(i)) & "' " m_sql=m_sql & ",'" & FormatSQLText(m_GenNow) & "' " m_sql=m_sql & ",'" & FormatSQLText(m_ContactUsForm_LockItemObject) & "' " m_sql=m_sql & ",'' " m_sql=m_sql & ",'' " m_sql=m_sql & ",'' " m_sql=m_sql & ")" ExeSql(m_sql) end if Next end if Set Upload = Nothing if m_Unlimit_File=true and m_ShowUpload=true then Response.Buffer=true Response.Clear Response.Redirect sys_RefURL & "demo_1_nv2e/contactus_PictureUpload2.asp?ItemID=" & Server.URLencode(m_ContactUsID) else if sys_SaveToDatabase=true then m_data=GetData("select name, details from " & m_News_ObjectName & "_Item_e1 WHERE LockItemObject='" & FormatSQLText(m_ContactUsForm_LockItemObject) & "' and ItemID='" & FormatSQLText(m_ContactUsID) & "'") if Not IsEmpty(m_data) then m_Subject=m_data(0, 0) m_body2=m_data(1, 0) m_data2=GetData("select Picture from " & m_News_ObjectName & "_Item_Files WHERE LockItemObject='" & FormatSQLText(m_ContactUsForm_LockItemObject) & "' and ItemID='" & FormatSQLText(m_ContactUsID) & "' order by Priority, Created") if Not IsEmpty(m_data2) then m_body2=m_body2 & "" m_body2=m_body2 & "

" m_numrows=ubound(m_data2, 2) for i=0 to m_numrows If m_data2(0, i) <> "" Then m_body2=m_body2 & "" if sys_L="b" then m_body2=m_body2 & "檔案" & i+1 & ":" if sys_L="g" then m_body2=m_body2 & "档案" & i+1 & ":" if sys_L="e" then m_body2=m_body2 & "File " & i+1 & ":" m_body2=m_body2 & "
" if sys_L="b" then m_body2=m_body2 & "檔案名稱:" if sys_L="g" then m_body2=m_body2 & "档案名称:" if sys_L="e" then m_body2=m_body2 & "File Name:" m_body2=m_body2 & " " & m_data2(0, i) m_body2=m_body2 & "
" m_body2=m_body2 & "" if sys_L="b" then m_body2=m_body2 & "按滑鼠右鍵及儲存檔案" if sys_L="g" then m_body2=m_body2 & "按滑鼠右键及储存档案" if sys_L="e" then m_body2=m_body2 & "Right Click and Save the File" m_body2=m_body2 & "" m_body2=m_body2 & "
" end if Next m_body2=m_body2 & "

" end if end if end if m_body="" m_body=m_body & "" m_body=m_body & "E-mail" m_body=m_body & sys_style m_body=m_body & "" m_body=m_body & "" m_body=m_body & m_body2 & "" Call SendEmail(sys_MailFrom, sys_MailTo, m_Subject, m_body) Response.Redirect "p5.asp?ItemID=" & Server.URLencode(m_ContactUsID) & "&OK=" & m_OK end if end if if request("action")<>"" then m_ContactUsID=request("ItemID") m_data=GetData("select name, details from " & m_News_ObjectName & "_Item_e1 WHERE LockItemObject='" & FormatSQLText(m_ContactUsForm_LockItemObject) & "' and ItemID='" & FormatSQLText(m_ContactUsID) & "'") if Not IsEmpty(m_data) then m_Subject=m_data(0, 0) m_body2=m_data(1, 0) m_data2=GetData("select Picture from " & m_News_ObjectName & "_Item_Files WHERE LockItemObject='" & FormatSQLText(m_ContactUsForm_LockItemObject) & "' and ItemID='" & FormatSQLText(m_ContactUsID) & "' order by Priority, Created") if Not IsEmpty(m_data2) then m_body2=m_body2 & "" m_body2=m_body2 & "

" end if end if m_body="" m_body=m_body & "" m_body=m_body & "E-mail" m_body=m_body & sys_style m_body=m_body & "" m_body=m_body & "" m_body=m_body & m_body2 & "" Call SendEmail(sys_MailFrom, sys_MailTo, m_Subject, m_body) end if%> MAX Circuits Limited <%if request("OK")<>"" then%> <%else%> <%end if%>

HOME
ABOUT US
- Company Profile
- Vision and Mision
- Plant Capacity
PRODUCTS
- Rigid and HDI
- Aluminium
- Flex and Rigid Flex
- Lead Time
QUALITY
- Quality Assurance
- QC Procedure
- Enviroment Policy
MANUFACTURE
- Capabilities
- Material List
- Factory Tour
ENQUIRY
CONTACT US

?Send=1" enctype="multipart/form-data"> <%if m_ShowForm=true then%> <%if sys_L="b" then%> <%if sys_B2C=false then%> <%end if%> <%end if%> <%if sys_L="g" then%> <%if sys_B2C=false then%> <%end if%> <%end if%> <%if sys_L="e" then%> <%if sys_B2C=false then%> <%end if%> <%end if%> <%end if%> <%if sys_L="b" then%> <%end if%> <%if sys_L="g" then%> <%end if%> <%if sys_L="e" then%> <%end if%>

<%if sys_L="b" then%>閣下亦可以透過以下表格和我們聯絡:<%end if%> <%if sys_L="g" then%>阁下亦可以透过以下表格和我们联络:<%end if%> <%if sys_L="e" then%>You can send us an enquiry by using the form below:<%end if%>
姓名:*
性別:	女士先生
公司名字:*
聯絡電話:*
傳真:
電郵地址:*
其他訊息:
姓名:*
性别:	女士先生
公司名字:*
联络电话:*
传真:
电邮地址:*
其他讯息:
Name:*
Gender:	Ms. Mr.
Company Name:*
Tel:*
Fax:
E-mail Address:*
Message to us:
有 (*) 的資料欄是必須填寫的。
有 (*) 的资料栏是必须填写的。
Fields marked with an asterisk (*) are required.

" > " >