<%@LANGUAGE="VBSCRIPT"%> <% dim Conn, strSql, rs, strMessage set Conn = server.createobject("ADODB.Connection") Conn.open strConn %>

<% set rs = server.createobject("ADODB.Recordset") strSql = "select top 1 A.Event_ID_PK, B.Img_Path from tblEvent A, tblImage B where A.Event_ID_PK = B.ID_FK" strSql = strSql & " and A.theDate >= date() and A.IsFeature = 1 and A.PagePosition = 'L1'" rs.open strSql, Conn if not rs.eof then %> ">" WIDTH=165 HEIGHT=245 ALT="" border=0> <% else 'show a default image if there's no available featured event response.write "" end if rs.close %> <% strSql = "select top 1 A.Event_ID_PK, B.Img_Path from tblEvent A, tblImage B where A.Event_ID_PK = B.ID_FK" strSql = strSql & " and A.theDate >= date() and A.IsFeature = 1 and A.PagePosition = 'R1'" rs.open strSql, Conn if not rs.eof then %> ">" WIDTH=260 HEIGHT=120 ALT="" border=0> <% else 'show a default image if there's no available featured event response.write "" end if rs.close %> <% strSql = "select top 1 A.Event_ID_PK, B.Img_Path from tblEvent A, tblImage B where A.Event_ID_PK = B.ID_FK" strSql = strSql & " and A.theDate >= date() and A.IsFeature = 1 and A.PagePosition = 'R2'" rs.open strSql, Conn if not rs.eof then %> ">" WIDTH=260 HEIGHT=125 ALT="" border=0> <% else 'show a default image if there's no available featured event response.write "" end if rs.close %>     6355 Corte Del Abeto C-100 Carlsbad, CA 92009 Phone: 760.603.9777 © 2005, All rights reserved. Calvary Chapel Carlsbad