%@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) %>
|