正式版已修复

或按以下方法修复

IF RS.Eof Then
RS.Close:Set RS=Nothing
GetEnterpriseContact=""

eixt function
end if
GetEnterpriseContact="联 系 人：" & RS("Contactman") & "<br/>"
GetEnterpriseContact=GetEnterpriseContact & "公司地址：" & RS("address") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "邮政编码：" & RS("zipcode") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "联系电话：" & RS("telphone") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "传真号码：" & RS("fax") & "<br>"
GetEnterpriseContact=GetEnterpriseContact & "公司网址：" & RS("weburl") & "<br>"
RS.Close:Set RS=Nothing
End Function

加上红色的