<% Response.ContentType = "application/msword" Response.AddHeader "Content-Disposition", "attachment;filename=advertiser.doc" %> <% strSQL = "SELECT * FROM JBS_Advertiser WHERE AdvertiserID = " & Request("AdvertiserID") Set objRS = Conn.Execute(strSQL) %>

:: Advertiser ::

Company / advertiser name:  <%=objRS("aCompanyName")%> Status:  <%=objRS("aStatus")%> Contact name:  <% if objRS("aContactName") <> "" then Response.Write objRS("aContactName") else Response.Write " - " end if %> Email:  <% if objRS("aEmail") <> "" then Response.Write "" & objRS("aEmail") & "" else Response.Write " - " end if %> Phone:  <% if objRS("aPhone") <> "" then Response.Write objRS("aPhone") else Response.Write " - " end if %> Fax:  <% if objRS("aFax") <> "" then Response.Write objRS("aFax") else Response.Write " - " end if %> Website Url.  <% if objRS("aWebsiteURL") <> "" then Response.Write "" & objRS("aWebsiteURL") & "" else Response.Write " - " end if %> Occupation:  <% if objRS("aOccupation") <> "" then Response.Write objRS("aOccupation") else Response.Write " - " end if %> Address  <% if Not isNull(objRS("aAddress")) Or objRS("aAddress") <> "" then Response.Write Replace(objRS("aAddress"), vbCrLf, "  ") else Response.Write " - " end if %> Additional Info:  <% if Not isNull(objRS("aAdditionalInfo")) Or objRS("aAdditionalInfo") <> "" then Response.Write Replace(objRS("aAdditionalInfo"), vbCrLf, "  ") else Response.Write " - " end if %>

<% objRS.Close : Set objRS = Nothing Conn.Close : Set Conn = Nothing %>