dcovington
/
tracking_kits
1
0
Fork 0
Code Issues 0 Pull-Requests 0 Releases 0 Wiki Aktivität
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
32 Commits
1 Branch
287MB
Struktur: cde6e1c883
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „cde6e1c883“
${ noResults }
tracking_kits/App/ScaffoldRepo.vbs

717 Zeilen
40KB
Originalformat Blame Verlauf 

  1. Const IncludeDirectory = "F:\Development\VBS Includes\"

  2. 

  3. includeFile "adovbs"

  4. includeFile "CLogger"

  5. includeFile "Public_Functions"

  6. includeFile "VBSEnvironment"

  7. includeFile "Database_Class"

  8. includeFile "lib.collections"

  9. 

  10. Dim props,fieldNamesArray

  11. Dim oConn,fso,includedFile,rs

  12. Dim fixedTableName,tableName

  13. Dim PrimaryKeyDictionary

  14. Set oConn = WScript.CreateObject("ADODB.Connection")

  15. Set fso = WScript.CreateObject("Scripting.Filesystemobject")

  16. oConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Development\Tracking_Kits\Data\webdata - Copy.mdb"

  17. 'oConn.ConnectionString = "Provider=SQLOLEDB;Data Source=danielsubuntu,15789;Initial Catalog=northwind;User Id=sa;Password=SunBrightShine!;"

  18. 

  19. Init

  20. 		fixedTableName = Replace(rs("TABLE_NAME")," ","_")

  21. 		tableName =  rs("TABLE_NAME")

  22.     Do While Not rs.EOF

  23.     		fixedTableName = Replace(rs("TABLE_NAME")," ","_")

  24. 		tableName =  rs("TABLE_NAME")

  25. 		 'If tableName <> "meta_migrations" Then

  26.     	If tableName <> "meta_migrations" AND tableName = "InkjetRecords" Then

  27. 

  28.         debug.WriteLine(tableName)

  29.         If Not fso.FolderExists(ScriptDirectory()& "Controllers\"& fixedTableName) Then fso.CreateFolder(ScriptDirectory()& "Controllers\"& fixedTableName)

  30.         If Not fso.FolderExists(ScriptDirectory()& "Controllers\") Then fso.CreateFolder(ScriptDirectory()& "Controllers\")

  31.         If Not fso.FolderExists(ScriptDirectory()& "Views\" & Replace(tableName," ","_")) Then fso.CreateFolder(ScriptDirectory()& "Views\" & Replace(tableName," ","_"))

  32.         Set file = fso.CreateTextFile(ScriptDirectory()& "DomainModels\" & fixedTableName & "Repository.asp",True)

  33.         includedFile.WriteLine("<!--#include file=""DomainModels/"& fixedTableName & "Repository.asp""-->")

  34.         file.WriteLine("<%")

  35.         file.WriteLine("'=======================================================================================================================")

  36.         file.WriteLine("' " & fixedTableName & " Model")

  37.         file.WriteLine("'=======================================================================================================================")

  38.         file.WriteLine("")

  39.         file.WriteLine("Class " & fixedTableName & "Model_Class")

  40.         file.WriteLine("	Public Validator")

  41.         file.WriteLine("	Public Class_Get_Properties")

  42.         file.WriteLine("")

  43.         InitFieldNameIterator ' This Sub is werid and needs to be looked at 

  44. 		fieldNamesArray = props.toArray()

  45.         file.WriteLine("")

  46.         file.WriteLine("	Private Sub Class_Initialize")

  47.         file.WriteLine("		'ValidateExitsts Me, """",""""")

  48.         file.WriteLine("		Class_Get_Properties = Array(""" & Join (fieldNamesArray,", ") & """)")

  49.         file.WriteLine("	End Sub")

  50.         file.WriteLine("")

  51.         file.WriteLine("End CLass")

  52.         file.WriteLine("")

  53.         file.WriteLine("'=======================================================================================================================")

  54.         file.WriteLine("' " & tableName & " Repository")

  55.         file.WriteLine("'=======================================================================================================================")

  56.         file.WriteLine("")

  57.         file.WriteLine("Class " & fixedTableName & "Repository_Class") 

  58.         file.WriteLine("")

  59.         file.WriteLine("	Public Function FindBy" & PrimaryKeyDictionary(tableName) & "("& PrimaryKeyDictionary(tableName) & ")")

  60.         file.WriteLine("		dim sql : sql = ""Select ["  & Join (fieldNamesArray,"], [") & "] FROM [" & tableName & "] WHERE " & PrimaryKeyDictionary(tableName) & " = ?""")

  61.         file.WriteLine("		dim rs : set rs = DAL.Query(sql," & PrimaryKeyDictionary(tableName) & ")")

  62.         File.WriteLine("    	If rs.EOF then")

  63.         File.WriteLine("    		Err.Raise 1, """ & fixedTableName & "Repository_Class"", "& fixedTableName &"NotFoundException(""" & PrimaryKeyDictionary(tableName) &""", "& PrimaryKeyDictionary(tableName) & ")")

  64.         File.WriteLine("		Else")

  65. 		File.WriteLine("			set FindBy" & PrimaryKeyDictionary(tableName) & " = Automapper.AutoMap(rs,""" & tableName & "Model_Class" & """)")

  66.         file.WriteLine("        End If")

  67.         file.WriteLine("	End Function")

  68.         file.WriteLine("")

  69.         file.WriteLine("  	Public Function GetAll(orderBy)")

  70.         file.WriteLine("		set GetAll = Find(empty,orderBy)")

  71.         file.WriteLine("   	End Function")

  72.         file.WriteLine("")	

  73.         file.WriteLine("    Public Function Find(where_kvarray, order_string_or_array)")

  74.         file.WriteLine("		dim sql : sql = ""Select ["  & Join (fieldNamesArray,"], [") & "] FROM [" & tableName  & "]""")

  75.         File.WriteLine("")

  76.         File.WriteLine(" 		If Not IsEmpty(where_kvarray) then")

  77.         File.WriteLine("			sql = sql & "" WHERE """)

  78.         File.WriteLine("				dim where_keys, where_values")

  79.         File.WriteLine("				KVUnzip where_kvarray, where_keys, where_values")

  80.         file.WriteLine("")

  81.         file.WriteLine("			dim i")

  82.         file.WriteLine("			For i = 0 to UBound(where_keys)")

  83.         file.WriteLine("				If i > 0 then sql = sql & "" AND """)

  84.         file.WriteLine("				sql = sql & "" "" & where_keys(i) & "" """)

  85.         file.WriteLine("			Next")

  86.         file.WriteLine("		End If")

  87.         file.WriteLine("")

  88.         file.WriteLine("		If Not IsEmpty(order_string_or_array) then")

  89.         file.WriteLine("			sql = sql & ""ORDER BY """)

  90.         file.WriteLine("			If IsArray(order_string_or_array) then")

  91.         file.WriteLine("				dim order_array : order_array = order_string_or_array")

  92.         file.WriteLine("				For i = 0 to UBound(order_array)")

  93.         file.WriteLine("					If i > 0 then sql = sql & "", """)

  94.         file.WriteLine("					sql = sql & "" "" & order_array(i)")

  95.         file.WriteLine("				Next")

  96.         file.WriteLine("			Else")

  97.         file.WriteLine("				sql = sql & order_string_or_array & "" """)

  98.         file.WriteLine("			End If")

  99.         file.WriteLine("		End If")

  100.         file.WriteLine("")

  101.         file.WriteLine("		dim rs : set rs = DAL.Query(sql, where_values)")

  102.         file.WriteLine("		set Find = " & fixedTableName & "List(rs)")

  103.         file.WriteLine("		Destroy rs")

  104.         file.WriteLine("	End Function")

  105.         file.WriteLine("")

  106.         file.WriteLine("	Public Function FindPaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)")

  107.         file.WriteLine("		dim sql : sql = ""Select ["  & Join (fieldNamesArray,"], [") & "] FROM [" & tableName & "]""")

  108.         File.WriteLine("")

  109.         File.WriteLine(" 		If Not IsEmpty(where_kvarray) then")

  110.         File.WriteLine("			sql = sql & "" WHERE """)

  111.         File.WriteLine("				dim where_keys, where_values")

  112.         File.WriteLine("				KVUnzip where_kvarray, where_keys, where_values")

  113.         file.WriteLine("")

  114.         file.WriteLine("			dim i")

  115.         file.WriteLine("			For i = 0 to UBound(where_keys)")

  116.         file.WriteLine("				If i > 0 then sql = sql & "" AND """)

  117.         file.WriteLine("				sql = sql & "" "" & where_keys(i) & "" """)

  118.         file.WriteLine("			Next")

  119.         file.WriteLine("		End If")

  120.         file.WriteLine("")

  121.         file.WriteLine("		If Not IsEmpty(order_string_or_array) then")

  122.         file.WriteLine("			sql = sql & ""ORDER BY """)

  123.         file.WriteLine("			If IsArray(order_string_or_array) then")

  124.         file.WriteLine("				dim order_array : order_array = order_string_or_array")

  125.         file.WriteLine("				For i = 0 to UBound(order_array)")

  126.         file.WriteLine("					If i > 0 then sql = sql & "", """)

  127.         file.WriteLine("					sql = sql & "" "" & order_array(i)")

  128.         file.WriteLine("				Next")

  129.         file.WriteLine("			Else")

  130.         file.WriteLine("				sql = sql & order_string_or_array & "" """)

  131.         file.WriteLine("			End If")

  132.         file.WriteLine("		End If")

  133.         file.WriteLine("")

  134.         file.WriteLine("		dim list : set list = new LinkedList_Class")

  135.         file.WriteLine("		dim rs   : set rs   = DAL.PagedQuery(sql, where_values, per_page, page_num)")

  136.         file.WriteLine("")

  137.         file.WriteLine("		If Not rs.EOF and Not (IsEmpty(per_page) and IsEmpty(page_num) and IsEmpty(page_count) and IsEmpty(record_count)) then")

  138.         file.WriteLine("			rs.PageSize     = per_page")

  139.         file.WriteLine("			rs.AbsolutePage = page_num")

  140.         file.WriteLine("			page_count      = rs.PageCount")

  141.         file.WriteLine("			record_count    = rs.RecordCount")

  142.         file.WriteLine("		End If")

  143.         file.WriteLine("")

  144.         file.WriteLine("		set FindPaged = Paged"& fixedTableName & "List(rs, per_page)")

  145.         file.WriteLine("		Destroy rs")    

  146.         file.WriteLine("	End Function")

  147.         file.WriteLine("")

  148.         file.WriteLine("	Public Function SearchTablePaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)")

  149.         file.WriteLine("		dim sql : sql = ""Select ["  & Join (fieldNamesArray,"], [") & "] FROM [" & tableName & "]""")

  150.         File.WriteLine("")

  151.         File.WriteLine(" 		If Not IsEmpty(where_kvarray) then")

  152.         File.WriteLine("			sql = sql & "" WHERE """)

  153.         File.WriteLine("				dim where_keys, where_values")

  154.         File.WriteLine("				KVUnzip where_kvarray, where_keys, where_values")

  155.         file.WriteLine("")

  156.         file.WriteLine("			dim i")

  157.         file.WriteLine("			For i = 0 to UBound(where_keys)")

  158.         file.WriteLine("				If i > 0 then sql = sql & "" OR""")

  159.         file.WriteLine("				sql = sql & "" "" & where_keys(i) & "" LIKE ?""")

  160.         file.WriteLine("			Next")

  161.         file.WriteLine("		End If")

  162.         file.WriteLine("")

  163.         file.WriteLine("		If Not IsEmpty(order_string_or_array) then")

  164.         file.WriteLine("			sql = sql & "" ORDER BY """)

  165.         file.WriteLine("			If IsArray(order_string_or_array) then")

  166.         file.WriteLine("				dim order_array : order_array = order_string_or_array")

  167.         file.WriteLine("				For i = 0 to UBound(order_array)")

  168.         file.WriteLine("					If i > 0 then sql = sql & "", """)

  169.         file.WriteLine("					sql = sql & "" "" & order_array(i)")

  170.         file.WriteLine("				Next")

  171.         file.WriteLine("			Else")

  172.         file.WriteLine("				sql = sql & order_string_or_array & "" """)

  173.         file.WriteLine("			End If")

  174.         file.WriteLine("		End If")

  175.         file.WriteLine("")

  176.         file.WriteLine("		dim list : set list = new LinkedList_Class")

  177.         file.WriteLine("		dim rs   : set rs   = DAL.PagedQuery(sql, where_values, per_page, page_num)")

  178.         file.WriteLine("")

  179.         file.WriteLine("		If Not rs.EOF and Not (IsEmpty(per_page) and IsEmpty(page_num) and IsEmpty(page_count) and IsEmpty(record_count)) then")

  180.         file.WriteLine("			rs.PageSize     = per_page")

  181.         file.WriteLine("			rs.AbsolutePage = page_num")

  182.         file.WriteLine("			page_count      = rs.PageCount")

  183.         file.WriteLine("			record_count    = rs.RecordCount")

  184.         file.WriteLine("		End If")

  185.         file.WriteLine("")

  186.         file.WriteLine("		set SearchTablePaged = Paged"& fixedTableName & "List(rs, per_page)")

  187.         file.WriteLine("		Destroy rs")    

  188.         file.WriteLine("	End Function")

  189.         file.WriteLine("")

  190.         file.WriteLine("	Private Function Paged"& fixedTableName & "List(rs, per_page)")

  191.         file.WriteLine("    	dim list : set list = new LinkedList_Class")

  192.         file.WriteLine("")

  193.         file.WriteLine("		dim x : x =0")

  194.         file.WriteLine("		Do While x < per_page and Not rs.EOF")

  195.         file.WriteLine("			list.Push Automapper.AutoMap(rs, new " & fixedTableName & "Model_Class" & ")")

  196.         file.WriteLine("			x = x +1")

  197.         file.WriteLine("			rs.MoveNext")

  198.         file.WriteLine("		Loop")

  199.         file.WriteLine("		set Paged"& fixedTableName & "List = list")

  200.         file.WriteLine("	End Function")

  201.         file.WriteLine("")

  202.         file.WriteLine("	Private Function " & fixedTableName &"NotFoundException(ByVal field_name, ByVal field_val)")

  203.         file.WriteLine("			 "& fixedTableName & "NotFoundException = """ & fixedTableName & " was not found with "" & field_name & "" of '"" & field_val & ""'.""")

  204.         file.WriteLine("	End Function")

  205.        	file.WriteLine("")

  206.        	file.WriteLine("	Private Function " & fixedTableName & "List(rs)")

  207.        	file.WriteLine("		dim list : set list = new LinkedList_Class")

  208.        	file.WriteLine("		dim model")

  209.        	file.WriteLine("")

  210.        	file.WriteLine("		Do until rs.EOF")

  211.        	file.WriteLine("			set model = new " & fixedTableName & "Model_Class")

  212.        	file.WriteLine("			list.Push Automapper.AutoMap(rs, model)")

  213.        	file.WriteLine("			rs.MoveNext")

  214.        	file.WriteLine("		Loop")

  215.        	file.WriteLine("		set " & fixedTableName & "List = list")

  216.        	file.WriteLine("	End Function")

  217.        	file.WriteLine("")

  218.        	file.WriteLine("	Public Sub AddNew(ByRef model)")

  219.        	file.WriteLine("		dim sql : sql = ""INSERT INTO ["& fixedTableName & "] ("" &_")

  220.        					For Fields = 1 To UBound(fieldNamesArray)-1

  221.        						file.WriteLine("													""[" & fieldNamesArray(Fields) & "],"" &_")

  222.        					Next

  223. 							file.WriteLine("													""[" & fieldNamesArray(UBound(fieldNamesArray)) & "])"" &_")

  224. 		file.Write("						""VALUES (?")

  225. 		For Fields = 1 To UBound(fieldNamesArray)-1

  226. 		file.Write(",?")

  227. 		Next

  228. 		file.Write(")""" & VbCrLf)

  229.        	file.WriteLine("		DAL.Execute sql, Array(model." & fieldNamesArray(1) & ", _")

  230.        						For Fields = 2 To UBound(fieldNamesArray) -1 

  231.        							file.WriteLine("							  model." & fieldNamesArray(Fields) & ", _")

  232.        						Next

  233.        						file.WriteLine("							  model." & fieldNamesArray(UBound(fieldNamesArray)) & ")")

  234.        						

  235.        						

  236.        	file.WriteLine("			sql = ""SELECT TOP 1 " & PrimaryKeyDictionary(tableName) & " FROM [" & fixedTableName & "] ORDER BY "& PrimaryKeyDictionary(tableName) & " DESC""")					

  237.        	file.WriteLine("			dim rs : set rs = DAL.Query(sql, empty)")

  238.        	file.WriteLine("			model." & PrimaryKeyDictionary(tableName) & " = rs(""" & PrimaryKeyDictionary(tableName) & """)")

  239.        	file.WriteLine("			Destroy rs")

  240.        	

  241.        	file.WriteLine("	End Sub")

  242. 		file.WriteLine("")

  243.        	file.WriteLine("	Public Sub Update(model)")       						

  244.        	file.WriteLine("		dim sql : sql = ""UPDATE ["& fixedTableName & "] SET [" & fieldNamesArray(1) & "] = ?,"" &_")

  245.        						

  246.        						For Fields = 2 To UBound(fieldNamesArray) - 1

  247.        							file.WriteLine("						""[" & fieldNamesArray(Fields) & "] = ?,"" &_")

  248.        						Next

  249.        						file.Write ("						""[" & fieldNamesArray(UBound(fieldNamesArray)) & "] = ?"" &_" & VbCrLf)

  250.        	file.WriteLine("						"" WHERE ["& PrimaryKeyDictionary(tableName) & "] = ?""")

  251.        	file.WriteLine("")

  252.        	file.WriteLine("		DAL.Execute sql, Array(model." & fieldNamesArray(1) & ", _")

  253.        						For Fields = 2 To UBound(fieldNamesArray) 

  254.        							file.WriteLine("							  model." & fieldNamesArray(Fields) & ", _")

  255.        						Next

  256.        						        file.Write("							  model." & PrimaryKeyDictionary(tableName) & ")" & VbCrLf)       						        

  257.        	file.WriteLine("	End Sub")

  258.        	file.WriteLine("")

  259.        	file.WriteLine("	Public Sub Delete(id)")

  260.        	file.WriteLine("		dim sql : sql = ""DELETE FROM ["& fixedTableName & "] WHERE ["& PrimaryKeyDictionary(tableName) & "] = ?""")

  261.        	file.WriteLine("		DAL.Execute sql, id")

  262.        	file.WriteLine("	End Sub") 

  263.         file.WriteLine("End Class")

  264.         file.WriteLine("")

  265.         File.WriteLine("dim " & fixedTableName & "Repository__Singleton")

  266.         File.WriteLine("Function "  & fixedTableName & "Repository()")

  267.         File.WriteLine("	If IsEmpty(" & fixedTableName & "Repository__Singleton) then")

  268.         file.WriteLine("		set " & fixedTableName & "Repository__Singleton = new " & fixedTableName & "Repository_Class")

  269.         file.WriteLine("	End If")

  270.         file.WriteLine("	set " & fixedTableName & "Repository = " & fixedTableName & "Repository__Singleton")

  271.         file.WriteLine("End Function")

  272.         

  273.         file.WriteLine("%>")

  274.         file.Close

  275.        

  276.        Set file = fso.CreateTextFile(ScriptDirectory()& "ViewModels\" & fixedTableName & "ViewModels.asp",True)

  277.         file.WriteLine("<%")

  278.         file.WriteLine("Class PagedIndex_ViewModel_Class")

  279.         file.WriteLine("		Public Title")

  280.         file.WriteLine("		Public " & fixedTableName)

  281.         file.WriteLine("")

  282.         file.WriteLine("		Public CurrentPageNumber")

  283.         file.WriteLine("		Public PageSize")

  284.         file.WriteLine("		Public PageCount")

  285.         file.WriteLine("		Public RecordCount")

  286.         file.WriteLine("End Class")

  287.         file.WriteLine("")

  288.         file.WriteLine("Class Edit_ViewModel_Class")

  289.         file.WriteLine("		Public Title")

  290.        	file.WriteLine("		Public " & fixedTableName)

  291.         file.WriteLine("")

  292.         file.WriteLine("End Class")

  293.         file.WriteLine("")	

  294.         file.WriteLine("Class Create_ViewModel_Class")

  295.         	For Each fieldName In fieldNamesArray

  296.         	If Not fieldName = PrimaryKeyDictionary(tableName) then

  297.         	file.WriteLine("		Public " & fieldName)  

  298.         	End If

  299.         	Next

  300.         file.WriteLine("End Class")

  301.         file.WriteLine("")

  302.         file.WriteLine("Class Delete_ViewModel_Class")

  303.         file.WriteLine("		Public Title")

  304.         file.WriteLine("		Public " & fixedTableName )

  305.         file.WriteLine("End Class")

  306.         file.WriteLine("")       

  307.         file.WriteLine("%>")

  308. 		file.Close

  309.         

  310.         Set file = fso.CreateTextFile(ScriptDirectory()& "Controllers\" & fixedTableName & "\" & fixedTableName & "Controller.asp",True)

  311.         file.WriteLine("<% Option Explicit %>")

  312.         file.WriteLine("<!--#include file=""../../include_all.asp""-->")

  313.         file.WriteLine("<!--#include file=""../../ViewModels/" & fixedTableName & "ViewModels.asp""-->")

  314.         file.WriteLine("<%")

  315.         file.WriteLine("Class " & fixedTableName & "Controller")

  316.         file.WriteLine("	Public Model")

  317.         file.WriteLine("")

  318.         file.WriteLine("	Public Sub Index")

  319.         file.WriteLine("")

  320.         file.WriteLine("		dim page_size : page_size = 10")

  321.         file.WriteLine("		dim page_num  : page_num  = Choice(Len(Request.Querystring(""page_num"")) > 0, Request.Querystring(""page_num""), 1)")

  322.         file.WriteLine("		dim page_count, record_count")

  323.         file.WriteLine("		set Model                   = new PagedIndex_ViewModel_Class")

  324.         file.WriteLine("		Model.Title                 = """ & tableName & """")

  325.         file.WriteLine("		set Model." & fixedTableName & "          = " & fixedTableName & "Repository.FindPaged(empty, """ & PrimaryKeyDictionary(tableName) & """, page_size, page_num, page_count, record_count)")

  326.         file.WriteLine("		Model.CurrentPageNumber     = page_num")

  327.         file.WriteLine("		Model.PageSize              = page_size")

  328.         file.WriteLine("		Model.PageCount             = page_count")

  329.         file.WriteLine("		Model.RecordCount           = record_count")

  330.         file.WriteLine("		%> <!--#include file=""../../Views/" & fixedTableName & "/Index.asp""--> <%")

  331.         file.WriteLine("")

  332.         file.WriteLine("	End Sub")

  333.         file.WriteLine("	Public Sub Search")

  334.         file.WriteLine("")

  335.         file.WriteLine("    	dim searchValue:searchValue = Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))")

  336.         file.WriteLine("		dim page_size : page_size = 10")

  337.         file.WriteLine("		dim page_num  : page_num  = Choice(Len(Request.Querystring(""page_num"")) > 0, Request.Querystring(""page_num""), 1)")

  338.         file.WriteLine("		dim page_count, record_count")

  339.         file.WriteLine("		set Model                   = new PagedIndex_ViewModel_Class")

  340.         file.WriteLine("		Model.Title                 = """ & tableName & """")

  341.         file.WriteLine("		set Model." & fixedTableName & "          = " & fixedTableName & "Repository.SearchTablePaged(Array(""" & Join (fieldNamesArray,""",""%"" & searchValue & ""%"",""") & """,""%"" & searchValue & ""%""),""" & PrimaryKeyDictionary(tableName) & """, page_size, page_num, page_count, record_count)")

  342.         file.WriteLine("		Model.CurrentPageNumber     = page_num")

  343.         file.WriteLine("		Model.PageSize              = page_size")

  344.         file.WriteLine("		Model.PageCount             = page_count")

  345.         file.WriteLine("		Model.RecordCount           = record_count")

  346.         file.WriteLine("		%> <!--#include file=""../../Views/" & fixedTableName & "/Index.asp""--> <%")

  347.         file.WriteLine("")

  348.         file.WriteLine("	End Sub")

  349.         file.WriteLine("")

  350.         file.WriteLine("	Public Sub Edit")

  351.         file.WriteLine("")

  352.         file.WriteLine("		dim id : id = Request.QueryString(""Id"")")

  353.         file.WriteLine("		set Model = new Edit_ViewModel_Class")

  354.         file.WriteLine("		set Model." & fixedTableName & " = " & fixedTableName & "Repository.FindBy" & PrimaryKeyDictionary(tableName) & "(id)")

  355.         file.WriteLine("		Model.Title = ""Edit " & fixedTableName & """")

  356.         file.WriteLine("		HTMLSecurity.SetAntiCSRFToken """ & fixedTableName & "EditForm""")

  357.         file.WriteLine("		%> <!--#include file=""../../Views/"& fixedTableName &"/Edit.asp""--> <%")

  358.         file.WriteLine("		Flash.Success = """ & fixedTableName & " " & id & " Updated.""")

  359.         file.WriteLine("	End Sub")

  360.         file.WriteLine("")

  361.         file.WriteLine("	Public Sub EditPost")

  362.         file.WriteLine("		MVC.RequirePost")

  363.         File.WriteLine("		HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt """ & fixedTableName & "EditForm"", Request.Form(""nonce""), ""Edit"", Array(""Id"", Request.Form(""Id""))")

  364.         File.WriteLine("		dim " & PrimaryKeyDictionary(tableName) & " : "  & PrimaryKeyDictionary(tableName) & " = Request.Form(""Id"")")

  365.         File.WriteLine("		dim model : set model = " & fixedTableName & "Repository.FindBy" & PrimaryKeyDictionary(tableName) & "(" & PrimaryKeyDictionary(tableName) & ")")

  366.         File.WriteLine("		set model = Automapper.AutoMap(Request.Form, model)")

  367. 		File.WriteLine("		'model.Validate")

  368. 		File.WriteLine("		'If model.Validator.HasErrors then")

  369. 		File.WriteLine("			FormCache.SerializeForm ""Edit" & fixedTableName & """, Request.Form")

  370. 		File.WriteLine("		'	Flash.Errors = model.Validator.Errors")

  371. 		File.WriteLine("		'	MVC.RedirectToActionExt ""Edit"", Array(""Id""," & PrimaryKeyDictionary(tableName) & ")")

  372. 		File.WriteLine("		'Else")

  373. 		File.WriteLine("			" & fixedTableName & "Repository.Update model")

  374. 		File.WriteLine("			FormCache.ClearForm ""Edit" & fixedTableName & """")

  375. 		File.WriteLine("			Flash.Success = """ & fixedTableName & " updated.""")

  376. 		File.WriteLine("			MVC.RedirectToAction ""Index""")

  377. 		File.WriteLine("		'End If")

  378. 	    file.WriteLine("	End Sub")

  379.         file.WriteLine("")

  380.         file.WriteLine("	Public Sub Create")

  381.         file.WriteLine("")

  382.         file.WriteLine("		dim form_params : set form_params = FormCache.DeserializeForm(""New" & fixedTableName & """)")

  383.         file.WriteLine("		If Not form_params Is Nothing then")

  384.         file.WriteLine("			set Model = Automapper.AutoMap(form_params, New Create_ViewModel_Class)")

  385.         file.WriteLine("		Else")

  386.         file.WriteLine("			set Model = new Create_ViewModel_Class")

  387.         file.WriteLine("		End If")

  388.         file.WriteLine("")

  389.         file.WriteLine("  		HTMLSecurity.SetAntiCSRFToken """ & fixedTableName & "CreateForm""")

  390.         file.WriteLine("")

  391.         file.WriteLine("		%> <!--#include file=""../../Views/" & fixedTableName & "/Create.asp""--> <%")

  392.         file.WriteLine("	End Sub")

  393.         file.WriteLine("")

  394.         file.WriteLine("	Public Sub CreatePost")

  395.         file.WriteLine("")

  396.         file.WriteLine("		MVC.RequirePost")

  397.         file.WriteLine("			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction """ & fixedTableName & "CreateForm"", Request.Form(""nonce""), ""Create""")

  398.         file.WriteLine("")

  399.         file.WriteLine("			dim new_" & fixedTableName & "_model : set new_" & fixedTableName & "_model = Automapper.AutoMap(Request.Form, new " & fixedTableName & "Model_Class)")	

  400.         file.WriteLine("")

  401.         file.WriteLine("			'new_" & fixedTableName & "_model.Validator.Validate")

  402.         file.WriteLine("")

  403.         file.WriteLine("			'If new_" & fixedTableName & "_model.Validator.HasErrors then")

  404.         file.WriteLine("			'	FormCache.SerializeForm ""New" & fixedTableName & """, Request.Form")

  405.         file.WriteLine("			'	Flash.Errors = new_" & fixedTableName & "_model.Validator.Errors")

  406.         file.WriteLine("			'	MVC.RedirectToAction ""Create""")

  407.         file.WriteLine("			'Else")

  408.         file.WriteLine("				" & fixedTableName & "Repository.AddNew new_" & fixedTableName & "_model")

  409.         File.WriteLine("			'	FormCache.ClearForm ""New" & fixedTableName & """")

  410.         File.WriteLine("				Flash.Success = """ & fixedTableName & " added.""")

  411.         File.WriteLine("				MVC.RedirectToAction ""Index""")

  412.         File.WriteLine("			'End If")

  413.         file.WriteLine("	End Sub")

  414.         file.WriteLine("")

  415.         file.WriteLine("	Public Sub Delete")

  416.         file.WriteLine("		dim id : id = Request.QueryString(""Id"")")

  417.         file.WriteLine("		set Model = new Delete_ViewModel_Class")

  418.         file.WriteLine("		set Model." & fixedTableName & " = " & fixedTableName & "Repository.FindBy" & PrimaryKeyDictionary(tableName) & "(id)")

  419.         file.WriteLine("			Model.Title = ""Delete " & fixedTableName & """")

  420.         file.WriteLine("")

  421.         file.WriteLine("		HTMLSecurity.SetAntiCSRFToken """ & fixedTableName & "DeleteForm""")

  422.         file.WriteLine("")

  423.         file.WriteLine("		%> <!--#include file=""../../Views/" & fixedTableName & "/Delete.asp""--> <%")

  424.         file.WriteLine("	End Sub")

  425.         file.WriteLine("")

  426.         file.WriteLine("	Public Sub DeletePost")

  427.         file.WriteLine("			MVC.RequirePost")

  428.         file.WriteLine("			HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction """ & fixedTableName & "DeleteForm"", Request.Form(""nonce""), ""Create""")

  429.         file.WriteLine("")

  430.         file.WriteLine("			dim id : id = Request.Form(""Id"")")

  431.         file.WriteLine("			" & fixedTableName & "Repository.Delete id")

  432.         file.WriteLine("")

  433.         file.WriteLine("			Flash.Success = """ & fixedTableName & " deleted.""")

  434.         file.WriteLine("			MVC.RedirectToAction ""Index""") 

  435.         file.WriteLine("	End Sub")

  436.         file.WriteLine("")

  437.         file.WriteLine("End Class")

  438.         file.WriteLine("MVC.Dispatch")

  439.         file.WriteLine("%>")

  440.         file.Close

  441. 	

  442.     	Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\edit.asp",True)

  443.     	file.WriteLine("<h2><%= H(Model.Title) %></h2>")

  444.     	file.WriteLine("<%= HTML.FormTag("""& tableName & """, ""EditPost"", empty, empty) %>")

  445.     	file.WriteLine("	<%= HTML.Hidden(""nonce"", HTMLSecurity.GetAntiCSRFToken(""" & fixedTableName & "EditForm"")) %>")

  446.     	file.WriteLine("	<%= HTML.Hidden(""Id"", Model." & fixedTableName & "." & PrimaryKeyDictionary(tableName) & ") %>")

  447.     		For Each field In fieldNamesArray

  448.     		If Not field = PrimaryKeyDictionary(tableName) then

  449.     			file.WriteLine("	<div class=""row"">")

  450.     			file.WriteLine("		<div class=""col-md-4"">")

  451.     			file.WriteLine("			<div class=""form-group"">")

  452.     			file.WriteLine("				<label for=""" & field & """>" & field & "</label>")

  453.     			file.WriteLine("				<%= HTML.TextboxExt(""" & field & """, Model." & fixedTableName & "." & field & ", Array(""class"", ""form-control"")) %>")

  454.     			file.WriteLine("			</div>")

  455.     			file.WriteLine("		</div>")

  456.     			file.WriteLine("	</div>")

  457.     			End if

  458.     		Next

  459.     	file.WriteLine("<hr />")

  460.     	file.WriteLine("<div class=""form-group"">")

  461.     	file.WriteLine("	<% = HTML.Button(""submit"", ""<i class='glyphicon glyphicon-ok'></i> Save"", ""btn-primary"") %>")

  462.     	

  463.      	file.WriteLine("	   			&nbsp;&nbsp;")

  464. 		file.WriteLine("				<%= HTML.LinkToExt(""<i class='glyphicon glyphicon-remove'></i> Delete"", """ & fixedTableName & """, ""Delete"", Array(""id"", Model." & fixedTableName & "." & PrimaryKeyDictionary(tableName) & "), Array(""class"", ""btn btn-danger"")) %>")

  465. 		file.WriteLine("				&nbsp;&nbsp;")

  466. 		file.WriteLine("				<%= HTML.LinkToExt(""Cancel"", """ & fixedTableName & """, ""Index"", empty, Array(""class"", ""btn btn-default"")) %>")

  467.     	file.WriteLine("</div>")

  468.     	file.WriteLine("</form>")

  469.     	file.Close   

  470.         Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\index.asp",True)

  471.         file.WriteLine("<h2><%= H(Model.Title) %></h2>")

  472.         file.WriteLine("<div class=""row"">")

  473.         file.WriteLine("	<div class=""col-md-8 col-sm-8 col-xs-12"">")

  474.         file.WriteLine("		<%= H(Model.RecordCount) %> " & tableName & " found. Showing <%= H(Model.PageSize) %> records per page.")

  475.         file.WriteLine("		<%= HTML.LinkToExt(""<i class='bi bi-plus-square-fill'></i> New"",""" & fixedTableName & """, ""Create"", empty, Array(""class"", ""btn btn-xs btn-primary"")) %>")

  476.         file.WriteLine("	</div>")

  477.         file.WriteLine("            <div class=""col-md-4 col-sm-4 col-xs-12"">")

  478. 		file.WriteLine("")

  479. 		file.WriteLine("	    <%= HTML.FormTag(""" & fixedTableName & """, ""Search"", empty, empty) %>")

  480. 		file.WriteLine("")

  481. 		file.WriteLine("	        <div class=""col-md-10 col-sm-10 col-xs-12"">")

  482. 		file.WriteLine("		        <label class=""sr-only"" for=""search"">Search</label>")

  483. 		file.WriteLine("		            <div class=""input-group"">")

  484. 		file.WriteLine("			            <input type=""text"" class=""form-control input-search"" value='<%= Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q"")) %>' name=""q"" id=""search"" placeholder=""Search"">")

  485. 		file.WriteLine("			            <span class=""input-group-addon group-icon""><span class=""glyphicon glyphicon-eye-open""></span>")

  486.         file.WriteLine("                        <button type=""submit"" class=""btn btn-success""><i class=""bi bi-search""></i>Search</buttton>")

  487. 		file.WriteLine("		            </div>")

  488. 		file.WriteLine("	        </div>")

  489. 		file.WriteLine("")	

  490.         file.WriteLine("        </form>")

  491.         file.WriteLine("    </div>")

  492. 		file.WriteLine("</div>")

  493. 		file.WriteLine("<table id=""" & fixedTableName & """ class=""table table-striped"">")

  494.     	file.WriteLine("	<thead>")

  495.         file.WriteLine("		<tr>")

  496.         file.WriteLine("			<th></th>")

  497.         

  498.         	For Each field In fieldNamesArray

  499.         file.WriteLine("			<th style=""text-align: left"">" & field & "</th>")

  500.         	Next

  501.         	

  502.         file.WriteLine("			<th></th>")

  503.         file.WriteLine("		</tr>")

  504.     	file.WriteLine("	</thead>")

  505.     	file.WriteLine("<tbody>")

  506. 		file.WriteLine("        <% dim it : set it = Model." & fixedTableName & ".Iterator %>")

  507. 		file.WriteLine("			<% dim " & fixedTableName & " %>")

  508. 		file.WriteLine("			<% While it.HasNext %>")

  509. 		file.WriteLine("				<% set " & fixedTableName & " = it.GetNext() %>")

  510. 		file.WriteLine("				<tr>")

  511. 		file.WriteLine("					<td>")

  512. 		file.WriteLine("						<%= HTML.LinkToExt(""<i class='bi bi-search'></i>"", """& fixedTableName &""", ""Edit"", Array(""Id"", " & fixedTableName & "." & PrimaryKeyDictionary(tableName) & "), Array(""class"", ""btn btn-primary"")) %>")	

  513. 		file.WriteLine("					</td>")

  514. 		        	

  515. 		        	For Each field In fieldNamesArray

  516.         				file.WriteLine("			<td><% = H(" & fixedTableName & "." & field &") %></td>")

  517.         			Next

  518. 		file.WriteLine("</tr>")

  519. 		file.WriteLine("					<% Wend %>")

  520. 		file.WriteLine("    </tbody>")

  521. 		file.WriteLine("</table>")

  522. 		file.WriteLine("		<div>")

  523. 		file.WriteLine("    <% If Model.CurrentPageNumber <> 1 then %>")

  524. 		file.WriteLine("        <%= HTML.LinkToExt(""<i class='bi bi-chevron-left'></i><i class='bi bi-chevron-left'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", 1,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")

  525. 		file.WriteLine("        &nbsp;")

  526. 		file.WriteLine("        <%= HTML.LinkToExt(""<i class='bi bi-chevron-left'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", Model.CurrentPageNumber - 1,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")

  527.         		file.WriteLine("&nbsp;")

  528. 		file.WriteLine("    <% Else %>")

  529. 		file.WriteLine("        <a class='btn btn-default disabled'><i class='bi bi-chevron-left'></i><i class='bi bi-chevron-left'></i></a>")

  530. 		file.WriteLine("        &nbsp;")

  531. 		file.WriteLine("        <a class='btn btn-default disabled'><i class='bi bi-chevron-left'></i></a>")

  532. 		file.WriteLine("        &nbsp; ")

  533. 		file.WriteLine("    <% End If %>")

  534. 

  535. 		file.WriteLine("    <% If CInt(Model.CurrentPageNumber) < CInt(Model.PageCount) then %>")

  536.  		file.WriteLine("       <%= HTML.LinkToExt(""<i class='bi bi-chevron-right'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", Model.CurrentPageNumber + 1,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")

  537.  		file.WriteLine("       &nbsp;")

  538.  		file.WriteLine("       <%= HTML.LinkToExt(""<i class='bi bi-chevron-right'></i><i class='bi bi-chevron-right'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", Model.PageCount,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")

  539.  		file.WriteLine("       &nbsp;")

  540. 		file.WriteLine("    <% Else %>")

  541. 		file.WriteLine("        <a class='btn btn-default disabled'><i class='bi bi-chevron-right'></i><i class='bi bi-chevron-right'></i></a>")

  542. 		file.WriteLine("        &nbsp;")

  543. 		file.WriteLine("        <a class='btn btn-default disabled'><i class='bi bi-chevron-right'></i></a>")

  544. 		file.WriteLine("        &nbsp; ")

  545.     		file.WriteLine("<% End If %>")

  546. 		file.WriteLine("</div>")

  547. 

  548. 

  549. 		file.WriteLine("</div>")

  550. 		

  551.         file.Close

  552.         

  553.         Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\create.asp",True)

  554.         file.WriteLine("<h2>Create " & fixedTableName &"</h2>")

  555.         file.WriteLine("")

  556.         file.WriteLine("<%= HTML.FormTag(""" & fixedTableName &""", ""CreatePost"", empty, empty) %>")

  557.         file.WriteLine("<%= HTML.Hidden(""nonce"", HTMLSecurity.GetAntiCSRFToken("""& fixedTableName & "CreateForm"")) %>")

  558.         file.WriteLine("<hr />")

  559. 		file.WriteLine("")

  560.     	file.WriteLine("<div class=""form-group"">")

  561.     		For Each field In fieldNamesArray

  562.     		If Not field = PrimaryKeyDictionary(tableName) then

  563.                 file.WriteLine("	<div class=""row"">")

  564.             	file.WriteLine("		<div class=""col-md-4"">")

  565.     			file.WriteLine("			<div class=""form-group"">")

  566.     			file.WriteLine("				<label for=""" & field & """>" & field & "</label>")

  567.     			file.WriteLine("				<%= HTML.TextboxExt(""" & field & """, Model." & field & ", Array(""class"", ""form-control"")) %>")

  568.     			file.WriteLine("			</div>")

  569.     			file.WriteLine("		</div>")

  570.     			file.WriteLine("	</div>")

  571.     			End if

  572.     		Next

  573.     	file.WriteLine("    <%= HTML.Button(""submit"", ""<i class='glyphicon glyphicon-ok'></i> Create"", ""btn-primary"") %>")

  574.     	file.WriteLine("    &nbsp;&nbsp;")

  575.     	file.WriteLine("    <%= HTML.LinkToExt(""<i class='glyphicon glyphicon-remove'></i> Cancel"", """ & fixedTableName & """, ""Index"", empty, Array(""class"", ""btn btn-default"")) %>")

  576.    

  577.     	file.WriteLine("</div>")

  578. 		file.WriteLine("")

  579. 		file.WriteLine("</form>")

  580.         

  581.         file.Close

  582.         Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\delete.asp",True)        

  583.         file.WriteLine("<h2><%= H(Model.Title) %></h2>")

  584.         file.WriteLine("")

  585.         file.WriteLine("<p class=""alert alert-danger"">Are you sure you want to delete this " & fixedTableName & "?</p>")

  586.         file.WriteLine("")

  587.         file.WriteLine("<%= HTML.FormTag(""" & fixedTableName & """, ""DeletePost"", empty, Array(""class"", ""form-horizontal"")) %>")

  588.         file.WriteLine("<%= HTML.Hidden(""nonce"", HTMLSecurity.GetAntiCSRFToken(""" & fixedTableName & "DeleteForm"")) %>")

  589.     	file.WriteLine("<%= HTML.Hidden(""Id"", Model." & fixedTableName & "." & PrimaryKeyDictionary(tableName) & ") %>")

  590.         file.WriteLine("<div class=""col-md-10"">")

  591.         file.WriteLine("<div class=""form-group"">")

  592.         file.WriteLine("     <%= HTML.Button(""submit"", ""<i class='glyphicon glyphicon-remove'></i> Confirm Delete"", ""btn-danger"") %>")

  593.         file.WriteLine("    &nbsp;&nbsp;")

  594.         file.WriteLine("     <%= HTML.LinkToExt(""Cancel"", """ & fixedTableName & """, ""Index"", empty, Array(""class"", ""btn btn-success"")) %>")

  595. 

  596.         For Each field In fieldNamesArray

  597.         If Not field = PrimaryKeyDictionary(tableName) Then

  598.                 file.WriteLine("	<div class=""row"">")

  599.             	file.WriteLine("		<div class=""col-md-4"">")

  600.     			file.WriteLine("			<div class=""form-group"">")

  601.     			file.WriteLine("				<label for=""" & field & """>" & field & "</label>")

  602.     			file.WriteLine("				<%= HTML.TextboxExt(""" & field & """, Model." & fixedTableName & "." & field & ", Array(""class"", ""form-control"")) %>")

  603.     			file.WriteLine("			</div>")

  604.     			file.WriteLine("		</div>")

  605.     			file.WriteLine("	</div>")

  606.     	End If

  607.         Next

  608. 

  609.         file.WriteLine(" </div>")

  610.         file.WriteLine("</div>")

  611.         file.WriteLine("</form>")

  612.        

  613.        

  614.        

  615.         file.Close

  616.         Set objFile = fso.OpenTextFile(ScriptDirectory() & "Views\Shared\layout.header.asp",1)

  617.         	headerHtml = objFile.ReadAll()

  618.         	objFile.Close

  619.         	

  620.         	dropDownLinks = "<li role=""presentation"" class=""dropdown"">" &_

  621.         	"    <a class=""dropdown-toggle"" data-toggle=""dropdown"" href=""#"" role=""button"" aria-haspopup=""true"" aria-expanded=""false"">" &_

  622.         	"      Dropdown <span class=""caret""></span></a>" &_

  623.         	""

  624.         	

  625.         	If InStr(headerHtml,"<li class=""nav-item""><%= Html.LinkTOExt(""" & tableName & """,""" & fixedTableName & """,""Index"",empty,Array(""Class"",""nav-link"")) %></li>") = 0 then

  626.         		newHeaderHtml = Replace(headerHtml,"<!--nav bar placeholder-->","						<li class=""nav-item""><%= Html.LinkTOExt(""" & tableName & """,""" & fixedTableName & """,""Index"",empty,Array(""Class"",""nav-link"")) %></li>" & vbCrLf & "<!--nav bar placeholder-->")

  627.         		Set objFile = fso.OpenTextFile(ScriptDirectory() & "Views\Shared\layout.header.asp",2)

  628.         		objFile.WriteLine newHeaderHtml

  629.         		

  630.         	End If

  631.         	objFile.Close

  632.         

  633.         

  634.         

  635.         props.Clear

  636.         rs.MoveNext

  637.        

  638.         Else

  639.         rs.MoveNext

  640.        

  641.         End if

  642.        

  643. Loop

  644. includedFile.Close

  645. WScript.Quit

  646. 

  647. Sub includeFile(fSpec)

  648.     executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(IncludeDirectory & fSpec & ".vbs").readAll()

  649. End Sub

  650. 

  651. Function PrimaryKeysFromADOConnectionToDictionary(ADOConn)

  652. Dim rstSchema

  653. Dim returnDictionary

  654. 

  655. 	If TypeName(ADOConn) = "Connection" Then

  656. 		Set rstSchema = oConn.OpenSchema(adSchemaPrimaryKeys)

  657. 		Set rstableNames = oConn.OpenSchema(20,Array(Empty, Empty, Empty, "Table"))

  658. 		Set returnDictionary = WScript.CreateObject("scripting.dictionary")			

  659. 			

  660. 			While Not rstSchema.EOF 

  661. 				If returnDictionary.Exists(rstSchema.Fields("TABLE_NAME").Value) = false Then		

  662. 		 			returnDictionary.Add rstSchema.Fields("TABLE_NAME").Value,rstSchema.Fields("COLUMN_NAME").Value	

  663. 		 		End If

  664. 		 		rstSchema.MoveNext	 	

  665. 		 	Wend

  666. 	rstSchema.Close

  667. 	End If 

  668. 	

  669. 	Set PrimaryKeysFromADOConnectionToDictionary = returnDictionary

  670. End Function

  671. 

  672. Sub Init

  673. 

  674. MsgBox(oConn.State)

  675. If oConn.State = 0 Then

  676. oConn.Open()

  677. 'End If

  678. Set PrimaryKeyDictionary = PrimaryKeysFromADOConnectionToDictionary(oConn)

  679. If Not fso.FolderExists(ScriptDirectory()& "DomainModels\") Then fso.CreateFolder(ScriptDirectory()& "DomainModels\")

  680. If Not fso.FolderExists(ScriptDirectory()& "ViewModels\") Then fso.CreateFolder(ScriptDirectory()& "ViewModels\")

  681. If Not fso.FolderExists(ScriptDirectory()& "Controllers\") Then fso.CreateFolder(ScriptDirectory()& "Controllers\")

  682. If Not fso.FolderExists(ScriptDirectory()& "Views\") Then fso.CreateFolder(ScriptDirectory()& "Views\")

  683. 

  684. Set includedFile = fso.CreateTextFile(ScriptDirectory()& "include_all.asp",True)

  685. includedFile.WriteLine("<!--#include file=""../MVC/lib.all.asp""-->")

  686. includedFile.WriteLine("<!--#include file=""DAL/lib.DAL.asp""-->")

  687. includedFile.WriteLine("<!--#include file=""app.Config.asp""-->")

  688. 

  689. Set rs = oConn.OpenSchema(20,Array(Empty, Empty, Empty, "Table"))

  690. End If

  691. 

  692. 

  693. End Sub 

  694. 

  695. 

  696. Sub InitFieldNameIterator

  697.         	Dim cmd

  698.         	Set cmd = WScript.CreateObject("ADODB.COMMAND")

  699.         	cmd.ActiveConnection = oConn

  700.         	cmd.CommandText = "Select * From [" & tableName & "]"

  701.         Set FieldsRs =  cmd.Execute()

  702.         Set fields = FieldsRs.Fields

  703.         

  704.       Set props = New Stack

  705.   

  706.  

  707.         	For Each Field In FieldsRs.Fields

  708.         		props.Push(Field.Name)

  709.         		file.WriteLine ("	Public " & Field.Name & " '" & Field.Attributes)

  710.         	Next

  711.         FieldsRs.Close	

  712. 

  713.         If Not PrimaryKeyDictionary.Exists(tableName) Then

  714.         	PrimaryKeyDictionary.Add tableName,props.ToArray()(0)

  715.         End If

  716. End Sub

Powered by TurnKey Linux.