<%
if s_Address1 <> Empty then
%>
<%=Server.HTMLEncode(s_Address1)%>,
<%
end if
if s_Address2 <> Empty then
%>
<%=Server.HTMLEncode(s_Address2)%>,
<%
end if
if s_Address3 <> Empty then
%>
<%=Server.HTMLEncode(s_Address3)%>,
<%
end if
if s_Address4 <> Empty then
%>
<%=Server.HTMLEncode(s_Address4)%>,
<%
end if
%>
<%=Server.HTMLEncode(s_Country)%>
<%
if s_Postal1 <> Empty then
if s_Postal1 <> Empty then
%>
<%=Server.HTMLEncode(s_Postal1)%>,
<%
end if
if s_Postal2 <> Empty then
%>
<%=Server.HTMLEncode(s_Postal2)%>,
<%
end if
if s_Postal3 <> Empty then
%>
<%=Server.HTMLEncode(s_Postal3)%>,
<%
end if
if s_Postal4 <> Empty then
%>
<%=Server.HTMLEncode(s_Postal4)%>
<%
end if
%>
<%
end if
if s_Tel <> Empty then
%>
Tel: <%=s_Tel%>,
<%
end if
if s_Fax <> Empty then
%>
Fax: <%=s_Fax%>
<%
end if
%>
|
<%
if s_Email <> Empty or s_Website <> Empty then
%>
<%
if s_Email <> Empty then
%>
e-Mail :: <%=s_Email%>
<%
end if
if s_Website <> Empty then
%>
Web :: <%=s_Website%>" target="_blank">
<%if LCase(Left(s_Website, 4)) <> "http" then Response.Write "http://"%>
<%=s_Website%>
<%
end if
%>
|
<%
end if
%>
