DoCmd.RunSQL ("INSERT INTO Notes_To_Regen ( Note_ID, [Timestamp] ) SELECT Notes.ID, Now() AS X FROM Notes WHERE (((Notes.ID)=268));") 'Regenerate the Blog Note
DoCmd.RunSQL ("INSERT INTO Notes_To_Regen ( Note_ID, [Timestamp] ) SELECT Notes.ID, Now() AS X FROM Notes WHERE (((Notes.ID)=1276));") 'Regenerate the Coxes Farm Timeline Note
strMessage = "Output the Coxes Farm (Repairs) Photo List Page? Note that Note 1278 has to be set to 'Temp' for the Functor to import the changed data. "
DoCmd.RunSQL ("INSERT INTO Notes_To_Regen ( Note_ID, [Timestamp] ) SELECT Notes.ID, Now() AS X FROM Notes WHERE (((Notes.ID)=1278));") 'Regenerate the Coxes Farm Timeline Note
strMessage = "Output the Coxes Farm (Pre-Repairs) Photo List Page? Note that Note 1282 has to be set to 'Temp' for the Functor to import the changed data. "
DoCmd.RunSQL ("INSERT INTO Notes_To_Regen ( Note_ID, [Timestamp] ) SELECT Notes.ID, Now() AS X FROM Notes WHERE (((Notes.ID)=1282));") 'Regenerate the Coxes Farm Timeline Note
DoCmd.RunSQL ("INSERT INTO Notes_To_Regen ( Note_ID, [Timestamp] ) SELECT Notes.ID, Now() AS X FROM Notes WHERE (((Notes.ID)=1283));") 'Regenerate the Coxes Farm Timeline Note
strQuery = "SELECT Blog.Item_Date, Blog.Item_Title, Blog.Item_Topic, Blog.Note_1, Blog.Note_2, Blog.Note_3, Blog.Note_4 FROM Blog ORDER BY Blog.Item_Date DESC , Blog.Item_Title;"
strControlQuery = "Select Notes_To_Print.* FROM Notes_To_Print WHERE (Notes_To_Print.Note_ID = " & rs.Fields(2 + i) & " AND Notes_To_Print.Current=True) ORDER BY Notes_To_Print.Max_Depth, Notes_To_Print.Print_ReadingList;"
0048
Set rsNotes = CurrentDb.OpenRecordset(strControlQuery)
strQuery = "SELECT Note_Footnotes.Note_ID, Note_Footnotes.FN_Text, Note_Footnotes.FN_ID, Note_Footnotes.Master_ID FROM Note_Footnotes ORDER BY Note_Footnotes.Note_ID, Note_Footnotes.FN_Text, Note_Footnotes.FN_ID;"
Source Code of: Spider_Weblinks_Tester_Summary_Gen Procedure Type: Public Sub Module: Spider Lines of Code: 60 Go To End of This Procedure
Line-No. / Ref.
Code Line
0001
Public Sub Spider_Weblinks_Tester_Summary_Gen()
0002
Dim strOutputFolder As String
0003
Dim strOutputFile As String
0004
Dim strLine As String
0005
Dim FileName As String
0006
Dim FileName_Root As String
0007
Dim strControlQuery As String
0008
Dim rsFooterControl As Recordset
0009
strOutputFolder = TheoWebsiteRoot & "\Test\"
0010
FileName_Root = "WebLinks_Tester_Summary"
0011
FileName = FileName_Root & ".htm"
0012
Set fsoTextFile2 = New FileSystemObject
0013
strOutputFile = strOutputFolder & FileName
0014
Set tsTextFile = fsoTextFile2.CreateTextFile(strOutputFile, True, True)
0015
strLine = ""
0016
tsTextFile.WriteLine strLine
0017
strLine = ""
0018
tsTextFile.WriteLine strLine
0019
strLine = "Theo Todman's Web-Links Test Webpages"
0020
tsTextFile.WriteLine strLine
0021
strLine = ""
0022
tsTextFile.WriteLine strLine
0023
strLine = "
Theo Todman's Web-Links Test Webpages
"
0024
tsTextFile.WriteLine strLine
0025
strLine = "
For lists of External Links from my site,
"
0026
tsTextFile.WriteLine strLine
0027
strLine = "
Follow this Link for a full de-duplicated entry-sequenced list of links,
"
0028
tsTextFile.WriteLine strLine
0029
strLine = "
Follow this Link for a full entry-sequenced list of links, determined by the Spider, showing the page(s) they are referenced from,
"
0030
tsTextFile.WriteLine strLine
0031
strLine = "
Follow this Link for another full entry-sequenced list of links, using links found from the WebRefs Mapper, showing the page(s) they are referenced from,
"
0032
tsTextFile.WriteLine strLine
0033
strLine = "
Follow this Link for a list of all links (as determined by the Spider) for which problems have been detected, ordered by entry sequence within issue-category, and
"
0034
tsTextFile.WriteLine strLine
0035
strLine = "
Follow this Link for an alternative list of all links (determined by the WebRef Mapper, and omitting composite pages) for which problems have been detected, ordered by entry sequence within issue-category.
"
0036
tsTextFile.WriteLine strLine
0037
strLine = "
Follow this Link for a list of all links (as determined by the Spider; not yet investigated and flagged as defunct) for which problems have been detected, ordered by entry sequence within issue-category, and
"
0038
tsTextFile.WriteLine strLine
0039
strLine = "
Follow this Link for an alternative list of all links (determined by the WebRef Mapper, and omitting composite pages; not yet investigated and flagged as defunct) for which problems have been detected, ordered by entry sequence within issue-category.
"
0040
tsTextFile.WriteLine strLine
0041
strLine = "
I am in the process of using these lists to check the links, correcting (where possible) those that are broken.
strControlQuery = "SELECT Website_Control.Line_Value FROM Website_Control WHERE (((Website_Control.Web_Page) = """ & strControlTable & """) And ((Website_Control.Section) = ""Footer"")) ORDER BY Website_Control.Line;"
0050
Set rsFooterControl = CurrentDb.OpenRecordset(strControlQuery)