Weddings at Crystal Lake :
References
<%
dim objConn
dim objRS
dim strSQL
dim aryRefs
dim iRow
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
strDBOpen = "Provider=SQLOLEDB;Server=PRODSQL3.acsysprod.com;Database=Pavilion;User Id=sql_iims;Password=Password#10;"
objConn.Open strDBOpen
strSQL = "SELECT [RefID], [RefDate], [PullQuote], [Signature]" &_
" FROM [References]" &_
" WHERE [DisplayOn] IN ('0','2')" &_
" ORDER BY SortOrder"
objRS.Open strSQL, objConn
if not objRS.eof then
aryRefs = objRS.getrows
for iRow = 0 to ubound(aryRefs,2)
if iRow = 0 then
%>
"<%=aryRefs(2,iRow)%>"
<%
else
%>
"<%=aryRefs(2,iRow)%>"
<%
end if
%>
<% if (len(aryRefs(1,iRow)) > 0) then response.write(monthname(month(aryRefs(1,iRow))) & " " & day(aryRefs(1,iRow)) & ", " & year(aryRefs(1,iRow)) & " - ") end if %><%=aryRefs(3,iRow)%>
<%
if iRow < ubound(aryRefs,2) then
%>
<%
end if
next
end if
objRS.close
set objRS = nothing
objConn.close
set objConn = nothing
%>
