<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% 'Donovan Hsieh - DWMX "Language Setting" Server Behavior Extension Dim rsLanguage Dim rsLanguage_numRows Set rsLanguage = Server.CreateObject("ADODB.Recordset") rsLanguage.ActiveConnection = MM_SiddhamConn_STRING rsLanguage.Source = "SELECT LangID, CharSet FROM LookupLanguage WHERE DefaultSetting = 'y'" rsLanguage.CursorType = 0 rsLanguage.CursorLocation = 2 rsLanguage.LockType = 1 rsLanguage.Open() rsLanguage_numRows = 0 'Donovan Hsieh - DWMX "Language Setting" Server Behavior Extension if (Session("Language") <> "") then Session.Codepage = Session("Language") else Session.Codepage = (rsLanguage.Fields.Item("LangID").Value) Session("Language") = (rsLanguage.Fields.Item("LangID").Value) End if %> <% Dim rsCountry__var1 rsCountry__var1 = "950" If (Session("Language") <> "") Then rsCountry__var1 = Session("Language") End If %> <% Dim rsCountry Dim rsCountry_numRows Set rsCountry = Server.CreateObject("ADODB.Recordset") rsCountry.ActiveConnection = MM_SiddhamConn_STRING rsCountry.Source = "SELECT Country, CountryCode FROM LookupCountry WHERE Country IS NOT NULL AND LangID = '" + Replace(rsCountry__var1, "'", "''") + "'" rsCountry.CursorType = 0 rsCountry.CursorLocation = 2 rsCountry.LockType = 1 rsCountry.Open() rsCountry_numRows = 0 %> <% Dim rsTelLocation__var1 rsTelLocation__var1 = "950" If (Session("Language") <> "") Then rsTelLocation__var1 = Session("Language") End If %> <% Dim rsTelLocation Dim rsTelLocation_numRows Set rsTelLocation = Server.CreateObject("ADODB.Recordset") rsTelLocation.ActiveConnection = MM_SiddhamConn_STRING rsTelLocation.Source = "SELECT TelLocationID, Description FROM LookupTelLocation WHERE TelLocationID <> 0 AND LangID = '" + Replace(rsTelLocation__var1, "'", "''") + "'" rsTelLocation.CursorType = 0 rsTelLocation.CursorLocation = 2 rsTelLocation.LockType = 1 rsTelLocation.Open() rsTelLocation_numRows = 0 %> <% Dim rsEducation__var1 rsEducation__var1 = "950" If (Session("Language") <> "") Then rsEducation__var1 = Session("Language") End If %> <% Dim rsEducation Dim rsEducation_numRows Set rsEducation = Server.CreateObject("ADODB.Recordset") rsEducation.ActiveConnection = MM_SiddhamConn_STRING rsEducation.Source = "SELECT EducationID, Education FROM LookupEducation WHERE EducationID <> 0 AND LangID = '" + Replace(rsEducation__var1, "'", "''") + "'" rsEducation.CursorType = 0 rsEducation.CursorLocation = 2 rsEducation.LockType = 1 rsEducation.Open() rsEducation_numRows = 0 %> <% Dim rsProfession__var1 rsProfession__var1 = "950" If (Session("Language") <> "") Then rsProfession__var1 = Session("Language") End If %> <% Dim rsProfession Dim rsProfession_numRows Set rsProfession = Server.CreateObject("ADODB.Recordset") rsProfession.ActiveConnection = MM_SiddhamConn_STRING rsProfession.Source = "SELECT ProfessionID, Profession FROM LookupProfessions WHERE ProfessionID <> 0 AND LangID = '" + Replace(rsProfession__var1, "'", "''") + "'" rsProfession.CursorType = 0 rsProfession.CursorLocation = 2 rsProfession.LockType = 1 rsProfession.Open() rsProfession_numRows = 0 %> <% Dim rsReferenceFRom__var1 rsReferenceFRom__var1 = "950" If (Session("Language") <> "") Then rsReferenceFRom__var1 = Session("Language") End If %> <% Dim rsReferenceFRom Dim rsReferenceFRom_numRows Set rsReferenceFRom = Server.CreateObject("ADODB.Recordset") rsReferenceFRom.ActiveConnection = MM_SiddhamConn_STRING rsReferenceFRom.Source = "SELECT RefID, ReferenceFrom FROM LookupReferenceFrom WHERE RefID <> 0 AND LangID = '" + Replace(rsReferenceFRom__var1, "'", "''") + "'" rsReferenceFRom.CursorType = 0 rsReferenceFRom.CursorLocation = 2 rsReferenceFRom.LockType = 1 rsReferenceFRom.Open() rsReferenceFRom_numRows = 0 %> <% Dim rsSkills__var1 rsSkills__var1 = "950" If (Session("Language") <> "") Then rsSkills__var1 = Session("Language") End If %> <% Dim rsSkills Dim rsSkills_numRows Set rsSkills = Server.CreateObject("ADODB.Recordset") rsSkills.ActiveConnection = MM_SiddhamConn_STRING rsSkills.Source = "SELECT SkillID, Description FROM LookupSkills WHERE SkillID <> 0 AND LangID = '" + Replace(rsSkills__var1, "'", "''") + "'" rsSkills.CursorType = 0 rsSkills.CursorLocation = 2 rsSkills.LockType = 1 rsSkills.Open() rsSkills_numRows = 0 %> <% Dim rsDailyPractice__var1 rsDailyPractice__var1 = "950" If (Session("Language") <> "") Then rsDailyPractice__var1 = Session("Language") End If %> <% Dim rsDailyPractice Dim rsDailyPractice_numRows Set rsDailyPractice = Server.CreateObject("ADODB.Recordset") rsDailyPractice.ActiveConnection = MM_SiddhamConn_STRING rsDailyPractice.Source = "SELECT DailyPracticeID, DailyPractice FROM .LookupDailyPractice WHERE DailyPracticeID <> 0 AND LangID = '" + Replace(rsDailyPractice__var1, "'", "''") + "'" rsDailyPractice.CursorType = 0 rsDailyPractice.CursorLocation = 2 rsDailyPractice.LockType = 1 rsDailyPractice.Open() rsDailyPractice_numRows = 0 %> <% Dim rsRefugeeStatus__var1 rsRefugeeStatus__var1 = "950" If (Session("Language") <> "") Then rsRefugeeStatus__var1 = Session("Language") End If %> <% Dim rsRefugeeStatus Dim rsRefugeeStatus_numRows Set rsRefugeeStatus = Server.CreateObject("ADODB.Recordset") rsRefugeeStatus.ActiveConnection = MM_SiddhamConn_STRING rsRefugeeStatus.Source = "SELECT RefugeeStatusID, RefugeeStatus FROM LookupRefugeeStatus WHERE RefugeeStatusID <> 0 AND LangID = '" + Replace(rsRefugeeStatus__var1, "'", "''") + "'" rsRefugeeStatus.CursorType = 0 rsRefugeeStatus.CursorLocation = 2 rsRefugeeStatus.LockType = 1 rsRefugeeStatus.Open() rsRefugeeStatus_numRows = 0 %> <% Dim rsNumOfYearPracticed__var1 rsNumOfYearPracticed__var1 = "950" If (Session("Language") <> "") Then rsNumOfYearPracticed__var1 = Session("Language") End If %> <% Dim rsNumOfYearPracticed Dim rsNumOfYearPracticed_numRows Set rsNumOfYearPracticed = Server.CreateObject("ADODB.Recordset") rsNumOfYearPracticed.ActiveConnection = MM_SiddhamConn_STRING rsNumOfYearPracticed.Source = "SELECT NumOfYearPracticedID, NumOfYearPracticed FROM LookupNumOfYearPracticed WHERE NumOfYearPracticedID <> 0 AND LangID = '" + Replace(rsNumOfYearPracticed__var1, "'", "''") + "'" rsNumOfYearPracticed.CursorType = 0 rsNumOfYearPracticed.CursorLocation = 2 rsNumOfYearPracticed.LockType = 1 rsNumOfYearPracticed.Open() rsNumOfYearPracticed_numRows = 0 %> <% Dim rsDailyMeditationHours__var1 rsDailyMeditationHours__var1 = "950" If (Session("Language") <> "") Then rsDailyMeditationHours__var1 = Session("Language") End If %> <% Dim rsDailyMeditationHours Dim rsDailyMeditationHours_numRows Set rsDailyMeditationHours = Server.CreateObject("ADODB.Recordset") rsDailyMeditationHours.ActiveConnection = MM_SiddhamConn_STRING rsDailyMeditationHours.Source = "SELECT MeditationHoursID, DailyMeditationHours FROM LookupDailyMeditationHours WHERE MeditationHoursID <> 0 AND LangID = '" + Replace(rsDailyMeditationHours__var1, "'", "''") + "'" rsDailyMeditationHours.CursorType = 0 rsDailyMeditationHours.CursorLocation = 2 rsDailyMeditationHours.LockType = 1 rsDailyMeditationHours.Open() rsDailyMeditationHours_numRows = 0 %> Siddham - Registration ">



