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.

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

שאלון

<% 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) Response.Write("

" & vbCrLf) Set f=Nothing Set fs=Nothing %>

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

דואר אלקטרוני שם שלח תשובות אל חברת EBSD