BlackMagicSports.com
-
A Free Taste of Magic
<%
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 & ";"
Select Case Request.QueryString("action")
Case Else
strSQL = "SELECT * FROM FreePick;"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText
%>
<%= rstDBEdit.Fields("Writeup").Value %>
<%
rstDBEdit.Close
Set rstDBEdit = Nothing
End Select
%>
|
