This page is in Hebrew since it offers a service that is given in Israel only. If you want to contact the company, please use the email: ehood@ebsd.co.il.

EBSD Logo  השקט הנפשי שלכם הוא העסק שלנו

שאלון

<% dim quest dim fs, f, b, q_n dim i dim p dim b_weight, b_yes, b_no dim n_sec p = "

" // Check if we got the quest nuber as a parameter quest=Request.QueryString("quest") if quest = "" then quest="1" end if Response.Write("" & vbCrLf) // Open the file Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("quest" & quest & ".txt"), 1) // Read the header of the quest b = f.ReadLine Response.Write(p & "" & b & "
" & vbCrLf) Response.Write("

" & vbCrLf) Response.Write("" & vbCrLf) q_n = 0 // Question number n_sec = 0 // Number os sections // Go over all the lines do while f.AtEndOfStream = False q_n = q_n + 1 // Advance the question number b = f.ReadLine if mid(b, 1,1) = "#" then b = mid(b,2) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) b = f.ReadLine end If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) loop // Close the file and finish f.Close Response.Write("
" & b & "
" & q_n & ". " & b & "" & vbCrLf) Response.Write("כן " & vbCrLf) Response.Write("לא " & vbCrLf) Response.Write("לפעמים " & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("


" & vbCrLf) Response.Write("
" & vbCrLf) // Write the number of questions Response.Write("" & vbCrLf) // Create the button to calculaye all Response.Write(p & "" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("
" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("
" & vbCrLf) Set f=Nothing Set fs=Nothing %>

במידה ותירצה לשלוח לנו את תוצאות השאלון, נחזור אליך עם המלצות לפעולה. אנא מלא את כתובת הדואר האלקטרונית שלך בתיבה המתאימה ולחץ על הכפתור.

דואר אלקטרוני שם


חזרה לדף הבית