<%'@ LANGUAGE = VBScript.Encode %> <% ' Form Designer : admin/formdesigner.asp ' ' Manages the creation of forms and all that stuff. ' ' 1.0.0 (12/16/2002) ' Carlos A. Madrigal ' ' Copyright © 1999-2003 Infolink Aplicaciones, S.A. de C.V. ' All rights reserved ' Derechos de Autor © 1999-2003 Infolink Aplicaciones, S.A. de C.V. ' Derechos Reservados. ' '**Start Encode** sDBExtraPath = "../" %> <% Const FBT_TEXT = 0 Const FBT_MEMO = 1 Const FBT_MAIL = 2 Const FBT_INT = 3 Const FBT_NUMBER = 4 Const FBT_CBO = 5 Const FBT_RADIOS = 6 Const FBT_CHECKBOXES = 7 ' Initialize variables sHEImagePath = "common/htmleditor/" sCmd = Request("cmd") sFormName = Request("form") If Len(Request("form")) > 0 And Len(sCmd) = 0 Then sFormName = Request("form") sCmd = "manageform" End If ' Jump to manageform if there is only one form to manage If Len(sCmd) = 0 Then ' If conDB.Execute("SELECT COUNT(FormName) FROM fbForms")(0) = 1 Then 'sFormName = conDB.Execute("SELECT FormName FROM fbForms")(0) sFormName = iContentLang sCmd = "manageform" ' End If End If %> <%If Len(sErrors) > 0 Then%>

<%=sErrors%>

<%ElseIf Len(sMessages) > 0 Then%>

><%=sMessages%>

<%End If%>

<%=langMgr.GetContent("FORM_DESG_WELCOME", "BackEndMessages", iInterfaceLang)%>

<% Select Case sCmd Case "saveform" ' Open form and save changes sSQL = "SELECT * FROM fbForms WHERE FormName = '" & sFormName & "'" rsData.Open sSQL, , adOpenKeyset, adLockOptimistic, adCmdText Die IsRSEmpty(rsData), "Form not found while being edited." rsData("FormDisplayName") = Request("display") rsData("FormHeader") = ToDb(Request("formheader")) rsData("FormFooter") = ToDb(Request("formfooter")) rsData("ResetCaption") = Request("resetcaption") rsData("SubmitCaption") = Request("submitcaption") rsData("MailTo") = Request("mailto") rsData("MailSubject") = Request("mailsubject") rsData("MailHeader") = ToDb(Request("mailheader")) rsData("MailFooter") = ToDb(Request("mailfooter")) rsData("ARMailTo") = Request("armailto") rsData("ARMailSubject") = Request("armailsubject") rsData("ARMailHeader") = ToDb(Request("armailheader")) rsData("ARMailFooter") = ToDb(Request("armailfooter")) rsData("ARText") = ToDb(Request("artext")) rsData.Update ' Redirect to manage form Response.Redirect "formdesigner.asp?cmd=manageform&form=" & Server.URLEncode(sFormName) Case "manageform" ' Open selected form sSQL = "SELECT * FROM fbForms WHERE FormName='" & sFormName & "'" rsData.Open sSQL Die IsRSEmpty(rsData), "Selected form not found in database." %>
>> >>>> >>>> >>>> >>
><%=langMgr.GetContent("FORM_DESG_GENERAL", "BackEndMessages", iInterfaceLang)%>
><%=langMgr.GetContent("FORM_DESG_FORM_NAME", "BackEndMessages", iInterfaceLang)%>   <%=sFormName%>
><%=langMgr.GetContent("FORM_DESG_RESET", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_SUBMIT", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_DISPLAY_NAME", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_FORM_HEADER", "BackEndMessages", iInterfaceLang)%>   <%HtmlEdit "formheader", "htmlFormHeader", 100%>
><%=langMgr.GetContent("FORM_DESG_FORM_FOOTER", "BackEndMessages", iInterfaceLang)%>   <%HtmlEdit "formfooter", "htmlFormFooter", 100%>
 
><%=langMgr.GetContent("FORM_DESG_MAIL_DETAILS", "BackEndMessages", iInterfaceLang)%>
><%=langMgr.GetContent("FORM_DESG_TARGET", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_SUBJECT", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_MAIL_HEADER", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_MAIL_FOOTER", "BackEndMessages", iInterfaceLang)%>  
 
><%=langMgr.GetContent("FORM_DESG_AUTORES_DETAIL", "BackEndMessages", iInterfaceLang)%>
><%=langMgr.GetContent("FORM_DESG_AUTORES_TARGET", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_AUTORES_SUBJECT", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_AUTORES_HEADER", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_AUTORES_FOOTER", "BackEndMessages", iInterfaceLang)%>  
><%=langMgr.GetContent("FORM_DESG_AUTORES_TEXT", "BackEndMessages", iInterfaceLang)%>   <%HtmlEdit "artext", "htmlARText", 100%>
 
><%=langMgr.GetContent("FORM_DESG_FORMFIELDS", "BackEndMessages", iInterfaceLang)%>
<% ' Get fields for this form sSQL = "SELECT FieldName, FieldCodeName, FieldType, IsRequired FROM fbFormFields WHERE FormName='" & sFormName & "'" Set rsFields = conDB.Execute(sSQL) While Not rsFields.EOF %> <% rsFields.MoveNext Wend %>
<%=langMgr.GetContent("FORM_DESG_FIELD_NAME", "BackEndMessages", iInterfaceLang)%> <%=langMgr.GetContent("FORM_DESG_CODE_NAME", "BackEndMessages", iInterfaceLang)%> <%=langMgr.GetContent("FORM_DESG_TYPE", "BackEndMessages", iInterfaceLang)%>  
<%=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 %> ><%=langMgr.GetContent("FORM_DESG_EDIT", "BackEndMessages", iInterfaceLang)%>
 
"> "> ">
<% Case Else ' Display list of forms sSQL = "SELECT FormName, FormDisplayName, MailTo FROM fbForms" rsData.Open sSQL Die IsRSEmpty(rsData), "Forms must be defined by production center." %>
>> > <% While Not rsData.EOF %> <% rsData.MoveNext Wend %>
>Name >  >Display Name >  >Mail To >  > 
<%=rsData("FormName")%>   <%=rsData("FormDisplayName")%>   "><%=rsData("MailTo")%>   ">Edit
<% End Select %>