% set_language=1 %> <% if session("username") = "" then 'Response.Redirect "login.asp?redirect=" & request("script_name") Response.Redirect "umamizone_login.asp" end if response.addheader "Cache-Control", "no-store" response.addheader "Cache-Control", "no-cache" response.addheader "Pragma", "no-cache" response.addheader "Cache-Control", "max-age=0, must-revalidate" response.addheader "Expires", Now-1 session.timeout = 300 %> <% ' language dependent field/message names if set_language = 1 then ' English ' ********** general g_selectbelow = "-- select below --" ' ********** sign-up fields g_msg_requiredindicator = "(* indicates required field)" g_personaldetails = "Personal Details" g_firstname = "Given Name" g_title = "Title" g_lastname = "Surname" g_race = "Race" g_sex = "Sex" g_status = "Status" g_dob = "Date of Birth" g_income = "Income Range" g_job = "Job Description" g_knowby = "How do you know about ""UMAMI Zone""?" g_introduce = "Introduced By" g_contactinfo = "Contact Information" g_address = "Address" g_state = "State" g_country = "Country" g_accountinfo = "Account Information" g_username = "User Name" g_password = "Password" g_confirmpassword = "Re-type Password" g_passwordlen = "(at least 6 characters)" g_usernamelen = "(at least 4 characters)" g_introducedbydesc = "(Please insert member's ID, 6 digits)" g_email = "E-mail Address" g_incaseforgotpassword = "In case you forgot your password.." g_secretquestion = "Security Question" g_secretanswer = "Your Answer" g_termscondition = "Terms of Service" g_iagree = "I agree with the " & g_termscondition g_agreement = "1. Computer programs, whether in source or object code, shall be protected as literary works under the Berne Convention (1971)." & vbNewLine & _ "2. Compilations of data or other material, whether in machine readable or other form, which by reason of the selection or arrangement of their contents constitute intellectual creations shall be protected as such. Such protection, which shall not extend to the data or material itself, shall be without prejudice to any copyright subsisting in the data or material itself." ' ********** sign-up error message g_errmsg_required = " is a required field." g_errmsg_numeric = " must be a number." g_errmsg_statenotmalaysia = "You must enter your state if your country is not Malaysia." g_errmsg_statemalaysia = "Select your state from the drop-down list box." g_errmsg_usernamelen = "Username must be at least 4 characters." g_errmsg_pswdlen = "Password must be at least 6 characters." g_errmsg_pswdnotmatch = g_confirmpassword & " does not match." g_errmsg_email = "Invalid " & g_email & "." g_errmsg_agreement = "You must agree with the " & g_termscondition g_errmsg_username = g_username & " already exists in our database. Please choose another." g_errmsg_emailexist = g_email & " already exists in our database." g_errmsg_email = g_email & " is not valid." g_errmsg_invaliddate = g_dob & " is not a valid date." ' ********** changepasssword fields and message g_changepasswordtitle = "Change Password" g_oldpassword = "Current Password" g_errmsg_pswdwrong = "Wrong " & g_oldpassword & "." ' ********** login error message g_errmsg_login = "Invalid login credentials." ' ********** forgot password message 'g_msg_forgotpassword = "Forgot your password? Just submit your username and provide the answer to your secret question and we'll send you the password right away!" 'g_errmsg_forgotpassword = "No account with this " & g_username g_msg_forgotpasswordemailsubject = "Ajinomoto.com.my : Umami Zone Login Information" 'g_msg_forgotpasswordemailbody = "Dear %name%," & vbNewLine & vbNewLine & "Your password is %password%" g_msg_forgotpasswordemailbody = "Dear %name%," & vbNewLine & vbNewLine & "Please find your Umami Zone member login details below:" & vbNewLine & vbNewLine & "Username: %username%" & vbNewLine & "Password: %password%" 'g_msg_forgotpasswordwronganswer = g_secretanswer & " is not correct." 'new requirement, verification on email and birthdate g_msg_forgotpassword = "Forgot your password? Just submit your email and date of birth and we'll send you the password right away!" 'g_errmsg_forgotpassword = "No account with this " & g_email g_errmsg_forgotpassword = "The date of birth is not valid with this Email address" g_msg_forgotpasswordwronganswer = g_dob & " is not correct." ' ********** welcome message f_yourmemberid = "Your Member ID : " f_firsttimelogin = "Welcome, %name%! Thank you for signing up with us." f_subsqlogin = "Welcome back, %name%! Your last login was on %lastlogin%." g_msg_signupemailsubject = "Thank you for signing up as Ajinomoto.com.my member" g_msg_signupemailbody = "Dear %name%," & vbNewLine & vbNewLine & "We welcome you as a member of Ajinomoto.com.my." & vbNewLine & vbNewLine & "Your Member ID : %memberid%" & vbNewLine & "Your username : %username%" & vbNewLine & "Your password : %password%" ' ********** send recipe link g_friendemail = "Friend's Email" g_fullname = "Your Name" g_msg_recipelinkemailsubject = "%name% has sent you a recipe link in Ajinomoto.com.my" g_msg_recipelinkemailbody = "Hi," & vbNewLine & vbNewLine & "%name% has sent you a recipe link in Ajinomoto.com.my. Please visit - http://www.ajinomoto.com.my/html/sign-up.asp" & vbNewLine & vbNewLine & "Personal Message:" & vbNewLine & "%personalmsg%" ' ********** questionnaire g_qs_title1 = "Questionnaire (Page 1 of 3)" g_qs_title2 = "Questionnaire (Page 2 of 3)" g_qs_title3 = "Questionnaire (Page 3 of 3)" g_qs_desc = "Kindly fill up some questions so that we could improve and serve you better" g_qs_q1 = "Which AJINOMOTO® products have you been using for the past 3 months?" g_qs_plssel = "Please select " g_qs_q1_or = "Or " g_qs_q2a = "Which product you use the most?" g_qs_q2b = "How often you use this product?" g_qs_q3 = "What is your opinion on AJINOMOTO® product's quality?" g_qs_q4 = "Have you heard of any negative perception about monosodium glutamate (MSG)?" g_qs_q5 = "Where did you hear these negative perceptions about MSG from?" g_qs_q6 = "Do you believe these negative perceptions?" g_qs_q7 = "What is the most common statements you heard about?" g_qs_q1_notused = "I have not used any AJINOMOTO® products in the past 3 months." g_qs_atleastone = "Please select at least one product. If you have not used any AJINOMOTO® products in the past 3 months, check the option at the bottom." g_qs_atleastoneperception = "Please select at least one ""Where did you hear these negative perceptions about MSG from?"" or please specify, if others" ' ********** contest g_contest_desc = "Match the correct description with the picture (left). You may enter this contest twice." g_contest_required = "Enter your answer for " g_contest_numeric = " answer must be numeric." g_contest_twotimes = "Sorry. You can only enter this contest two times." g_1 = "Foods Rich in Glutamate" g_2 = "Environmental Management System" g_3 = "General Food Seasonings" g_4 = "The Fifth Basic Taste" g_5 = "Chicken Stock with 'Tumis'" g_6 = "Raw Material of AJI-NO-MOTO®" elseif set_language = 2 then 'BM ' ********** general g_selectbelow = "-- Pilih di bawah --" ' ********** sign-up fields g_msg_requiredindicator = "(Medan ditandakan dengan tanda bintang * seperti yang dikehendaki)" g_personaldetails = "Butir Peribadi" g_firstname = "Nama Diri" g_title = "Gelaran" g_lastname = "Nama Keluarge" g_race = "Bangsa" g_sex = "Jantina" g_status = "Taraf Perkahwinan" g_dob = "Tarikh Lahir" g_income = "Pendapatan" g_job = "Pekerjaan" g_knowby = "Bagaimana anda mengetahui ""Zon Umami""?" g_introduce = "Dikenali Oleh" g_contactinfo = "Maklumat Hubungan" g_address = "Alamat" g_state = "Negeri" g_country = "Negara" g_accountinfo = "Maklumat Akaun" g_username = "ID Pengguna" g_password = "Kata Laluan" g_confirmpassword = "Taipkan semula kata laluan" g_passwordlen = "(Sekurang-kurangnya 6 angka)" g_usernamelen = "(Sekurang-kurangnya 4 huruf)" g_introducedbydesc = "(Sila taipkan ID Pengguna, 6 angka)" g_email = "Emel" g_incaseforgotpassword = "Jika anda terlupa kata laluan.." g_secretquestion = "Soalan Keselamatan" g_secretanswer = "Jawapan Anda" g_termscondition = "Syarat-syarat Perkhidmatan" g_iagree = "Saya setuju dengan" & g_termscondition g_agreement = "1.Perisian komputer, sama ada dalam bentuk kod atau sumber, adalah dilindungi sebagai karya kesusasteraan di bawah Konvensyen Berne (1971)." & vbNewLine & _ "2.Himpunan data atau bahan-bahan lain, sama ada dalam bentuk yang boleh dibaca oleh mesin atau bentuk-bentuk lain, yang melalui sebab-sebab pemilihan atau penyusunan kandungan mengandungi karya intelek dan seumpamanya adalah dilindungi. Perlindungan seumpama ini, yang tidak meliputi data atau bahan-bahan tersebut, tidak mempunyai prejudis terhadap hakcipta sedia ada data mahupun bahan-bahan tersebut." ' ********** sign-up error message g_errmsg_required = " adalah seperti yang dikehendaki" g_errmsg_numeric = " mesti terdiri daripada angka." g_errmsg_statenotmalaysia = "Sila isikan negeri anda sekiranya negara anda bukan berada di Malaysia." g_errmsg_statemalaysia = "Sila pilih negeri anda dalam kotak pilihan yang disediakan." g_errmsg_usernamelen = "ID pengguna mesti sekurang-kurangnya 4 huruf." g_errmsg_pswdlen = "Kata laluan mesti sekurang-kurangnya 6 angka." g_errmsg_pswdnotmatch = g_confirmpassword & " tidak sepadan." g_errmsg_email = "Tidak sah " & g_email & "." g_errmsg_agreement = "Anda mesti setuju dengan syarat-syarat perkhidmatan " & g_termscondition g_errmsg_username = g_username & " sudah terdapat dalam pangkalan data. Sila pilih yang lain." g_errmsg_emailexist = g_email & " sudah terdapat dalam pangkalan data." g_errmsg_email = g_email & " Tidak sah." g_errmsg_invaliddate = g_dob & " Tarikh tidak sah." ' ********** changepasssword fields and message g_changepasswordtitle = "Tukar Kata Laluan" g_oldpassword = "Kata Laluan Kini" g_errmsg_pswdwrong = "Salah " & g_oldpassword & "." ' ********** login error message g_errmsg_login = "Maklumat Log Masuk tidak sah." ' ********** forgot password message 'g_msg_forgotpassword = "Terlupa kata laluan anda? Hantar ID Pengguna anda dan berikan jawapan untuk soalan keselamatan dan kami akan hantar kata laluan anda sekarang!" 'g_errmsg_forgotpassword = "Tiada maklumat akaun tersebut " & g_username g_msg_forgotpasswordemailsubject = "Ajinomoto.com.my : Maklumat Log Masuk Anda" g_msg_forgotpasswordemailbody = "Kepada %nama%," & vbNewLine & vbNewLine & "Kata Laluan anda adalah %password%" 'g_msg_forgotpasswordwronganswer = g_secretanswer & " Salah." 'new requirement, verification on email and birthdate g_msg_forgotpassword = "Terlupa kata laluan anda? Hantar e-mel dan hari kelahiran anda dan kami akan e-mel kata laluan anda sekarang!" 'g_errmsg_forgotpassword = "Tiada maklumat akaun tersebut " & g_email g_errmsg_forgotpassword = "Tiada maklumat akaun bagi Emel tersebut" 'g_msg_forgotpasswordwronganswer = g_dob & " Salah." g_msg_forgotpasswordwronganswer = "Tarikh kelahiran adalah tidak sah bagi Emel tersebut." ' ********** welcome message f_yourmemberid = "ID Pengguna anda : " f_firsttimelogin = "Selamat Datang, %name%! Terima kasih atas pendaftaran anda." f_subsqlogin = "Selamat kembali, %name%! Log masuk terakhir anda adalah %lastlogin%" g_msg_signupemailsubject = "Terima kasih atas pendaftaran anda sebagai ahli Ajinomoto.com.my" g_msg_signupemailbody = "Kepada %nama%," & vbNewLine & vbNewLine & "Kami mengalu-alukan pendaftaran anda sebagai ahli Ajinomoto.com.my." & vbNewLine & vbNewLine & "ID Pengguna anda : %memberid%" & vbNewLine & "ID Pengguna : %username%" & vbNewLine & "Kata Laluan : %password%" ' ********** send recipe link g_friendemail = "Emel Kawan" g_fullname = "Nama anda" g_msg_recipelinkemailsubject = "%name% telah mengirimkan anda link resipi di Ajinomoto.com.my" g_msg_recipelinkemailbody = "Hai," & vbNewLine & vbNewLine & "%name% telah mengirimkan anda link resipi di Ajinomoto.com.my. Sila layari - http://www.ajinomoto.com.my/malay/html/sign-up.asp" & vbNewLine & vbNewLine & "Mesej anda:" & vbNewLine & "%personalmsg%" ' ********** questionnaire g_qs_title1 = "Soal Selidik (Muka surat pertama)" g_qs_title2 = "Soal Selidik (Muka surat kedua)" g_qs_title3 = "Soal Selidik (Muka surat ketiga)" g_qs_desc = "Sila jawap soalan-soalan tersebut. Soal selidik ini bertujuan untuk mempertingkatkan kualiti perkhidmatan serta kualiti produk kami." g_qs_q1 = "Produk AJINOMOTO® yang manakah anda gunakan dalam 3 bulan yang lepas ini?" g_qs_plssel = "Sila pilih " g_qs_q1_or = "Atau " g_qs_q2a = "Apakah produk yang anda seringkali gunakan?" g_qs_q2b = "Berapa lazimnya anda gunakan produk ini?" g_qs_q3 = "Apakah pendapat anda tentang kualiti produk AJINOMOTO® ?" g_qs_q4 = "Pernahkah anda dengar sebarang persepsi negatif tentang Monosodium Glutamat (MSG)?" g_qs_q5 = "Dari manakah anda dengar persepsi negatif tentang MSG?" g_qs_q6 = "Adakah anda percaya dengan persepsi negatif tersebut?" g_qs_q7 = "Apakah kenyataan yang anda sering dengar?" g_qs_q1_notused = "Saya tidak menggunakan sebarang produk AJINOMOTO® dalam 3 bulan yang lepas ini." g_qs_atleastone = "Sila pilih sekurang-kurangnya satu produk. Jika anda tidak menggunakan sebarang produk AJINOMOTO® dalam 3 bulan yang lepas ini, sila pilih pilihan lain di bawah." g_qs_atleastoneperception = "Sila pilih sekurang-kurangnya satu pilihan untuk soalan ""Dari manakah anda dengar persepsi negatif tentang MSG?"" or Lain-lain, sila sebutkan" ' ********** contest g_contest_desc = "Padankan kenyataan yang betul dengan gambar-gambar di sebelah kiri. Anda boleh menyertai pertandingan ini sebanyak dua kali:" g_contest_required = "Taipkan jawapan anda untuk" g_contest_numeric = " Jawapan anda mesti terdiri daripada angka." g_contest_twotimes = "Harap Maaf. Anda hanya boleh menyertai peraduan ini sebanyak dua kali sahaja." g_1 = "Makanan yang kaya dengan Glutamat" g_2 = "Sistem pengurusan alam sekitar" g_3 = "Perisa makanan" g_4 = "Rasa asas yang kelima" g_5 = "Pati ayam bertumis" g_6 = "Bahan-bahan mentah AJI-NO-MOTO®" else 'Chinese ' ********** general g_selectbelow = "--选择以下--" ' ********** sign-up fields g_msg_requiredindicator = "(*表示必须填写的部分)" g_personaldetails = "个人细节" g_firstname = "名号" g_title = "称呼" g_lastname = "姓氏" g_race = "种族" g_sex = "性别" g_status = "状况" g_dob = "出生日期" g_income = "收入范围" g_job = "工作性质" g_knowby = "你如何得知'UMAMI天地'?" g_introduce = "介绍人" g_contactinfo = "联络资料" g_address = "地址" g_state = "州属" g_country = "国家" g_accountinfo = "帐户资料" g_username = "用户名称" g_password = "密码" g_confirmpassword = "重新输入密码" g_passwordlen = "(至少6个字符)" g_usernamelen = "(至少 4个字符)" g_introducedbydesc = "(请输入会员的帐号ID ,由6位数字组成)" g_email = "电子邮件地址" g_incaseforgotpassword = "万一你忘记了你的密码.." g_secretquestion = "安全问题" g_secretanswer = "你的答案" g_termscondition = "条款和条件" g_iagree = "我同意" & g_termscondition g_agreement = "1.电脑程式,无论是来源或目标代码,应该被视为文学作品并在伯尔尼公约( 1971年)下受到保护" & vbNewLine & _ "2.数据或其他资料的汇编,无论机器可读或是其他形式,只要由于对其内容的选取或编排构成智力创作,即应作为智力创作加以保护。该保护不得延伸至数据或资料本身,并不得损害存在于数据或资料本身的任何版权" ' ********** sign-up error message g_errmsg_required = "是必须填写的部分" g_errmsg_numeric = "必须是一个数字" g_errmsg_statenotmalaysia = "你必须输入你的州属,如果你的国家不是马来西亚" g_errmsg_statemalaysia = "从下拉式列表框中选择你的州属" g_errmsg_usernamelen = "用户名称必须至少4个字符" g_errmsg_pswdlen = "密码必须至少6个字符" g_errmsg_pswdnotmatch = g_confirmpassword & "不符合" g_errmsg_email = "无效" & g_email & "." g_errmsg_agreement = "你必须同意" & g_termscondition g_errmsg_username = g_username & "已经存在于我们的数据库。请选择另一个。" g_errmsg_emailexist = g_email & "已经存在于我们的数据库。" g_errmsg_email = g_email & "不是有效的。" g_errmsg_invaliddate = g_dob & "不是一个有效的日期。" ' ********** changepasssword fields and message g_changepasswordtitle = "更改密码" g_oldpassword = "当前密码" g_errmsg_pswdwrong = "错误" & g_oldpassword & "." ' ********** login error message g_errmsg_login = "无效的登录凭据" ' ********** forgot password message 'g_msg_forgotpassword = "忘记了您的密码?只要提呈您的用户名称并提供您所设下的秘密问题的回答,我们就会马上向您发送您的密码!" 'g_errmsg_forgotpassword = "没有户口本" & g_username g_msg_forgotpasswordemailsubject = "Ajinomoto.com.my : 您的登录资料" g_msg_forgotpasswordemailbody = "亲爱的%name%," & vbNewLine & vbNewLine & "你的密码是%password%" 'g_msg_forgotpasswordwronganswer = g_secretanswer & "是不正确的。" 'new requirement, verification on email and birthdate g_msg_forgotpassword = "忘记了您的密码?只需输入您的电邮及生日日期,我们将会把您的密码发送至您的电邮!" 'g_errmsg_forgotpassword = "没有户口本" & g_email g_errmsg_forgotpassword = "此电邮户口并不存在" 'g_msg_forgotpasswordwronganswer = g_dob & "是不正确的。" g_msg_forgotpasswordwronganswer = "此生日日期与户口并不符合" ' ********** welcome message f_yourmemberid = "您的会员编号:" f_firsttimelogin = "欢迎, %name%! 谢谢您跟我们注册。" f_subsqlogin = "欢迎回来, %name%!您上一次登入是在%lastlogin%。" g_msg_signupemailsubject = "谢谢您注册成为Ajinomoto.com.my的会员" g_msg_signupemailbody = "亲爱的 %name%," & vbNewLine & vbNewLine & "我们热烈欢迎您成为Ajinomoto.com.my的会员。" & vbNewLine & vbNewLine & "您的会员编号: %memberid%" & vbNewLine & "你的用户名称: %username%" & vbNewLine & "你的密码: %password%" ' ********** send recipe link g_friendemail = "朋友的电子邮件地址" g_fullname = "你的名字" g_msg_recipelinkemailsubject = "%name% 发送了一个在Ajinomoto.com.my食谱链接给您" g_msg_recipelinkemailbody = "嘿," & vbNewLine & vbNewLine & "%name% 发送了一个在Ajinomoto.com.my食谱链接给您。请浏览-http://www.ajinomoto.com.my/html/sign-up.asp" & vbNewLine & vbNewLine & "个人化讯息:" & vbNewLine & "%personalmsg%" ' ********** questionnaire g_qs_title1 = "问卷(第 1页,共3页)" g_qs_title2 = "问卷(第2页 ,共3页)" g_qs_title3 = "问卷(第3页 ,共3页)" g_qs_desc = "请填上一些问题,让我们可以改善并且为您提供更好的服务" g_qs_q1 = "在过去的3个月里面,您曾经用过哪些AJINOMOTO的产品?" g_qs_plssel = "请选择" g_qs_q1_or = "或" g_qs_q2a = "哪一种是您最常使用的产品?" g_qs_q2b = "您多常使用这个产品?" 'g_qs_q3 = "What is your opinion on AJINOMOTO® product's quality?" g_qs_q3 = "对于AJINOMOTO®产品的品质,您有什么看法?" g_qs_q4 = "您有没有听说过任何有关味精(MSG)的负面看法?" g_qs_q5 = "您从哪里听到这些有关味精( MSG )的负面看法?" g_qs_q6 = "您相信这些负面看法吗?" g_qs_q7 = "您最常听到的说法是什么?" g_qs_q1_notused = "在过去3个月里面,我没有使用过任何AJINOMOTO®的产品。" g_qs_atleastone = "请选择至少一种产品。如果您在过去3个月内没有使用过任何AJINOMOTO®的产品,请在最后的选项打勾。" g_qs_atleastoneperception = "请至少选择一个 ""您从哪里听到这些有关味精( MSG )的负面看法?""或如有其它,请明确说明" ' ********** contest g_contest_desc = "把正确的描述与左图配对。您可以参与这个两次。" g_contest_required = "请输入你的答案" g_contest_numeric = "答案必须是数目字。" g_contest_twotimes = "对不起。您只能参加这个比赛两次。" g_1 = "具有丰富谷氨酸的食物" g_2 = "环保管理系统" g_3 = "一般食品调味料" g_4 = "第五种基本味道" g_5 = "有'Tumis'的鸡汤" g_6 = "AJI-NO-MOTO®的原料" end if if request("SERVER_NAME") = "localhost" or request("SERVER_NAME") = "xsun-168" then ' g_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Admin\Desktop\AJINOMOTO WEB\db\ajinomoto.mdb" ' g_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\AJINOMOTO\db\ajinomoto.mdb" g_conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\AJINOMOTO\db\ajinomoto.mdb" g_connpic = "Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\AJINOMOTO\ajinomotopicture.mdb" ' g_conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\AJINOMOTO\db\ajinomoto.mdb" else ' g_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\hshome\eritier\eritier.com\ajinomoto\db\ajinomoto.mdb;User Id=admin;Password=;" ' g_conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=E:\wwwusr\vhosts\ajinomoto-malaysia.com\httpdocs\db\ajinomoto.mdb" <-- emerge server g_conn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\vhosts\ajinomoto.com.my\httpdocs\db\ajinomoto.mdb" g_connpic = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\vhosts\ajinomoto.com.my\httpdocs\db\ajinomotopicture.mdb" end if g_webmasteremail = "corporate@ajikl.com.my" g_contestid = 2 ' constant for renderselect sub Const Select_Jobs = 1 Const Select_Countries = 2 Const Select_States = 3 Const Select_Titles = 4 Const Select_Races = 5 Const Select_Statuses = 6 Const Select_Incomes = 7 Const Select_SecurityQ = 8 Const Select_KnowBy = 9 Const Select_HowOften = 10 Const Select_Sex = 11 Sub RenderSelect(TableID, TagName, SelectedValue, OrderBy, CssStyle) ' Start the select statement... if TableID = Select_KnowBy then Response.Write "