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
| Function itemDisplay_displaySingleLine(intItemID, intQuestionCounter, boolQuestionNumberLabels, intQuestionSize, strQuestionColor, _
intQuestionDescriptionSize, strQuestionDescriptionColor, strBaseFont, intResponseID, boolEditing, strJavascript)
Dim strSQL
Dim rsResults
Dim strItemText
Dim strDescription
Dim boolIsRequired
Dim strDefaultValue
Dim strResponse
Dim intDataType
intQuestionCounter = intQuestionCounter + 1
strSQL = "SELECT itemText, itemDescription, defaultValue, isRequired, dataType " &_ "FROM usd_SurveyItem " &_ "WHERE itemID = " & intItemID
Set rsResults = utility_getRecordset(strSQL)
strItemText = rsResults("itemText")
strDescription = rsResults("itemDescription")
strDefaultValue = rsResults("defaultValue")
boolIsRequired = Cbool(rsResults("isRequired"))
intDataType = rsResults("dataType")
rsResults.Close
Set rsResults = NOTHING
If boolEditing = True and utility_isPositiveInteger(intResponseID) Then
strResponse = response_getResponseText(intResponseID, intItemID,0,0)
strDefaultValue = strResponse
End If
%>
<br/>
<font color="<%=strQuestionColor%>" face="<%=strBaseFont%>" size="<%=intQuestionSize%>">
<%
If boolIsRequired = True Then
strJavaScript = strJavaScript &_ "if(document.frmResponse.item" & intItemID & ".value == """") " &_ "{alert(""Response to: "If len(strItemText) > 100 Then
strJavascript = strJavascript & utility_javascriptEncode(mid(strItemText,1,100)) & "...."
Else
strJavascript = strJavascript & utility_javascriptEncode(strItemText)
End If
strJavascript = strJavascript & " is required."");return false;}"
%>
<%
End If
If boolQuestionNumberLabels = True Then
%>
<%=intQuestionCounter%>.
<%
End If
%>
<%=strItemText%></font>
<font color="<%=strQuestionDescriptionColor%>" face="<%=strBaseFont%>" size="<%=intQuestionDescriptionSize%>">
<%=strDescription%>
</font>
<font color="<%=strQuestionColor%>" face="<%=strBaseFont%>" size="<%=intQuestionSize%>">
<input type="text" name="item<%=intItemID%>" size="50"
value= "<%=intTicketNumber%>">
</font>
<br/>
<input type="hidden" name="itemShown<%=intItemID%>" value="true">
<br/>
<% |
Partager