<% Dim cnnSimple Dim rstSimple Dim strDBPath Dim objDC DIm objRS Dim cnnDBEdit, rstDBEdit Dim strSQL, strSQL2 Dim strLogin Dim strPassword Dim strUsername, strWriteup Dim strPword Dim iID, iRecordID, strRecordNumber, i, j Dim strEmail Dim strDateAdded Dim strToday1, strAdmin strToday1 = Date() strDBPath = Server.MapPath("/members/db/db.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" Dim CONN_STRING CONN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" strSQL = "SELECT * FROM Site WHERE ID=76;" Set rstDBEdit = Server.CreateObject("ADODB.Recordset") rstDBEdit.Open strSQL, CONN_STRING, adOpenKeyset, adLockOptimistic, adCmdText If Not rstDBEdit.EOF Then %> <%=rstDBEdit.Fields("Article").Value%> <% Else Response.Write "Record not found!" End If rstDBEdit.Close Set rstDBEdit = Nothing %>
Free Picks by Email - Enter your e-mail Address:

The Black Magic Membership Packages

The King of the Black Magic Play, John Martin, is now available on his own personal site.  Get his premium selections for low prices, only at BlackMagicSports.com. As always with Black Magic plays, if we don't show you a profit then you get an equal package for FREE!

<% strSQL = "SELECT * FROM Site WHERE ID=84;" Set rstDBEdit = Server.CreateObject("ADODB.Recordset") rstDBEdit.Open strSQL, CONN_STRING, adOpenKeyset, adLockOptimistic, adCmdText If Not rstDBEdit.EOF Then %> <%=rstDBEdit.Fields("Article").Value%> <% Else Response.Write "Record not found!" End If %>

<% strSQL = "SELECT * FROM Site WHERE ID=83;" Set rstDBEdit = Server.CreateObject("ADODB.Recordset") rstDBEdit.Open strSQL, CONN_STRING, adOpenKeyset, adLockOptimistic, adCmdText If Not rstDBEdit.EOF Then %> <%=rstDBEdit.Fields("Article").Value%> <% Else Response.Write "Record not found!" End If rstDBEdit.Close Set rstDBEdit = Nothing %>