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

 
<%Select Case Request.QueryString("action") Case "view" username = Session("username") if ("" = username) Then response.Write("Sorry, you are not logged in.") 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 If Case "login" strUsername = Request.Form("UserName") strPword = Request.Form("password") strSQL = "SELECT * FROM FreeMembers;" Set rstDBEdit = Server.CreateObject("ADODB.Recordset") rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText Do While Not rstDBEdit.EOF If strUsername = rstDBEdit.Fields("Login").Value Then strLogin = rstDBEdit.Fields("Login").Value End If rstDBEdit.MoveNext Loop rstDBEdit.Close Set rstDBEdit = Nothing If strLogin <> strUsername Then Response.Write("Incorrect Login") End If If (strLogin = strUserName) Then strSQL = "SELECT * FROM FreeMembers WHERE Login = '"&strUserName&"';" Set rstDBEdit = Server.CreateObject("ADODB.Recordset") rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText strPassword = rstDBEdit.Fields("Password").Value If (strPassword <> strPword) Then Response.Write("Sorry, incorrect password press back to try again.") rstDBEdit.Close Set rstDBEdit = Nothing Else If (strPassword = strPword) Then username = strUserName Session("username") = username Response.Redirect("freepicks.asp?action=view") End if End If End If Case Else %>

Welcome to Black Magic Sports Free Picks

Please enter your password exactly as it was sent to you!

UserName:
Password:

Don't have a Free Picks password?  No problem, just enter your email address below and we'll have one sent to you immediately!

 

Free Picks Registration

Get your membership to our Free Plays in a matter of minutes.  Simply enter your email address in the form below and we will immediately send you a password that you can use to access your Black Magic Sports Free Pick!

Do not miss out on any information released by the guys at Black Magic Sports Picks!

<% End Select %>