<% ' On error resume next id=request("id") Dim con, strConn Set con= Server.CreateObject("ADODB.Connection") con.Open "bcmain" Dim SQL, rs set rs = server.createobject("adodb.recordset") if id > "" then SQL = "select * from news where id= " & id & " and atype <> 'T'" else SQL = "select * from news where atype <> 'T'" end if ' response.write sql set rs = con.execute(SQL) Dim SQL1, rs1 set rs1 = server.createobject("adodb.recordset") SQL1 = "select * from news where enddate >= #" & date & "# and atype = 'T'" ' SQL1 = "select * from news where enddate >= #" & date & "#" ' response.write sql1 set rs1 = con.execute(SQL1) %> Press Photos

Beaulieu Commercial Home Page
 

To download these high resolution, CMYK jpegs suitable for print reproduction:
         1.  Click-and-hold (Win95/98 users right-click) on the image.
         2. Choose 'Save Image As', 'Save Target As' or 'Download Image to Disk'.
         3.  Choose a location to save the image; then click 'Save'.
         4. Click and hold on Logo to download high resolution logo.

 

 

  

NYC
Mission Bay
South Seas
Castile
Southern Pines
Island Hop
Vega
Winslow
iLoc Adhesives
 
Vintage and Vogue
Pop Music
  
  <% do until rs.eof story=Replace(rs("body"),VbCRLF,"

") %> <%=rs("headline")%>
<%=story%>

<% rs.movenext loop rs.close set rs = nothing set con = nothing %>

 

    © BC Group. All rights reserved.