<% @ enablesessionstate = true language = vbscript %>
<%
option explicit
response.expires = 0
''***************************Visit Log
Dim LGdemoConn, LGdbPath, LGobjrs
LGdbPath = "D:/webspace/footballtillidie.co.uk/db/blackburn/news.mdb"
Set LGdemoConn = Server.CreateObject("ADODB.Connection")
LGdemoConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & LGdbPath
set LGobjrs = server.CreateObject("ADODB.Recordset")
set LGobjrs.activeconnection = LGdemoconn
LGobjrs.open ("INSERT INTO tblLog (session1) Values ('" & session.SessionID & "')")
LGobjrs.open "Select * From tblLog WHERE session1 = '" & session.SessionID & "'"
dim indx1
while not LGobjrs.eof
indx1 = lgObjRs("index")
LGobjrs.movenext
wend
LGdemoConn.execute "UPDATE tblLog Set page = 'index' WHERE index = " & indx1
LGdemoConn.execute "UPDATE tblLog Set referer = '" & request.servervariables("HTTP_REFER") & " ' WHERE index = " & indx1
LGobjrs.close
LGdemoConn.close
'******************************Visit Log Ends
'***************************Page Variables
Dim PgdemoConn, PgdbPath, pgobjrs
PgdbPath = "D:/webspace/footballtillidie.co.uk/db/blackburn/news.mdb"
Set PgdemoConn = Server.CreateObject("ADODB.Connection")
PgdemoConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & PgdbPath
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'ShortName'"
session("ShortName") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'SiteName'"
session("SiteName") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'Club'"
session("Club") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'ClubURL'"
session("ClubURL") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'SecureURL'"
session("SecureURL") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'PageTitle'"
session("PageTitle") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'LocalAddress'"
session("LocalAddress") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'Price1'"
session("Price1") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'PriceBoth'"
session("PriceBoth") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'TableHead'"
session("TableHead") = pgobjrs("value1")
pgobjrs.close
set pgobjrs = server.CreateObject("ADODB.Recordset")
set pgobjrs.activeconnection = pgdemoconn
pgobjrs.open "Select * From tblKeyword WHERE Name = 'TableBody'"
session("TableBody") = pgobjrs("value1")
pgobjrs.close
'**************************Page Variable End
Dim Conn, dbPath, testrs
dim itmcnt, rcnt, res
dim demoConn, demoFilePath, objrs1, objrs2, objrs3, objrs4, objrs5
dbPath = "D:/webspace/footballtillidie.co.uk/db/blackburn/news.mdb"
Set demoConn = Server.CreateObject("ADODB.Connection")
demoConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
set objrs1 = server.CreateObject("ADODB.Recordset")
set objrs1.activeconnection = democonn
objrs1.open "Select * From tblNews WHERE Status = 'active'"
set objrs2 = server.CreateObject("ADODB.Recordset")
set objrs2.activeconnection = democonn
objrs2.open "Select * From tblFAQ WHERE status = 'true' ORDER BY SHOWN "
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = democonn
objrs3.open "UPDATE tblFAQ SET Shown = " & (objrs2("shown") +1) & " WHERE index = " & objrs2("index")
set objrs4 = server.CreateObject("ADODB.Recordset")
set objrs4.activeconnection = democonn
objrs4.open "Select * From tblLINKS WHERE status = 'true' ORDER BY SHOWN "
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = democonn
objrs3.open "UPDATE tblLINKS SET Shown = " & (objrs4("shown") +1) & " WHERE index = " & objrs4("index")
%>
<%=session("PageTitle")%>
<%
dim demoConnmeta, objrsmeta, dbpathmeta, kywrd, desc1
dbpathmeta = "D:/webspace/footballtillidie.co.uk/db/blackburn/news.mdb"
Set demoConnmeta = Server.CreateObject("ADODB.Connection")
demoConnmeta.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbpathmeta
set objrsmeta = server.CreateObject("ADODB.Recordset")
set objrsmeta.activeconnection = democonn
objrsmeta.open "Select * From tblkywrd'"
while not objrsmeta.eof
kywrd = kywrd & objrsmeta("kywrd") & ", "
objrsmeta.movenext
wend
objrsmeta.close
objrsmeta.open "Select * From tbldscrptn'"
desc1 = objrsmeta("desc1")
'
demoConnmeta.close
objrsmeta.close
set objrsmeta = nothing
set demoConnmeta = nothing
%>
<%
on error resume next
democonn.close
objrs1.close
objrs2.close
objrs3.close
objrs4.close
set democonn = nothing
set objrs1 = nothing
set objrs2 = nothing
set objrs3 = nothing
set objrs4 = nothing
%>
