<%
Dim connDB
Dim rsn
set connDB = CreateObject ("ADODB.Connection")
connDB.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=mysql69.secureserver.net; OPTION=16834; USER=commodity; Password=getrich;DATABASE=commodity"
Set rsn = CreateObject("ADODB.Recordset")
rsn.Open "SELECT * FROM articles where iorc like '%International%' ORDER BY PK DESC LIMIT 0,15", connDB
If NOT rsn.EOF then
Do Until rsn.EOF
Response.Write ""
Response.Write " ![](" &rsn("category") & "/images/" &rsn("picture") & ") | "
Response.Write " " &rsn("title") & "
" &rsn("iorc") & " - " &rsn("date") & " "
Response.Write " " &rsn("blurb") & " "
Response.Write " |
"
rsn.MoveNext
Loop
End If
rsn.Close
Set rsn=Nothing
connDB.Close
Set connDB=Nothing
%>
|
Latest News for <%=FormatDateTime(Date,1)%>
<%
Dim conDB
Dim rs
set conDB = CreateObject ("ADODB.Connection")
conDB.Open "DRIVER=MySQL ODBC 3.51 Driver; SERVER=mysql69.secureserver.net; OPTION=16834; USER=commodity; Password=getrich;DATABASE=commodity"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM news where category like '%asa%' OR category like '%ame%' OR category like '%eur%' OR category like '%eme%' ORDER BY PK DESC LIMIT 0,10", conDB
If NOT rs.EOF then
Do Until rs.EOF
Response.Write " " &rs("title") & ""
Response.Write "
"
rs.MoveNext
Loop
End If
rs.Close
Set rs=Nothing
conDB.Close
Set conDB=Nothing
%>
|
