If Not IsObject(session("oEMF")) then
Set session("oEMF") = Server.CreateObject("CrystalReports10.EMFGen.1")
Call CheckForError
End if
SUB CheckForError()
	If Err.Number <>  0  Then
		if VFMT = "ENCP" then
			Response.ContentType = EMFMIMETYPE
			session("oEMF").SendErrorMsg  1 , "CRAXDRT Error Occured on Server. " & Err.Number  & " : " & Err.Description
		else
			Response.Write "CRAXDRT Error Occured on Server. Error Number: " & Err.Number & " Error Description: " & Err.Description
		end if
		Response.end
	End if
END SUB