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