1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
195: | <CFINCLUDE TEMPLATE="top.cfm">
<CFSET #cookie_id#=3>
<CFSET #group#=1>
<CFIF #ParameterExists(URL.page)#>
<CFIF #IsNumeric(URL.page)#>
<CFSET #group#=#URL.page#>
</CFIF>
<CFELSE>
<CFABORT>
</CFIF>
<CFOUTPUT>
<div id="subnav">
<h3 class="selected">=#cookie_id#</h3>
<ul>
<li <CFIF #group# is 1>class=selected</CFIF>>
<a href=frage.cfm?page=1>Block 1</a></li>
<li <CFIF #group# is 2>class=selected</CFIF>>
<a href=frage.cfm?page=2>Block 2</a></li>
<li <CFIF #group# is 3>class=selected</CFIF>>
<a href=frage.cfm?page=3>Block 3</a></li>
</ul>
</div>
</CFOUTPUT>
<!--- ------------------------------------------ --->
<div id="content" class="afternav">
<CFQUERY NAME="Get" DATASOURCE="aerzte">
SELECT qry.*
FROM qry
WHERE qry.group=#group# AND qry.active=1
ORDER BY qry.id ASC;
</CFQUERY>
<CFQUERY NAME="Already" DATASOURCE="aerzte">
SELECT qry_answer.*
FROM qry_answer
WHERE qry_answer.partcp_id=#cookie_id# AND qry_answer.active=1;
</CFQUERY>
<CFSET #error#="">
<CFSET #blacklist#= "#chr(59)#,#chr(34)#,#chr(39)#,%22,--">
<CFOUTPUT QUERY="Get">
<CFIF #PARAMETEREXISTS(fieldnames)#>
<CFIF #ReFindNoCase(qryvar,fieldnames)# is not 0>
<CFSET #sc#=#Evaluate("FORM.#qryvar#")#>
<CFLOOP index="i" list="#blacklist#">
<CFIF #Find(i,sc)# is not 0>
<CFSET #msg# = "not allowed">
<CFSET #error# = #error# & "|" & #qryvar# & ":" & #msg#>
</CFIF>
</CFLOOP>
<CFIF #sc# is "" AND #qryvar# is not "terminator">
<CFSET #msg# = "missing">
<CFSET #error# = #error# & "|" & #qryvar# & ":" & #msg#>
</CFIF>
<CFIF #Find("int",qrytype)# is not 0 AND NOT #Isnumeric(sc)#>
<CFSET #msg# = "not numeric">
<CFSET #error# = #error# & "|" & #qryvar# & ":" & #msg#>
</CFIF>
<CFIF #Find("varchar",qrytype)# is not 0 AND NOT #IsSimpleValue(sc)#>
<CFSET #msg# = "not character">
<CFSET #error# = #error# & "|" & #qryvar# & ":" & #msg#>
</CFIF>
<CFIF #Find("datetime",qrytype)# is not 0 AND NOT #IsDate(sc)#>
<CFSET #msg# = "not a date">
<CFSET #error# = #error# & "|" & #qryvar# & ":" & #msg#>
</CFIF>
<CFIF #GetToken(valid,1,":")# is "range">
<CFIF #sc# lt #GetToken(valid,2,":")# OR #sc# gt #GetToken(valid,3,":")#>
<CFSET #msg# = "out of range ">
<CFSET #error# = #error# & "|" & #qryvar# & ":" & #msg#>
</CFIF>
</CFIF>
<CFELSE>
<CFSET #msg#="missing">
<CFSET #error# = #error# & "|" & #qryvar# & ":" & #msg#>
</CFIF>
</CFIF>
</CFOUTPUT>
<!--- ------------------------------------------ --->
<CFIF #error# is not "" OR NOT #PARAMETEREXISTS(fieldnames)#>
<CFOUTPUT>
<FORM method=POST action="frage.cfm?page=#URL.page#">
Block #group#<BR>
</CFOUTPUT>
<table width=400 border=0 bgcolor="lightyellow">
<CFOUTPUT QUERY="Get">
<tr><td colspan=3><hr size=1></td></tr>
<tr>
<td width=200>#text#</td>
<td width=200 align=right <CFIF ListContains(error,qryvar,"|") gt 0>bgcolor=orange</CFIF>>
<CFSET #ar#="">
<CFIF #ListFind(ValueList(Already.qry_id),id)# gt 0>
<CFSET #ar#=#ListGetAt(ValueList(Already.response),ListFind(ValueList(Already.qry_id),id))#>
</CFIF>
<CFIF #PARAMETEREXISTS(fieldnames)#>
<CFIF #ReFindNoCase(qryvar,fieldnames)# is not 0>
<CFSET #ar#=#Evaluate("FORM.#qryvar#")#>
</CFIF>
</CFIF>
<CFIF #www# is "radio">
<CFLOOP INDEX="i" LIST="#response#" DELIMITERS=":">
<CFSET #s#="">
<CFIF #i# is #ar#>
<CFSET #s#="checked">
</CFIF>
<input type="radio" #s# name="#qryvar#" value="#i#">#i#
</CFLOOP>
<CFELSEIF #www# is "select">
<select name=#qryvar# size=3 multiple>
<CFLOOP INDEX="i" LIST="#response#" DELIMITERS=":">
<CFSET #s#="">
<CFIF #i# is #ar#>
<CFSET #s#="selected">
</CFIF>
<option #s# value="#i#">#i#</option>
</CFLOOP>
</select>
<CFELSEIF #www# is "checkbox">
<CFLOOP INDEX="i" LIST="#response#" DELIMITERS=":">
<CFSET #s#="">
<CFIF #i# is #ar#>
<CFSET #s#="checked">
</CFIF>
<input type="checkbox" #s# name=#qryvar# value=#i#>#i#
</CFLOOP>
<CFELSEIF #www# is "text">
<INPUT type=text NAME=#qryvar# VALUE="#ar#" align=right>
<CFELSEIF #www# is "textarea">
<textarea name=#qryvar# rows=1 wrap="soft">#ar#</textarea>
<CFELSEIF #www# is "password">
<INPUT TYPE=password NAME=#qryvar# VALUE="">
<CFELSEIF #www# is "hidden">
<INPUT TYPE=hidden NAME=#qryvar# VALUE="hidden">
</CFIF>
<CFIF ListContains(error,qryvar,"|") gt 0>
<BR>#GetToken(GetToken(error,ListContains(error,qryvar,"|"),"|"),2,":")#
</CFIF>
</td>
</tr>
</CFOUTPUT>
<tr>
<td colspan=2 align=right><input type=submit value="weiter >>>"</td>
</tr>
</table>
</FORM>
<CFELSE>
<CFTRANSACTION>
<CFIF #ListLen(ValueList(Already.qry_id))# gt 0>
<CFQUERY NAME="Save" DATASOURCE="aerzte">
UPDATE qry_answer
SET qry_answer.active=0
WHERE qry_answer.qry_id IN (#ReReplaceNoCase(ValueList(Get.id),",{1,20}",",","ALL")#) AND qry_answer.partcp_id=#cookie_id#;
</CFQUERY>
</CFIF>
<CFOUTPUT QUERY="Get">
<CFQUERY NAME="Save" DATASOURCE="aerzte">
INSERT INTO qry_answer (qry_id,partcp_id,response,active,date_entry)
VALUES (#id#,#cookie_id#,'#Evaluate("FORM.#qryvar#")#',1,'#ACTIME#');
</CFQUERY>
</CFOUTPUT>
</CFTRANSACTION>
<CFIF #PARAMETEREXISTS(fieldnames)#>
<CFIF #ReFindNoCase("terminator",fieldnames)# is not 0>
done
<CFELSE>
<CFLOCATION URL="frage.cfm?page=#int(group+1)#">
</CFIF>
</CFIF>
</CFIF>
<CFINCLUDE TEMPLATE="bottom.cfm">
|