|
|
|
|
|
|
|
Obituaries: 1
|
Click Here For
In Memoriam |
Group
|
|
Period: From August 16, 2004 to
September 24,2006 |
"Blessed are they that mourn, for they shall be
comforted"
|
<%Dim conn2675004,connectstr2675004, count2675004, userid2675004,teritoryid2675004
count2675004=1
Dim db_path2675004
Dim db_dir2675004
db_dir2675004 = Server.MapPath("\accessdb\cityselect.mdb")
db_path2675004 = db_dir2675004
set conn2675004=Server.CreateObject("ADODB.Connection")
connectstr2675004="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=finalcare; UID=root;PASSWORD=c1g@w00pw00p;"
dim rs2675004 'recordset
dim sql2675004 'sql statement
set rs2675004 = server.CreateObject("ADODB.Recordset")
sql2675004 = "Select * from obits where date<'2006-9-26' order by date "
rs2675004.open sql2675004, connectstr2675004
do while not rs2675004.EOF
%>
<%=rs2675004("date")%> - <%=rs2675004("title")%>
<%=rs2675004("p1")%>
<%if (len(rs2675004("p2"))+1)="1" then %>
<%else %>
<%=rs2675004("p2")%>
<%end if %>
<%if (len(rs2675004("p3"))+1)="1" then %>
<%else %>
<%=rs2675004("p3")%>
<%end if %>
<%if (len(rs2675004("p4"))+1)="1" then %>
<%else %>
<%=rs2675004("p4")%>
<%end if %>
<%if (len(rs2675004("p5"))+1)="1" then %>
<%else %>
<%=rs2675004("p5")%>
<%end if %>
<%if (len(rs2675004("p6"))+1)="1" then %>
<%else %>
<%=rs2675004("p6")%>
<%end if %>
<%if (len(rs2675004("p7"))+1)="1" then %>
<%else %>
<%=rs2675004("p7")%>
<%end if %>
<%if (len(rs2675004("p8"))+1)="1" then %>
<%else %>
<%=rs2675004("p8")%>
<%end if %>
<%if (len(rs2675004("p9"))+1)="1" then %>
<%else %>
<%=rs2675004("p9")%>
<%end if %>
<%if (len(rs2675004("p10"))+1)="1" then %>
<%else %>
<%=rs2675004("p10")%>
<%end if %>
|
| |
<%count2675004=count2675004+1
Response.Write vbcrlf
rs2675004.MoveNext
loop%>
|
|
| |
|
|
| |
< Top > |
|
|
|
|
|