<%@ Language=VBScript %> <% ' Filename: art_news.asp ' Version: 1.0 ' Customized: Yes %> <% ' Step 1: Open the Theo database and find this user. Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Theo" Set RS = Conn.Execute("SELECT * FROM Gallery WHERE GalleryID=" & GalleryID & ";") GalleryName = RS("GalleryName") GalleryContact = RS("Contact") GalleryPhone = RS("Phone") GalleryEmail = RS("Email") Session("DSN") = RS("DSN") Session("GalleryName") = RS("GalleryName") Conn.Close Conn.Open Session("DSN") %> <% = GalleryName %> Newsletter
<% news.movenext loop %>
<% news_sql = "Select * from News ORDER BY Date;" Set News = Conn.Execute(news_sql) Do while not News.eof NewsItem = News("News") NewsItem = Replace(NewsItem, chr(13), "
") NewsItem = Replace(NewsItem, " ", "  ") NewsEventTypeID = News("EventTypeID") FormattedDate = DateMonthDayYY(News("Date"),1) set R1 = conn.Execute("SELECT * FROM EventType Where EventTypeID = " & NewsEventTypeID & ";") %>
<% = FormattedDate %>
<% = R1("EventType") %>
<% = NewsItem %>
<% Set RS = nothing Set RS2 = nothing Set RS3 = nothing Set sp = nothing Set sp2 = nothing Set artwork = nothing Set artwork2 = nothing set Conn = nothing %>