Skapa snygg felhantering

Hur gör jag bäst en snyggast felhantering när data saknas i databasen?

Det finns <%=totMember("Antal")%> medlemmar just nu och 
<%Dim varInloggad
varInloggad = CLng("0" & inloggad("Antal"))
Select Case varInloggad
	Case 0
		Response.Write("ingen medlem är inloggad")
	Case 1
		Response.Write(varInloggad & " medlem är inloggad")
	Case Else
		Response.Write(varInloggad & " medlemmar är inloggade")
End Select

Response.Write ". Senaste medlemmen är <b>"
Response.Write newest("username")
Response.Write "</b>, senast inloggad är <b>"
Response.Write latest("username")
%>