<% 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 %>
Free Picks by Email - Enter your e-mail Address:

 
<% strSQL = "SELECT * FROM Site WHERE ID=81;" 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=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 rstDBEdit.Close Set rstDBEdit = Nothing %>