| |
|
 |
|
|
<%=strTitle%>
Now you can enjoy the magic of Eola Events once again! Just click the event title link and see the pictures of event.
|
|
<%
dim oConn
dim rs
OpenConnection oConn
Session("LoginValidated") = ""
sql = "select * from EventPictureMaster where Active = 1 order by CreationDate Desc"
Set rs = oConn.Execute(sql)
if not rs.eof then
%>
<%
while NOT rs.EOF
If rs("password") = "" then
strHref = "PictureHome.asp?passwordrequired=false&EventId=" & rs("EventId")
Else
strHref = "PicturePassword.asp?EventId=" & rs("EventId")
End If
%>
|
<%=rs("EventTitle")%>
|
|
<%=rs("EventDescription")%>
|
|
<%
rs.movenext
wend
%>
<%End if%>
|
|
|
|
