Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Function Changelog(File As String) As Integer Dim person As String Dim sql As String Dim command As ADODB.command Dim rs As ADODB.Recordset Dim p_person As ADODB.Parameter Dim p_file As ADODB.Parameter person = Environ("USERNAME") sql = "INSERT INTO changelog (changelog_person, changelog_file) VALUES (?,?)" Set command = CreateObject("ADODB.command") ' Create SQL command with parameters and run it command.ActiveConnection = Globals.AdoConnection command.CommandText = sql Set p_person = command.CreateParameter("person", Type:=adVarWChar, Size:=LenB(person), Value:=person) Set p_file = command.CreateParameter("file", Type:=adVarWChar, Size:=LenB(File), Value:=File) command.Parameters.Append p_person command.Parameters.Append p_file command.Execute ' Get the ID of the just inserted row from the db Set rs = CreateObject("ADODB.Recordset") rs.Open "SELECT @@IDENTITY", Globals.AdoConnection Changelog = rs(0) rs.Close End Function