<% ' Generic Database - Config File Wizard - Screen 3 ' 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 - Converted to display as ASCII text file instead of html ' dbOrderBy selection ' 16 May 1999 - Created ' Generate text output Response.Buffer = True Response.Clear Response.ContentType = "text/plain" ' Set vars QUOTE = chr(34) CR = chr(13) & chr(10) Rs = Session("Rs") Title = Session("Title") Fields = Session("Fields") Font = Session("Font") FontSize = Session("FontSize") BorderColor = Session("BorderColor") MenuColor = Session("MenuColor") ' Open Recordset and get the field info strsql = "SELECT " & Session("dbFields") & " FROM [" & Session("dbRs") & "]" Select Case dbType Case "UDF" strsql = "SELECT " & Session("dbFields") & " FROM " & Session("dbRs") Case "SQL" strsql = Replace(strsql,"[","") strsql = Replace(strsql,"]","") End Select set xConn = Server.CreateObject("ADODB.Connection") xConn.Open Session("dbConn") set xrs = Server.CreateObject("ADODB.Recordset") xrs.Open strsql, xConn intFieldCount = xrs.Fields.Count Dim aFields(), aFieldNames(), aFieldDefault(), aFieldDispList(), aFieldDispView(), aFieldDispEdit(), aFieldSearchable() ReDim aFields(intFieldCount,3) ReDim aFieldNames(intFieldCount) ReDim aFieldDefault(intFieldCount) ReDim aFieldDispList(intFieldCount) ReDim aFieldDispView(intFieldCount) ReDim aFieldDispEdit(intFieldCount) ReDim aFieldSearchable(intFieldCount) dbNames = "" dbDispList = "" dbDispView = "" dbDispEdit = "" dbSearch = "" 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) = Request.Form("Desc" & x) aFieldDefault(x) = Request.Form("Default" & x) aFieldDispList(x) = Request.Form("DispList" & x) aFieldDispView(x) = Request.Form("DispView" & x) aFieldDispEdit(x) = Request.Form("DispEdit" & x) aFieldSearchable(x) = Request.Form("Searchable" & x) if x <> intFieldCount Then pad = ", " else pad = "" end if if aFieldNames(x) & "x" <> "x" Then dbNames = dbNames & aFieldNames(x) & pad else dbNames = dbNames & pad end if if aFieldDispList(x) = "On" Then dbDispList = dbDispList & "1" else dbDispList = dbDispList & "0" end if if aFieldDispView(x) = "On" Then dbDispView = dbDispView & "1" else dbDispView = dbDispView & "0" end if if aFieldDispEdit(x) = "On" Then dbDispEdit = dbDispEdit & "1" else dbDispEdit = dbDispEdit & "0" end if if aFieldSearchable(x) = "On" Then dbSearch = dbSearch & "1" else dbSearch = dbSearch & "0" end if Next Session("dbFieldNames") = dbNames Session("dbDispList") = dbDispList Session("dbDispView") = dbDispView Session("dbDispEdit") = dbDispEdit Session("dbSearchFields") = dbSearch Session("dbKey") = Request("Key") Session("dbOrder") = Request("Sort") Session("dbViewPath") = Request.ServerVariables("PATH_TRANSLATED") Session("dbViewPage") = Request.ServerVariables("PATH_INFO") Session("dbGenericPath") = "./" If Session("dbKey") + 1 = 1 Then Session("dbKey") = 0 If Session("dbOrder") + 1 = 1 Then Session("dbOrder") = 0 If Session("dbRecsPerPage") + 1 = 1 Then Session("dbRecsPerPage") = 0 If Session("dbFooter") + 1 = 1 Then Session("dbFooter") = 0 If Session("dbFontSize") + 1 = 1 Then Session("dbFontSize") = 0 If Session("dbDebug") + 1 = 1 Then Session("dbDebug") = 0 If Session("dbCanAdd") + 1 = 1 Then Session("dbCanAdd") = 0 If Session("dbExtraAdd") + 1 = 1 Then Session("dbExtraAdd") = 0 If Session("dbCanEdit") + 1 = 1 Then Session("dbCanEdit") = 0 If Session("dbCanDelete") + 1 = 1 Then Session("dbCanDelete") = 0 If Session("dbConfirmDelete") + 1 = 1 Then Session("dbConfirmDelete") = 0 If Session("dbRecsPerPage") + 1 = 1 Then Session("dbRecsPerPage") = 0 %> <% ' Display the file Response.Write "<% ' GenericDB Config File " & CR Response.Write "' Title: " & Session("dbTitle") & CR Response.Write "' Recordset: " & Session("dbRs") & CR Response.Write CR Response.Write "' Application " & CR Response.Write "Session(" & QUOTE & "dbGenericPath" & QUOTE & ") = " & QUOTE & GetFilePath(Session("dbViewPage")) & QUOTE & CR Response.Write "Session(" & QUOTE & "dbExitPage" & QUOTE & ") = " & QUOTE & Session("dbExitPage") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbTitle" & QUOTE & ") = " & QUOTE & Session("dbTitle") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbType" & QUOTE & ") = " & QUOTE & Session("dbType") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbConn" & QUOTE & ") = " & QUOTE & Session("dbConn") & QUOTE & CR Response.Write CR Response.Write "' Query" & CR Response.Write "Session(" & QUOTE & "dbFields" & QUOTE & ") = " & QUOTE & Session("dbFields") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbRs" & QUOTE & ") = " & QUOTE & Session("dbRs") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbWhere" & QUOTE & ") = " & QUOTE & Session("dbWhere") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbGroupBy" & QUOTE & ") = " & QUOTE & Session("dbGroupBy") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbOrderBy" & QUOTE & ") = " & QUOTE & Session("dbOrderBy") & QUOTE & CR Response.Write "" & CR Response.Write "' Display" & CR Response.Write "Session(" & QUOTE & "dbEditTemplate" & QUOTE & ") = " & QUOTE & Session("dbEditTemplate") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbViewTemplate" & QUOTE & ") = " & QUOTE & Session("dbViewTemplate") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbBackText" & QUOTE & ") = " & QUOTE & Session("dbBackText") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbFieldNames" & QUOTE & ") = " & QUOTE & Session("dbFieldNames") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbKey" & QUOTE & ") = " & Session("dbKey") & CR Response.Write "Session(" & QUOTE & "dbOrder" & QUOTE & ") = " & Session("dbOrder") & CR Response.Write "Session(" & QUOTE & "dbRecsPerPage" & QUOTE & ") = " & Session("dbRecsPerPage") & CR Response.Write "Session(" & QUOTE & "dbDispList" & QUOTE & ") = " & QUOTE & Session("dbDispList") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbDispView" & QUOTE & ") = " & QUOTE & Session("dbDispView") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbDispEdit" & QUOTE & ") = " & QUOTE & Session("dbDispEdit") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbSearchFields" & QUOTE & ") = " & QUOTE & Session("dbSearchFields") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbFooter" & QUOTE & ") = " & Session("dbFooter") & CR Response.Write "Session(" & QUOTE & "dbFont" & QUOTE & ") = " & QUOTE & Session("dbFont") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbFontSize" & QUOTE & ") = " & Session("dbFontSize") & CR Response.Write "Session(" & QUOTE & "dbBorderColor" & QUOTE & ") = " & QUOTE & Session("dbBorderColor") & QUOTE & CR Response.Write "Session(" & QUOTE & "dbMenuColor" & QUOTE & ") = " & QUOTE & Session("dbMenuColor") & QUOTE & CR Response.Write "" & CR Response.Write "' Features" & CR Response.Write "Session(" & QUOTE & "dbDebug" & QUOTE & ") = " & Session("dbDebug") & CR Response.Write "Session(" & QUOTE & "dbCanAdd" & QUOTE & ") = " & Session("dbCanAdd") & CR Response.Write "Session(" & QUOTE & "dbExtraAdd" & QUOTE & ") = " & Session("dbExtraAdd") & CR Response.Write "Session(" & QUOTE & "dbCanEdit" & QUOTE & ") = " & Session("dbCanEdit") & CR Response.Write "Session(" & QUOTE & "dbCanDelete" & QUOTE & ") = " & Session("dbCanDelete") & CR Response.Write "Session(" & QUOTE & "dbConfirmDelete" & QUOTE & ") = " & Session("dbConfirmDelete") & CR Response.Write "" & CR Response.Write "' Defaults" & CR For x = 1 to intFieldCount if (aFieldDefault(x) & "x" <> "x") AND (aFieldDefault(x) <> "''") AND (aFieldDefault(x) <> "0") Then Select Case aFields(x,2) Case 2, 3, 4, 5, 6 ' Numbers Case 11 ' Boolean True/False Case 7, 135 ' Date / Time Case 129, 130, 200, 201, 202, 203 ' String or Memo aFieldDefault(x) = QUOTE & aFieldDefault(x) & QUOTE End Select Response.Write "Session(" & QUOTE & "dbDefault" & x & QUOTE & ") = " & aFieldDefault(x) & CR end if Next Response.Write "" & CR Response.Write "' Do Not Change" & CR Response.Write "Session(" & QUOTE & "dbViewPath" & QUOTE & ") = Request.ServerVariables(" & QUOTE & "PATH_TRANSLATED" & QUOTE & ")" & CR Response.Write "Session(" & QUOTE & "dbViewPage" & QUOTE & ") = Request.ServerVariables(" & QUOTE & "PATH_INFO" & QUOTE & ")" & CR Response.Write "Response.Redirect Session(" & QUOTE & "dbGenericPath" & QUOTE & ") & " & QUOTE & "GenericList.asp" & QUOTE & CR Response.Write "" & CR Response.Write "%" & ">" & CR ' Display the page Response.Flush Response.End %> <% Function GetFilePath(strFilePath) Dim pathroot Dim i pathroot = strFilePath For i = len(pathroot) to 1 Step -1 If (mid(pathroot,i,1) = "\") OR (mid(pathroot,i,1) = "/") then ' cut the filename, leave the path pathroot = mid(pathroot,1,i) Exit For End If Next GetFilePath = pathroot End Function %>