<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '*****Open A DSN Connection Set OBJdbConn = Server.CreateObject("ADODB.Connection") OBJdbConn.Open "metadata",_ "DATABASE=elections;UID=sltrib;PWD=;DSN=metadata" SQLquery= "SELECT * FROM intranet.multimedia m where icon <> '' and url <> '' and pubdate <= now() and category = '' order by pubdate desc, slug limit 0,15 " Set multimediaResult= OBJdbConn.execute(SQLquery) SportQuery= "SELECT * FROM intranet.multimedia m where icon <> '' and url <> '' and pubdate <= now() and category <> '' order by pubdate desc limit 0,15 " Set SportResult= OBJdbConn.execute(SportQuery) %> The Salt Lake Tribune -- Multimedia
Multimedia Library
News & Features
<% Do While Not multimediaResult.eof %> <% multimediaResult.movenext Loop %>
" title="<%= multimediaResult("slug")%>">" width="60" height="60" border="0" hspace="4"/> " class="hlink10"><%= multimediaResult("slug")%>
<%= multimediaResult("budget")%>   <%= FormatDateTime(multimediaResult("pubdate"), vbshortdate)%>
Sports
<% Do While Not SportResult.eof %> <% SportResult.movenext Loop %>
" title="<%= SportResult("slug")%>">" width="60" height="60" border="0" hspace="4"/> "class="hlink10"><%= SportResult("slug")%>
<%= SportResult("budget")%>  <%= FormatDateTime(sportResult("pubdate"))%>
 
<% OBJdbConn.close Set OBJdbConn = Nothing %>