為因應修學者的程度設計了學習課程，請填寫報名表，以便將學習課程依進度增進。
若您使用簡體中文請至簡體中文網站報名。謝謝！

悉曇古音密咒 ─ 學員資料
  您的悉曇學員ID (請輸入電子郵件地址)*

確認電子郵件*
 悉曇學員密碼*

確認您的密碼*
* 必須輸入資料		  
  (中文)姓*
 (中文)名字* 
 (英文姓氏)Last Name
 Middle Name
(英文名)First Name
 

住址 Address
*

縣/市 City

省/州 State

郵區號 Zip

 國家 Country*
主要連絡電話
  
第二連絡電話
  
區碼
電話號碼*
 
區碼
電話號碼
 

慣用語文* type="radio" name="PreferLanguage" value="950" checked> 中文繁 type="radio" name="PreferLanguage" value="936"> 中文簡 type="radio" name="PreferLanguage" value="1252"> 英文 性別* M  F
出生年* (yyyy) 學歷*
職業 如何得知*


專長*
(可複選)





其他專長說明

日常課誦*
(可複選)
佛學資歷* 學佛年數*
禪坐經驗 坐上時數
修學歷程及個人簡介
   

Codepage:<%=Session("Language")%>
<% 'Donovan Hsieh - DWMX "Language Setting" Server Behavior Extension rsLanguage.Close() Set rsLanguage = Nothing %> <% rsCountry.Close() Set rsCountry = Nothing %> <% rsTelLocation.Close() Set rsTelLocation = Nothing %> <% rsEducation.Close() Set rsEducation = Nothing %> <% rsProfession.Close() Set rsProfession = Nothing %> <% rsReferenceFRom.Close() Set rsReferenceFRom = Nothing %> <% rsSkills.Close() Set rsSkills = Nothing %> <% rsDailyPractice.Close() Set rsDailyPractice = Nothing %> <% rsRefugeeStatus.Close() Set rsRefugeeStatus = Nothing %> <% rsNumOfYearPracticed.Close() Set rsNumOfYearPracticed = Nothing %> <% rsDailyMeditationHours.Close() Set rsDailyMeditationHours = Nothing %>