|
||||
| What's New | |||
|
<%
Dim objConn, strConn
Set objConn = Server.CreateObject("ADODB.Connection")
'strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Webs\teamtu\db\teamtudor.mdb;User ID=;Password=;"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\teamtudor_new\db\teamtudor.mdb;User ID=;Password=;"
objConn.ConnectionString = strConn
objConn.Open
Dim sSQL, objRS, bCursor
sSQL = "SELECT TOP 1 * FROM tblblogs ORDER BY blogDate desc;"
Set objRS = Server.CreateObject("ADODB.Recordset")
bCursor = objRS.Supports(adOpenKeySet)
objRS.Open sSQL, objConn, adOpenKeySet
If not objRS.EOF Then%>
<%=objRS("blogTitle").value%> <%=objRS("blogDescription").value%>... |
<%End IF
objRS.close
set objRS = nothing%>
||||
| Sign Up for Email Updates | ||||
| TeamTudor is a group of patriotic progressives united in local action to inspire regional, national, and global action bringing together like minds for positive results. | ||||
