<%@LANGUAGE="VBSCRIPT"%>
<%
Dim storynumber1__storyname
storynumber1__storyname = "0"
if(Request.QueryString("storyname") <> "") then storynumber1__storyname = Request.QueryString("storyname")
%>
<%
Dim storynumber2__storyname
storynumber2__storyname = "0"
if(Request.QueryString("storyname") <> "") then storynumber2__storyname = Request.QueryString("storyname")
%>
<%
Dim storynumber3__storyname
storynumber3__storyname = "0"
if(Request.QueryString("storyname") <> "") then storynumber3__storyname = Request.QueryString("storyname")
%>
<%
set storynumber1 = Server.CreateObject("ADODB.recordset")
storynumber1.ActiveConnection = "dsn=taxnews;uid=caversham;pwd=caversham1966;"
storynumber1.Source = "SELECT storyid, headline, srcdate,content FROM dbo.story WHERE storyid = '" + Replace(storynumber1__storyname, "'", "''") + "'"
storynumber1.CursorType = 0
storynumber1.CursorLocation = 2
storynumber1.LockType = 3
storynumber1.Open
storynumber1_numRows = 0
%>
<%
set storynumber2 = Server.CreateObject("ADODB.recordset")
storynumber2.ActiveConnection = "dsn=taxnews;uid=caversham;pwd=caversham1966;"
storynumber2.Source = "SELECT content FROM dbo.story WHERE storyid = '" + Replace(storynumber2__storyname, "'", "''") + "'"
storynumber2.CursorType = 0
storynumber2.CursorLocation = 2
storynumber2.LockType = 3
storynumber2.Open
storynumber2_numRows = 0
%>
<%
set storynumber3 = Server.CreateObject("ADODB.recordset")
storynumber3.ActiveConnection = "dsn=taxnews;uid=caversham;pwd=caversham1966;"
storynumber3.Source = "SELECT teaser FROM dbo.story WHERE storyid = '" + Replace(storynumber3__storyname, "'", "''") + "'"
storynumber3.CursorType = 0
storynumber3.CursorLocation = 2
storynumber3.LockType = 3
storynumber3.Open
storynumber3_numRows = 0
%>
Caversham Trust and Financial Services - News Links
