<%End If%>
<%If iCurrField <> iTotalFields Then%>
<%End If%>
');">
<%=Request("err")%>
Press here to edit your field.
<%Else Select Case sCmd Case "deletefield" ' Delete field sSQL = "DELETE FROM fbFormFields WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Request("field") & "'" conDB.Execute sSQL Response.Redirect "formdesignerfields.asp?form=" & Server.URLEncode(sFormName) Case "createfield" ' Check if a field with same code name exists sSQL = "SELECT COUNT(FieldCodeName) FROM fbFormFields WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Replace(Request("codename"), "$", "") & "'" If conDB.Execute(sSQL)(0) > 0 Then sErrorMsg = "A field with same code name already exists, please choose another." Response.Redirect Request("HTTP_REFERER") & "&err=" & Server.URLEncode(sErrorMsg) End If ' Get last field sSQL = "SELECT MAX(OrderShown) FROM fbFormFields WHERE FormName='" & sFormName & "'" Set rsTemp = conDB.Execute(sSQL) If Not IsRSEmpty(rsTemp) Then iOrder = rsTemp(0)+1 Else iOrder = 0 If Not IsNumeric(iOrder) Then iOrder = 0 rsTemp.Close ' Open field sSQL = "fbFormFields" rsData.Open sSQL, , adOpenKeyset, adLockOptimistic, adCmdTable rsData.AddNew rsData("FormName") = sFormName rsData("FieldName") = Request("name") rsData("FieldCodeName") = Replace(Request("codename"), "$", "") rsData("FieldType") = Request("type") rsData("FieldSource") = ToDB(Request("source")) If Len(Request("length")) = 0 Then rsData("FieldLength") = 0 Else rsData("FieldLength") = Request("length") If Len(Request("height")) = 0 Then rsData("FieldHeight") = 0 Else rsData("FieldHeight") = Request("height") rsData("IsRequired") = Request("required") = "1" rsData("OrderShown") = iOrder rsData.Update Response.Redirect "formdesignerfields.asp?form=" & Server.URLEncode(sFormName) Case "savefield" ' Check if a field with same code name exists If Request("field") <> Replace(Request("codename"), "$", "") Then sSQL = "SELECT COUNT(FieldCodeName) FROM fbFormFields WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Replace(Request("codename"), "$", "") & "'" If conDB.Execute(sSQL)(0) > 0 Then sErrorMsg = "A field with same code name already exists, please choose another." Response.Redirect Request("HTTP_REFERER") & "&err=" & Server.URLEncode(sErrorMsg) End If End If ' Open field sSQL = "SELECT * FROM fbFormFields WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Request("field") & "'" rsData.Open sSQL, , adOpenKeyset, adLockOptimistic, adCmdText Die IsRSEmpty(rsData), "Field does not longer exists. SQL:" & sSQL rsData("FieldName") = Request("name") rsData("FieldCodeName") = Replace(Request("codename"), "$", "") rsData("FieldType") = Request("type") rsData("FieldSource") = ToDB(Request("source")) If Len(Request("length")) = 0 Then rsData("FieldLength") = 0 Else rsData("FieldLength") = Request("length") If Len(Request("height")) = 0 Then rsData("FieldHeight") = 0 Else rsData("FieldHeight") = Request("height") rsData("IsRequired") = Request("required") = "1" rsData.Update Response.Redirect "formdesignerfields.asp?form=" & Server.URLEncode(sFormName) Case "newfield" %> <% Case "editfield" ' Open field sSQL = "SELECT * FROM fbFormFields WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Request("field") & "'" rsData.Open sSQL Die IsRSEmpty(rsData), "Field does not longer exists." %> <% Case "movefieldup" ' Get field order iCurrOrder = conDB.Execute("SELECT OrderShown FROM fbFormFields WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Request("field") & "'")(0) iPrevOrder = iCurrOrder - 1 If iPrevOrder > 0 Then ' Make previous item go to current order held by this item sSQL = "UPDATE fbFormFields SET OrderShown=" & iCurrOrder & " WHERE OrderShown=" & iPrevOrder & " AND FormName='" & sFormName & "'" conDB.Execute sSQL ' Make prev order current one for this item sSQL = "UPDATE fbFormFields SET OrderShown=" & iPrevOrder & " WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Request("field") & "'" conDB.Execute sSQL End If Response.Redirect "formdesignerfields.asp?form=" & Server.URLEncode(sFormName) Case "movefielddown" ' Get field order iCurrOrder = conDB.Execute("SELECT OrderShown FROM fbFormFields WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Request("field") & "'")(0) iNextOrder = iCurrOrder + 1 ' Make previous item go to current order held by this item sSQL = "UPDATE fbFormFields SET OrderShown=" & iCurrOrder & " WHERE OrderShown=" & iNextOrder & " AND FormName='" & sFormName & "'" conDB.Execute sSQL ' Make prev order current one for this item sSQL = "UPDATE fbFormFields SET OrderShown=" & iNextOrder & " WHERE FormName='" & sFormName & "' AND FieldCodeName='" & Request("field") & "'" conDB.Execute sSQL Response.Redirect "formdesignerfields.asp?form=" & Server.URLEncode(sFormName) Case Else %> | ||||||
| size=2><%=langMgr.GetContent("FORM_DESG_FIELD_NAME", "BackEndMessages", iInterfaceLang)%> | size=2> | size=2><%=langMgr.GetContent("FORM_DESG_CODE_NAME", "BackEndMessages", iInterfaceLang)%> | size=2> | size=2><%=langMgr.GetContent("FORM_DESG_TYPE", "BackEndMessages", iInterfaceLang)%> | size=2> | size=2> |
| ||||||
| <%=IIf(rsFields("IsRequired"), "• ", " ")%><%=rsFields("FieldName")%> | $<%=rsFields("FieldCodeName")%> | <% Select Case rsFields("FieldType") Case FBT_TEXT : Response.Write langMgr.GetContent("FORM_DESG_TYPE_TEXT", "BackEndMessages", iInterfaceLang) Case FBT_MEMO : Response.Write langMgr.GetContent("FORM_DESG_TYPE_MEMO", "BackEndMessages", iInterfaceLang) Case FBT_MAIL : Response.Write langMgr.GetContent("FORM_DESG_TYPE_EMAIL", "BackEndMessages", iInterfaceLang) Case FBT_INT : Response.Write langMgr.GetContent("FORM_DESG_TYPE_INTEGER", "BackEndMessages", iInterfaceLang) Case FBT_NUMBER : Response.Write langMgr.GetContent("FORM_DESG_TYPE_NUMERIC", "BackEndMessages", iInterfaceLang) Case FBT_CBO : Response.Write langMgr.GetContent("FORM_DESG_TYPE_COMBO", "BackEndMessages", iInterfaceLang) Case FBT_RADIOS : Response.Write langMgr.GetContent("FORM_DESG_TYPE_RADIO", "BackEndMessages", iInterfaceLang) Case FBT_CHECKBOXES : Response.Write langMgr.GetContent("FORM_DESG_TYPE_CHECKBOX", "BackEndMessages", iInterfaceLang) Case Else : Response.Write "(" & rsFields("FieldType") & ")" End Select %> |
<%If iCurrField > 1 Then%> <%End If%>
<%If iCurrField <> iTotalFields Then%> <%End If%>
');">
|
|||
| <%=langMgr.GetContent("FORM_DESG_LEGEND", "BackEndMessages", iInterfaceLang)%>: | ||
| <%=langMgr.GetContent("FORM_DESG_MOVE_UP", "BackEndMessages", iInterfaceLang)%> |
<%=langMgr.GetContent("FORM_DESG_MOVE_DOWN", "BackEndMessages", iInterfaceLang)%> |
|
| <%=langMgr.GetContent("FORM_DESG_EDIT_FIELD", "BackEndMessages", iInterfaceLang)%> |
<%=langMgr.GetContent("FORM_DESG_DELETE_FIELD", "BackEndMessages", iInterfaceLang)%> |