<% ' Generic Database - Config File Wizard - Screen 2 ' Notice: (c) 1998, 1999, 2000 Eli Robillard, All Rights Reserved. ' E-Mail: erobillard@ofifc.org ' URL: http://www.ofifc.org/Eli/ASP/ ' Revision History: ' 29 Feb 2000 - dbOrderBy selection ' 16 May 1999 - Created ' Read the form Session("dbEditTemplate") = Request.Form("EditTemplate") Session("dbViewTemplate") = Request.Form("ViewTemplate") Session("dbTitle") = Request.Form("Title") Session("dbExitPage") = Request.Form("ExitPage") Session("dbExitPageText") = Request.Form("ExitPageText") Session("dbType") = Request.Form("dbType") Session("dbConn") = Request.Form("DSN") Session("dbFields") = Request.Form("Fields") Session("dbRs") = Request.Form("Rs") Session("dbWhere") = Request.Form("Where") Session("dbGroupBy") = Request.Form("GroupBy") Session("dbOrderBy") = Request.Form("OrderBy") Session("dbCanAdd") = Request.Form("CanAdd") Session("dbExtraAdd") = Request.Form("ExtraAdd") Session("dbCanEdit") = Request.Form("CanEdit") Session("dbCanDelete") = Request.Form("CanDelete") Session("dbConfirmDelete") = Request.Form("ConfirmDelete") Session("dbDebug") = Request.Form("Debug") Session("dbRecsPerPage") = Request.Form("RecsPerPage") Session("dbFont") = Request.Form("Font") Session("dbFontSize") = Request.Form("FontSize") Session("dbBorderColor") = Request.Form("BorderColor") Session("dbMenuColor") = Request.Form("MenuColor") If Trim(Session("dbFields")) & "x" = "x" Then Session("dbFields") = "*" QUOTE = chr(34) strConn = Session("dbConn") Rs = Session("dbRs") Title = Session("dbTitle") Fields = Session("dbFields") Font = Session("dbFont") FontSize = Session("dbFontSize") BorderColor = Session("dbBorderColor") MenuColor = Session("dbMenuColor") ' Open Recordset and get the field info strsql = "SELECT " & Fields & " FROM [" & Rs & "]" Select Case dbType Case "UDF" strsql = "SELECT " & Fields & " FROM " & Rs Case "SQL" strsql = Replace(strsql,"[","") strsql = Replace(strsql,"]","") End Select set xConn = Server.CreateObject("ADODB.Connection") xConn.Open strConn set xrs = Server.CreateObject("ADODB.Recordset") xrs.Open strsql, xConn intFieldCount = xrs.Fields.Count Dim aFields(), aFieldNames(), aFieldDispList(), aFieldDispView(), aFieldDispEdit() ReDim aFields(intFieldCount,3) ReDim aFieldNames(intFieldCount) ReDim aFieldDefault(intFieldCount) ReDim aFieldDispList(intFieldCount) ReDim aFieldDispView(intFieldCount) ReDim aFieldDispEdit(intFieldCount) For x = 1 to intFieldCount aFields(x, 1) = xrs.Fields(x-1).Name aFields(x, 2) = xrs.Fields(x-1).Type aFields(x, 3) = xrs.Fields(x-1).DefinedSize aFieldNames(x-1) = aFields(x,1) aFieldDispList(x-1) = 0 aFieldDispView(x-1) = 0 aFieldDispEdit(x-1) = 0 Next %> <%=Title%>

GenericDB Configuration File Wizard - Page 2

>
> <% For x = 1 to intFieldCount If x mod 2 = 0 Then bgcolor="#FFFFCC" Else bgcolor="White" End If %> <% aFields(x, 1) = xrs.Fields(x-1).Name %> <% aFields(x, 2) = xrs.Fields(x-1).Type %> <% Next xrs.Close Set xrs = Nothing xConn.Close Set xConn = Nothing %>
> FACE="<%=Font%>">- <%= Rs %> -
FACE="<%=Font%>">Display In
FACE="<%=Font%>"># FACE="<%=Font%>">Field FACE="<%=Font%>">Display
As		 FACE="<%=Font%>">Default Value FACE="<%=Font%>">Primary
Key		 FACE="<%=Font%>">Sort
Field		 FACE="<%=Font%>">Lister FACE="<%=Font%>">Viewer FACE="<%=Font%>">Editor FACE="<%=Font%>">Searchable
ALIGN="LEFT"> FACE="<%=Font%>"><%=x %> ALIGN="LEFT"> FACE="<%=Font%>"><%=aFields(x, 1)%> ALIGN="LEFT"> FACE="<%=Font%>"> ALIGN="LEFT"> FACE="<%=Font%>"> <% ' Defaults Select Case aFields(x,2) Case 2, 3, 4, 5, 6 ' Numbers %> <% Case 11 ' Boolean True/False %> <% Case 7, 135 ' Date / Time Stamp, usually created with the Now() function %> <% Case 129, 130, 200, 201, 202, 203 ' String or Memo %> <% End Select %> ALIGN="CENTER"> FACE="<%=Font%>"> NAME="Key"> ALIGN="CENTER"> FACE="<%=Font%>"> NAME="Sort"> ALIGN="CENTER"> FACE="<%=Font%>"> ALIGN="CENTER"> FACE="<%=Font%>"> ALIGN="CENTER"> FACE="<%=Font%>"> ALIGN="CENTER"> FACE="<%=Font%>"> <% If aFields(x,2) = 200 OR (aFields(x,2) = 201) Then %> <% Else %> No <% End If %>