' Listing 4. Code for the CheckDatabase Function

Function CheckDatabase(sServer As String, sDatabase As String, _
	sUserID As String, sPassword As String, sTable As String, _
	sURLColumnName As String, sIDColumnName As String) As Variant

Dim oRS As ADODB.Recordset
Dim vOutput As Variant, sStatus As String

	sStatus = "OK"

	Set oRS = OpenDatabase(sServer, sDatabase, sTable, sUserID, _
		sPassword)

	Do While Not oRS.EOF

		DoEvents
		sStatus = CheckURL(oRS(sURLColumnName))

		If sStatus <> "URL OK" Then
			If LogToFile Then
			AddToLog Trim(oRS(sIDColumnName)), _
				Trim(oRS(sURLColumnName)), Trim(sStatus)
		Else
			vOutput = vOutput & Trim(oRS(sIDColumnName)) & " - " & _
				Trim(oRS(sURLColumnName)) & " -- " & Trim(sStatus) & vbCrLf
		End If
			sStatus = "Error"
		End If

		Debug.Print "status is " & sStatus
		oRS.MoveNext
	Loop

	Debug.Print "Finished"
	Debug.Print "----------"

	If LogToFile = False Then
		CheckDatabase = vOutput
	End If
	Set oRS = Nothing
End Function