{"id":52,"date":"2007-07-16T22:50:05","date_gmt":"2007-07-16T22:50:05","guid":{"rendered":"https:\/\/www.wapshere.com\/missmiis\/?page_id=52"},"modified":"2008-01-18T16:33:03","modified_gmt":"2008-01-18T16:33:03","slug":"personalwebsites_csextension","status":"publish","type":"page","link":"https:\/\/www.wapshere.com\/missmiis\/code-snippets\/personalwebsites_csextension","title":{"rendered":"PersonalWebsites_CSExtension.vb"},"content":{"rendered":"

<\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/span><\/p>\n

Imports<\/span> Microsoft.MetadirectoryServices<\/font><\/span><\/p>\n

Imports<\/span> System.IO<\/font><\/span><\/p>\n

Imports<\/span> System.Data.SqlClient<\/font><\/span><\/p>\n

Imports<\/span> OCG.Utility.Xml<\/font><\/span><\/p>\n

Imports<\/span> zbitz<\/font><\/span><\/p>\n

\u00c2\u00a0 <\/font><\/span><\/p>\n

<\/span><\/p>\n

<\/span><\/p>\n

Public<\/span> <\/font>Class<\/span> MACallExport_PersonalWebsites<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Implements<\/span> IMAExtensibleFileImport<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Implements<\/span> IMAExtensibleCallExport<\/font><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Const<\/span> DB_TABLE_NAME <\/font>As<\/span> <\/font>String<\/span> = “PersonalWebsites”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Const<\/span> DB_CONNECTION_STRING <\/font>As<\/span> <\/font>String<\/span> = “Database=MIISData;Data Source=localhost;Integrated Security=Yes;”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> sqlExportConnection <\/font>As<\/span> <\/font>New<\/span> SqlConnection(DB_CONNECTION_STRING)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> MAcol <\/font>As<\/span> <\/font>New<\/span> MAConfiguration(Utils.ExtensionsDirectory & “\\MA_Params.xml”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> Params <\/font>As<\/span> MAParams = MAcol.Parameters(“PersonalWebsites-MA”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> MAName <\/font>As<\/span> <\/font>String<\/span> = Params(“ma-name”)<\/font><\/span><\/p>\n

\u00c2\u00a0 <\/font><\/span><\/p>\n

<\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Public<\/span> <\/font>Sub<\/span> GenerateImportFile(<\/font>ByVal<\/span> filename <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> connectTo <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> user <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> password <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> configParameters <\/font>As<\/span> ConfigParameterCollection, <\/font>ByVal<\/span> fullImport <\/font>As<\/span> <\/font>Boolean<\/span>, <\/font>ByVal<\/span> types <\/font>As<\/span> TypeDescriptionCollection, <\/font>ByRef<\/span> customData <\/font>As<\/span> <\/font>String<\/span>) <\/font>Implements<\/span> IMAExtensibleFileImport.GenerateImportFile<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> WebRoot <\/font>As<\/span> <\/font>String<\/span> = Params(“personal-website-root”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> fw <\/font>As<\/span> StreamWriter<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Try<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>‘Open the output file specified in the run profile<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 fw = <\/font>New<\/span> StreamWriter(filename, <\/font>False<\/span>)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Catch<\/span> ex <\/font>As<\/span> Exception<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Throw<\/span> <\/font>New<\/span> UnauthorizedAccessException(“Unable to open file: ” & filename)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Try<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 fw.WriteLine(“WebPath,staffid,uid,Type,Status”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 ListFolders(WebPath, fw)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 fw.Close()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Sub<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Sub<\/span> ListFolders(<\/font>ByVal<\/span> path <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByRef<\/span> fw <\/font>As<\/span> StreamWriter)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> s() <\/font>As<\/span> <\/font>String<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> folders <\/font>As<\/span> System.Collections.IEnumerator<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> sqlQueryConnection <\/font>As<\/span> <\/font>New<\/span> SqlConnection(DB_CONNECTION_STRING)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlQueryConnection.Open()<\/font><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 s = System.IO.Directory.GetDirectories(path)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 folders = s.GetEnumerator<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>While<\/span> folders.MoveNext<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> sqlQueryCommand <\/font>As<\/span> <\/font>New<\/span> SqlCommand(“SELECT * FROM ” & DB_TABLE_NAME & ” where WebPath='” & folders.Current & “‘”, sqlQueryConnection)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> cnReader <\/font>As<\/span> SqlDataReader = sqlQueryCommand.ExecuteReader<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> importLine <\/font>As<\/span> <\/font>String<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> cnReader.Read <\/font>Then<\/span><\/span><\/p>\n

<\/span><\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>‘DB columns: WebPath, staffid, uid, Status<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 importLine = cnReader.Item(1) & “,” & cnReader.Item(2) & “,” & cnReader.Item(3)<\/p>\n

<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Else<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 importLine = “,,,”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 importLine = folders.Current & “,” & importLine<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 fw.WriteLine(importLine)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 cnReader.Close()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>While<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlQueryConnection.Close()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Sub<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Public<\/span> <\/font>Sub<\/span> BeginExport(<\/font>ByVal<\/span> connectTo <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> user <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> password <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> configParameters <\/font>As<\/span> ConfigParameterCollection, <\/font>ByVal<\/span> types <\/font>As<\/span> TypeDescriptionCollection) <\/font>Implements<\/span> IMAExtensibleCallExport.BeginExport<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlExportConnection.Open()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Sub<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Public<\/span> <\/font>Sub<\/span> ExportEntry(<\/font>ByVal<\/span> modificationType <\/font>As<\/span> ModificationType, <\/font>ByVal<\/span> changedAttributes <\/font>As<\/span> <\/font>String<\/span>(), <\/font>ByVal<\/span> csentry <\/font>As<\/span> CSEntry) <\/font>Implements<\/span> IMAExtensibleCallExport.ExportEntry<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> WebPath <\/font>As<\/span> <\/font>String<\/span> = csentry(“WebPath”).Value<\/font><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> csentry(“Status”).IsPresent <\/font>AndAlso<\/span> csentry(“Status”).Value = “archive pending” <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> ArchiveWebFolder(WebPath, csentry(“uid”).Value) = 0 <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 updateRow(WebPath, “archived”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>ElseIf<\/span> modificationType = modificationType.Delete <\/font>AndAlso<\/span> csentry(“Status”).Value = “archived” <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 updateRow(WebPath, “deleted”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 DeleteWebFolder(csentry)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>ElseIf<\/span> modificationType = modificationType.Add <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> <\/font>Not<\/span> rowExists(WebPath) <\/font>AndAlso<\/span> csentry(“uid”).IsPresent <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0<\/font>If<\/span> CreateWebFolder(csentry) = 0 <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 addRow(WebPath, csentry(“staffid”).Value, csentry(“uid”).Value, “adding”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>ElseIf<\/span> rowExists(WebPath) <\/font>And<\/span> csentry(“Status”).Value = “adding” <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> CreateWebFolder(csentry) = 0 <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 updateRow(WebPath, “active”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Else<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> <\/font>Not<\/span> rowExists(WebPath) <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 addRow(WebPath, csentry(“LBSNo”).Value, csentry(“uid”).Value, “active”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Sub<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> CreateWebFolder(<\/font>ByVal<\/span> csentry <\/font>As<\/span> CSEntry) <\/font>As<\/span> <\/font>Integer<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> script <\/font>As<\/span> <\/font>String<\/span><\/span>\u00c2\u00a0= Params(“script-createsite”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RunProcess(script, csentry(“uid”).Value)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> DeleteWebFolder(<\/font>ByVal<\/span> csentry <\/font>As<\/span> CSEntry) <\/font>As<\/span> <\/font>Integer<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> script <\/font>As<\/span> <\/font>String<\/span><\/span> = Params(“script-deletesite”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 RunProcess(script, csentry(“WebPath”).Value.Split(“\\”)(4))<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> ArchiveWebFolder(<\/font>ByVal<\/span> path <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> uid <\/font>As<\/span> <\/font>String<\/span>) <\/font>As<\/span> Int16<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> status <\/font>As<\/span> Int16<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> archive <\/font>As<\/span> <\/font>New<\/span> Czzip<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> archivePath <\/font>As<\/span> <\/font>String<\/span> = Params(“archive-path”) & uid & “.zip”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> System.IO.File.Exists(archivePath) <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Throw<\/span> <\/font>New<\/span> UnexpectedDataException(“Archive file ” & archivePath & ” already exists”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> logtxt = <\/font>Date<\/span>.Now & ” Zipping ” & path & “: “<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 status = archive.ZipFile(path, archivePath)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> status = 0 <\/font>AndAlso<\/span> <\/font>Not<\/span> System.IO.File.Exists(archivePath) <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 status = -1<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Return<\/span> status<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Public<\/span> <\/font>Sub<\/span> EndExport() <\/font>Implements<\/span> IMAExtensibleCallExport.EndExport<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Sub<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> RunProcess(<\/font>ByVal<\/span> cmd <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> params <\/font>As<\/span> <\/font>String<\/span>) <\/font>As<\/span> <\/font>Integer<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> exitCode <\/font>As<\/span> <\/font>Integer<\/span> = -1<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> proc <\/font>As<\/span> <\/font>New<\/span> System.Diagnostics.Process<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> waitTime <\/font>As<\/span> <\/font>Integer<\/span> = 0<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Const<\/span> WAIT_TIME_IN_SECONDS = 5<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Const<\/span> ONE_SECOND = 1000<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Const<\/span> SLEEP_TIME_IN_SECONDS = 1<\/font><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 proc.StartInfo.FileName = cmd<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 proc.StartInfo.Arguments = params<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 proc.StartInfo.WindowStyle = ProcessWindowStyle.Normal<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 proc.Start()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Try<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> <\/font>Not<\/span> proc.HasExited <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>While<\/span> <\/font>True<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 System.Threading.Thread.Sleep(SLEEP_TIME_IN_SECONDS * ONE_SECOND)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 waitTime += SLEEP_TIME_IN_SECONDS<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> proc.HasExited <\/font>Or<\/span> waitTime >= WAIT_TIME_IN_SECONDS <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0<\/font>Exit<\/span> <\/font>While<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>While<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>If<\/span> proc.HasExited <\/font>Then<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 exitCode = proc.ExitCode<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Else<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Throw<\/span> <\/font>New<\/span> UnexpectedDataException(“Timeout running process ” & cmd & ” ” & params)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>If<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Catch<\/span> ex <\/font>As<\/span> Exception<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Throw<\/span> <\/font>New<\/span> UnexpectedDataException(“Error: ” & ex.Message)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Try<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Return<\/span> exitCode<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 proc.Kill()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> deleteRows(<\/font>ByVal<\/span> WebPath <\/font>As<\/span> <\/font>String<\/span>) <\/font>As<\/span> <\/font>Integer<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> delSQL <\/font>As<\/span> <\/font>String<\/span> = “DELETE FROM ” & DB_TABLE_NAME & ” WHERE WebPath = ‘” & WebPath & “‘”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> sqlDelCommand <\/font>As<\/span> SqlCommand = <\/font>New<\/span> SqlCommand(delSQL, sqlExportConnection)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Return<\/span> sqlDelCommand.ExecuteNonQuery()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> addRow(<\/font>ByVal<\/span> WebPath <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> LBSNo <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> uid <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> Type <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> Status <\/font>As<\/span> <\/font>String<\/span>) <\/font>As<\/span> <\/font>Integer<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> addSQL <\/font>As<\/span> <\/font>String<\/span> = “INSERT INTO ” & DB_TABLE_NAME & ” (WebPath, staffid, uid, Status) VALUES” & “\u00c2\u00a0 (‘” & WebPath & “‘, ‘” &\u00c2\u00a0staffid & “‘, ‘” & uid & “‘, ‘” & Status & “‘)”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> sqlAddCommand <\/font>As<\/span> SqlCommand = <\/font>New<\/span> SqlCommand(addSQL, sqlExportConnection)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Return<\/span> sqlAddCommand.ExecuteNonQuery()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> updateRow(<\/font>ByVal<\/span> WebPath <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> Status <\/font>As<\/span> <\/font>String<\/span>) <\/font>As<\/span> <\/font>Integer<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> modSQL <\/font>As<\/span> <\/font>String<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> sqlModCommand <\/font>As<\/span> SqlCommand<\/font><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 modSQL = “UPDATE ” & DB_TABLE_NAME & ” SET Status ='” & Status & “‘ where WebPath='” & WebPath & “‘”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 sqlModCommand = <\/font>New<\/span> SqlCommand(modSQL, sqlExportConnection)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Return<\/span> sqlModCommand.ExecuteNonQuery()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> rowExists(<\/font>ByVal<\/span> WebPath <\/font>As<\/span> <\/font>String<\/span>) <\/font>As<\/span> <\/font>Boolean<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>‘Returns TRUE if the row already exists in the table<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>‘Pass % for wildcard<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> mySelectQuery <\/font>As<\/span> <\/font>String<\/span> = “SELECT * FROM ” & DB_TABLE_NAME & ” where WebPath = ‘” & WebPath & “‘”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> myConnection <\/font>As<\/span> <\/font>New<\/span> SqlConnection(“Database=MIISSync;Data Source=localhost;Integrated Security=Yes;”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> myCommand <\/font>As<\/span> <\/font>New<\/span> SqlCommand(mySelectQuery, myConnection)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 myConnection.Open()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Dim<\/span> myReader <\/font>As<\/span> SqlDataReader = myCommand.ExecuteReader()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 rowExists = myReader.HasRows()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 myReader.Close()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 myConnection.Close()<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/span><\/p>\n

\u00c2\u00a0 <\/span><\/span><\/p>\n

<\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Private<\/span> <\/font>Function<\/span> escapedString(<\/font>ByVal<\/span> originalString <\/font>As<\/span> <\/font>String<\/span>, <\/font>ByVal<\/span> commandType <\/font>As<\/span> <\/font>String<\/span>) <\/font>As<\/span> <\/font>String<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Select<\/span> <\/font>Case<\/span> commandType<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Case<\/span> “cmd”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 escapedString = originalString.Replace(“,”, “\\,”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 escapedString = escapedString.Replace(“+”, “\\+”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 escapedString = escapedString.Replace(“>”, “\\>”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Return<\/span> escapedString<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Case<\/span> “sql”<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 escapedString = originalString.Replace(“‘”, “””)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Return<\/span> escapedString<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Case<\/span> <\/font>Else<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>Throw<\/span> <\/font>New<\/span> ArgumentException(“Valid arguments: cmd, sql”)<\/font><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Select<\/span><\/span><\/p>\n

\u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 <\/font>End<\/span> <\/font>Function<\/span><\/span><\/p>\n

<\/span><\/p>\n

End<\/span> <\/font>Class<\/span><\/span><\/p>\n

<\/span><\/p>\n

<\/span><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

Imports Microsoft.MetadirectoryServices Imports System.IO Imports System.Data.SqlClient Imports OCG.Utility.Xml Imports zbitz \u00c2\u00a0 Public Class MACallExport_PersonalWebsites \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Implements IMAExtensibleFileImport \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Implements IMAExtensibleCallExport \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Const DB_TABLE_NAME As String = “PersonalWebsites” \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Const DB_CONNECTION_STRING As String = “Database=MIISData;Data Source=localhost;Integrated Security=Yes;” \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim sqlExportConnection As New SqlConnection(DB_CONNECTION_STRING) \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim MAcol As New MAConfiguration(Utils.ExtensionsDirectory & “\\MA_Params.xml”) \u00c2\u00a0\u00c2\u00a0\u00c2\u00a0 Dim Params As MAParams…<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":30,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"jetpack_post_was_ever_published":false,"footnotes":""},"class_list":["post-52","page","type-page","status-publish","hentry"],"jetpack_shortlink":"https:\/\/wp.me\/Pkp1o-Q","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/52","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/comments?post=52"}],"version-history":[{"count":0,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/52\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/pages\/30"}],"wp:attachment":[{"href":"https:\/\/www.wapshere.com\/missmiis\/wp-json\/wp\/v2\/media?parent=52"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}