Press Release: <%= sTitle %>

<% Option Explicit Response.Buffer = True '******************************************************************************************* '* This code copyright (c) 2001 by Brian Groover and Taproot Technologies, Inc * '* All rights reserved. Code may not be modified or reused without the express written * '* permission of Brian Groover (Brian@TaprootTech.com) * '******************************************************************************************* %> <% Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adCmdText = &H0001 Dim iPRID, sDSN, oDB, oRS ' DB vars Dim sTitle, dDate, sWhere, sBlurb, sReleaseText, sAbout, sAbout2, sAboutName2, sFooter ' DB fields Dim sInfo1, sInfo2, sInfo3, sInfo4, iInfo1, iInfo2, iInfo3, iInfo4 Dim foo ' temp vars iPRID = Request.QueryString("PRID") If iPRID="" Then Response.Redirect("PReleases.asp") Else iPRID = CInt(iPRID) foo = "Select ReleaseDate, Where, Title, Blurb, ReleaseText, About, About2, AboutName2, Footer, Contact1, Contact2, Contact3, Contact4 from Releases WHERE Active=True AND ReleaseID=" & iPRID End If 'Open Database and recordset SET oDB = DBConnect("TaprootPR.mdb") SET oRS = Server.CreateObject("ADODB.Recordset") oRS.Open foo, oDB, adOpenForwardOnly, adLockReadOnly, adCmdText ' Get release data With oRS dDate = .Fields("ReleaseDate").value sWhere = .Fields("Where").value sTitle = .Fields("Title").value sBlurb = .Fields("Blurb").value sReleaseText = .Fields("ReleaseText").value ' sAbout = .Fields("About").value ' About is now taken from the include sAbout2 = .Fields("About2").value sAboutName2 = .Fields("AboutName2").value sFooter = .Fields("Footer").value iInfo1 = .Fields("Contact1").value iInfo2 = .Fields("Contact2").value iInfo3 = .Fields("Contact3").value iInfo4 = .Fields("Contact4").value End With oRS.Close ' Get contacts data foo = "Select ContactID, ContactFull FROM Contacts WHERE Active=True" oRS.Open foo, oDB, adOpenForwardOnly, adLockReadOnly, adCmdText With oRS .MoveFirst Do While Not .EOF foo= .Fields("ContactID").value Select Case foo 'Else do nothing Case iInfo1 sInfo1=.Fields("ContactFull").value Case iInfo2 sInfo2=.Fields("ContactFull").value Case iInfo3 sInfo3=.Fields("ContactFull").value Case iInfo4 sInfo4=.Fields("ContactFull").value End Select .MoveNext Loop End With oRS.Close Set oRS = Nothing Set oDB = Nothing %>
Warning: include(AboutTaproot.inc.asp): failed to open stream: No such file or directory in /home/taproo5/public_html/ShowRelease.php on line 77

Warning: include(AboutTaproot.inc.asp): failed to open stream: No such file or directory in /home/taproo5/public_html/ShowRelease.php on line 77

Warning: include(): Failed opening 'AboutTaproot.inc.asp' for inclusion (include_path='.:/usr/lib/php:/usr/local/lib/php') in /home/taproo5/public_html/ShowRelease.php on line 77
Press Release: <%= sTitle %>