//QM v2.9. Do not edit with text editor!!! // 896 0 ~-̺Pz#υ#MN% run after answering 1 and 2 and pressing ok on HTML_dialog_sample 0 3603044F 0 // There has to be a better way to get all 100 or more answers and // give out information bast on the way the questions where answered // if(q14 = -1 and q24 = -1) // out "You seam not to care about cats or dogs" // You seam not to care about cats or dogs ARRAY(str) a ;;declare array of strings a.create(100) ;;add 100 empty elements a[0]=q11 ;;set 1 element a[1]=q21 ;;set 2 element a[2]=q31 ;;set 3 element a[3]=q41 ;;set 4 element str s s.format("Questioner1: = A %s[]Questioner1: = B %s[]Questioner1: = C %s[]Questioner1: = D %s" q11 q12 q13 q14) if(q11 = -1) out "Your answer to Question one is Yes" if(q12 = -1) out "Your answer to Question one is No" if(q13 = -1) out "Your answer to Question one is Cats are ok but Dogs are better" if(q14 = -1) out "Your answer to Question one is None of the above" s.format("Questioner2: = A %s[]Questioner2: = B %s[]Questioner2: = C %s[]Questioner2: = D %s" q21 q22 q23 q24) if(q21 = -1) out "Your answer to Question two is Yes" if(q22 = -1) out "Your answer to Question two is No" if(q23 = -1) out "Your answer to Question two is Cats are ok but Dogs are better" if(q24 = -1) out "Your answer to Question two is None of the above" s.format("Questioner3: = A %s[]Questioner3: = B %s[]Questioner1: = C %s[]Questioner1: = D %s" q31 q32 q33 q34) if(q31 = -1) out "Your answer to Question three is Yes" if(q32 = -1) out "Your answer to Question three is No" if(q33 = -1) out "Your answer to Question three is Cats are ok but Dogs are better" if(q34 = -1) out "Your answer to Question three is None of the above" s.format("Questioner4: = A %s[]Questioner4: = B %s[]Questioner2: = C %s[]Questioner2: = D %s" q41 q42 q43 q44) if(q41 = -1) out "Your answer to Question four is Yes" if(q42 = -1) out "Your answer to Question four is No" if(q43 = -1) out "Your answer to Question four is Cats are ok but Dogs are better" if(q44 = -1) out "Your answer to Question four is None of the above" if(q14 = -1 and q24 = -1) out "You seam not to care about cats or dogs" Macro2 0 3602E607 0 Macro 0 3602FEA7 0 HTML_dialog_sample F12 8 3602E8A0 0 out str- t_form_data ;;on OK will be populated with form data str controls = "3" str ax3SHD ax3SHD="" ;;about:blank if(!ShowDialog("HTML_dialog_proc" &HTML_dialog_proc &controls)) ret out t_form_data HTML_dialog_proc 8 36006A08 0 \Dialog_Editor function# hDlg message wParam lParam if(hDlg) goto messages BEGIN DIALOG 0 "" 0x90CF0A44 0x100 0 0 355 198 "Dialog" 3 ActiveX 0x54030000 0x0 0 0 356 178 "SHDocVw.WebBrowser" 1 Button 0x54030001 0x4 256 182 48 14 "OK" 2 Button 0x54030000 0x4 306 182 48 14 "Cancel" END DIALOG DIALOG EDITOR: "" 0x2030001 "" "" "" ret messages sel message case WM_INITDIALOG get empty document MSHTML.HTMLDocument doc doc=DT_GetHtmlDocument(hDlg 3) doc.open("text/html") create html str form.getmacro("sample html form") doc.write("