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

 

Black Magic Sports

Thank you for contacting Black Magic Sports.  We will be reviewing your information shortly.

<% dim strEmail, strPhone, strName, strComments Select Case Request.QueryString("action") Case "finish" strEmail = Request.Form("Email") strPhone = Request.Form("Phone") strName = Request.Form("Name") strComments = Request.Form("Comments") Dim objNewMail Set objNewMail = Server.CreateObject("CDONTS.NewMail") objNewMail.From = "contactus@blackmagicsports.com" objNewMail.To = "blackmagicsports@hotmail.com" objNewMail.Subject = "Contact us from Black Magic Sports" objNewMail.Body = "Contact us Form at Black Magic" & _ vbCrlf & "Email = " & strEmail & _ vbCrlf & "Phone = " & strPhone & _ vbCrlf & "Name = " & strName & _ vbCrlf & "Comments = " & strComments & _ vbCrlf objNewMail.Importance = 2 objNewMail.Send set objNewMail = Nothing End Select %>