var refreshFound = false;
var paramList = document.location.search;
if(paramList.length > 0)
paramList = paramList.substring(1); //removes '?'
var paramPairs = paramList.split("&");
for(var i=0; i<paramPairs.length; i++)
{
var paramNameAndValue = paramPairs[i].split("=");
if(paramNameAndValue[0] == "refresh")
{
refreshFound = true;
if(paramNameAndValue[1] == 1)
{
var newLoc = document.location.href.substring(0, document.location.href.indexOf("?"));
for(var j=0; j<paramPairs.length; j++)
{
if(j>0)
newLoc += "&";
else
newLoc += "?";
if(j == i)
newLoc += "refresh=2";
else
newLoc += paramPairs[j];
}//end for
this.location = newLoc;
}//end if
}//end if
}//end for
if(!refreshFound)
{
if(document.location.href.indexOf("?") > -1)
this.location = document.location.href + "&refresh=1";
else
this.location = document.location.href + "?refresh=1";
}<head>
<title>YIL of Kansas City :: 816.235.6789</title>
<META HTTP-EQUIV="Expires" CONTENT="0">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
</head>
<body>
<SCRIPT language=javascript src="js_include1.js"></SCRIPT>
<!-- #INCLUDE VIRTUAL="/common/dbconn.asp" -->
<div align="center">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!-- #INCLUDE VIRTUAL="pagetop_include.asp"-->
<%=message%>
<p><%=pagedata%></p>
</td>
</tr>
</table>
</div><!-- #INCLUDE VIRTUAL="/common/dbconn.asp" -->
<div align="center">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!-- #INCLUDE VIRTUAL="pagebot_include.asp" -->
<%=message%>
<p><%=pagedata%></p>
</td>
</tr>
</table>
</div>dbconn
</body><!-- #INCLUDE VIRTUAL="/common/dbconn.asp" -->
<%
' Declare variables for the File System Object and the File to be accessed.
Dim objFSO, objTextFile
' Create an instance of the the File System Object and assign it to objFSO.
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Open the file
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("textfile.txt"))
ID = Trim(request.querystring("id"))
ID = request("ID")
if not isNumeric(id) or id = "" then
response.redirect("default.asp?not_number")
end if
if not IsNumeric(ID) then
whtConn.Close
Set whtConn = Nothing
response.redirect("/")
end if
'---------------------------------------------------------
'*****IF POSTBACK THEN UPDATE********
Set dataRS = Server.CreateObject("ADODB.RecordSet")
ID = request("ID")
whtSQL = "Select ID, pagedata, pagename, active, directlink FROM tblPages where ID = " & ID & ";"
'Response.Write whtSQL
dataRS.Open whtSQL, whtConn, 1
recordcount = dataRS.recordcount
if recordcount <> 1 then
dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
response.redirect("default.asp?norecord")
end if
pagename = dataRS("pagename")
objTextFile.WriteLine "Name=" & pagename
ID = dataRS("ID")
pagedata = dataRS("pagedata")
directlink = dataRS("directlink")
active = dataRS("active")
'close connections,etc..
dataRS.Close
Set dataRS = Nothing
whtConn.Close
Set whtConn = Nothing
' Close the file.
objTextFile.Close
' Release reference to the text file.
Set objTextFile = Nothing
' Release reference to the File System Object.
Set objFSO = Nothing
'---------------------------------------------------------
%>
<!-- #INCLUDE VIRTUAL="/common/dbconn.asp" -->
<!-- #INCLUDE VIRTUAL="/common/databasepage.asp" -->
<%
if active = 1 then
server.Execute("pagetop.asp")
else
end if
%>
<%=announce%>
<%
if active = 1 then
server.Execute("pagebottom.asp")
else
end if
%>