Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- <!--#include file="../top.asp"-->
- <%
- ' Tables and fields we want to use in our form.
- tablesAndFields = "styles[" & rssite("styleid") & "].breadcrumb,sites[" & rssite("id") & "].fnav,sites.clean,sites.gimgno"
- ' Order of tables and fields to display, with section titles.
- order = "==Look And Feel==,styles.breadcrumb,sites.fnav,sites.clean,sites.gimgno"
- ' Make the main tables dictionary holding fields dictionaries.
- set tables = makeTablesAndFields(tablesAndFields)
- '--------------------- Any Special Directives ------------------
- ' Labels
- label_for "sites.fnav", "Show Fly-Out Menus", tables
- label_for "sites.clean", "'Clean' Category View", tables
- label_for "sites.gimgno", "Default Gallery View", tables
- ' Required Fields
- ' Descriptions
- description_for "styles.breadcrumb", "Show the breadcrumb (Something >>> Something Else)", tables
- description_for "sites.clean", "Turn this on to remove ""Category contains 100 images, 3 galleries"" text", tables
- ' Explicit field types
- input_type "sites.gimgno", "radio", tables
- ' Add possible galley views to gimgno (it's a group of radio buttons)
- do while not rsgv.eof
- add_option "sites.gimgno", rsgv("title").value, rsgv("id").value, tables
- rsgv.movenext
- loop
- '----------------------------------------------------------------
- ' Now pass to make_form. We pass tablesAndFields for ordering purposes.
- make_form tables, order
- %>
- <!--#include file="../bot.asp"-->
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement