Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'typically handled in some form of {for each field in rs.fields} loop
' this number will vary from datasource, number appropriately
If Field.DataType = ** Then
StrCheckboxes = StrCheckBoxes & Field.Name & ","
End If
<input type="hidden" name="checkboxvalidate" value="<%=strCheckBoxes%>">
If Request("checkboxvalidate") <> "" then
arrCheckBoxes = split(Request("checkboxvalidate"),",")
' on each checkbox de-apply naming convention in order to derivate the field name
for each Check in arrCheckBoxes
If Request(check) = "on" Then
InsSqlCheckNames = strSqlChecks & check & ", "
InsSqlCheckValues = strSqlChecks & "True, "
UpdSqlChecks = strSqlChecks & check & "=True, "
Else
InsSqlCheckNames = strSqlChecks & check & ", "
InsSqlCheckValues = strSqlChecks & "False, "
UpdSqlChecks = strSqlChecks & check & "=False, "
End If
Next
End If
If Action = "Update" then
SQL = "Update <table> Set >" & UpdSqlChecks & "<othervalues Where <conditions>"
ElseIf Action = "Insert" then
SQL = "Insert into <table>(>" & InsSqlCheckNames & "<fieldnames>) values(>" & InsSqlCheckValues & "<othervalues>)"
Else..~<crop>