Help I cant figure this out!!

Jerkycold · Jun 26, 2003

i am having trouble with this code. It works when I take out the session variables, but I need them in there. Is there another way to do the session varriables that I am not seeing. Here is the session variables that when I remove it works:

<%
if session("empid&quot

="" then
response.redirect "/peregrine/logon.asp"
end if
%>
<%
empfname = Session("empfname&quot

folder = Session("empid&quot

%>

here is the full code:

<%
Option Explicit
Response.Buffer = True

' This VBScript file creates a local copy of Moreover's news feed in XML
' format and updates it every so many hours. The local cached copy prevents
' unnecessary bandwidth useage to Moreover.

' Author: Craig H. Rettig
' Website:

http://www.bitbucketheaven.com/

' Special thanks to Peter A. Bromberg, and his article at Egghead Cafe,
' "Building a Customizable Server-Side Cached Scrolling XML Newsfeed Display"
' URL:

http://www.eggheadcafe.com/articles/20010517.asp

' CONFIG:
Dim sXMLDataDir, nHoursToRefresh, sDefaultCategory

' 1) Where you want the downloaded XML file to be stored (keep trailing slash).
' Please make sure the IIS Anonymous User has write access to this directory.
sXMLDataDir = Server.MapPath(".&quot

& "/news/"

' 2) How many hours the page should be cached for
nHoursToRefresh = 1

' 3) If page is called with no arguments, show news from this category
sDefaultCategory = "Top%20US%20stories"

' 4) If you keep moreover.xsl in a different directory than moreover.asp, edit line 86.

' 5) Change stylesheet on line 158 and/or make any other look & feel configurations.

' 6) That should be it!

' This function retrieves the Moreover news feed from Moreover's site
' and saves it to a local file.
Function GetMoreoverXML(ByVal sCategory, ByVal sXMLDataFile)
Dim sChoice, sSource, objHTTP, sArticleList, sOut, oTS, oFSO, i

' Address of Moreover XML feed
sSource= "

http://p.moreover.com/cgi-local/page?c=";

& sCategory & "&o=xml"

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP&quot

Set oFSO = Server.CreateObject("Scripting.FileSystemObject&quot

objHTTP.Open "GET", sSource, False
objHTTP.Send

sArticleList = objHTTP.ResponseBody
Set objHTTP = Nothing
sOut = ""

' Decode downloaded result (which is an array of unsigned bytes)
' in order to be able to write the results as plain text
For i = 0 To UBound(sArticleList)
sOut = sOut & ChrW(AscW(Chr(AscB(MidB(sArticleList, i + 1, 1)))))
Next

' Fix some Moreover formatting issues the MSXML parser doesn't like
sOut = Replace (sOut, "encoding=""iso-8859-1""", "&quot

sOut = Replace(sOut, "<!DOCTYPE moreovernews SYSTEM ""

http://p.moreover.com/xml_dtds/moreovernews.dtd"">";,

"&quot

Set oTS = oFSO.CreateTextFile(sXMLDataFile, True)
oTS.Write sOut
oTS.Close
Set oTS = Nothing
Set oFSO = Nothing
GetMoreoverXML = True
End Function

' This function applies the moreover.xsl stylesheet to
' the moreover.xml file and returns formatted HTML.
Function sShowNews(ByVal sXMLDataFile)
Dim objXML, objXSL

' Create an instance of the DOM object
Set objXML = Server.CreateObject("Microsoft.XMLDOM&quot

Set objXSL = Server.CreateObject("Microsoft.XMLDOM&quot

objXSL.Async = False

' Load the XML newsfeed into the objXML object
objXML.Load(sXMLDataFile)

' Load the XSL stylesheet into the objXSL object
objXSL.Load(Server.MapPath(".&quot

& "/moreover.xsl&quot

' Check for errors in the XSL
If (objXSL.ParseError.ErrorCode = 0) Then
' Parse the XML data with the XSL file
sShowNews = objXML.TransformNode(objXSL)
Else
' If an error occurs, report it
sShowNews = "Error: " & objXSL.ParseError.Reason & "<br /> URL:" & objXSL.URL
End If

Set objXSL = Nothing
Set objXML = Nothing
End Function

' Main display function
Dim sCategory, objFSO, fNewsFile, dLastSync, bGotFile, sXMLFile

' Which category to show?
If Request.QueryString("cat&quot

= "" Then
sCategory = sDefaultCategory
sCategory = Replace(sCategory, "%20", " &quot

Else
sCategory = Request.QueryString("cat&quot

End If

bGotFile = False

Set objFSO = Server.CreateObject("Scripting.FileSystemObject&quot

' Format the filename of datafile
sXMLFile = LCase(sCategory) & ".xml"
sXMLFile = Replace(sXMLFile, ":", "&quot

' Strip out illegal/ugly characters
sXMLFile = Replace(sXMLFile, "/", "&quot

sXMLFile = Replace(sXMLFile, "&", "&quot

sXMLFile = Replace(sXMLFile, "?", "&quot

sXMLFile = Replace(sXMLFile, "\", "&quot

sXMLFile = Replace(sXMLFile, ";", "&quot

sXMLFile = Replace(sXMLFile, "=", "&quot

sXMLFile = Replace(sXMLFile, "@", "&quot

sXMLFile = Replace(sXMLFile, ",", "&quot

sXMLFile = Replace(sXMLFile, """", "&quot

sXMLFile = Replace(sXMLFile, "'", "&quot

sXMLFile = Replace(sXMLFile, " ", "_&quot

sXMLFile = sXMLDataDir & sXMLFile

' Check if XML file exists
If Not objFSO.FileExists(sXMLFile) Then
bGotFile = GetMoreoverXML(sCategory, sXMLFile)
dLastSync = Now()
Else
' Check if file is more than nHoursToRefresh hours old
Set fNewsFile = objFSO.GetFile(sXMLFile)
dLastSync = fNewsFile.DateLastModified
Set fNewsFile = Nothing
If DateDiff("h", dLastSync, Now()) >= nHoursToRefresh Then
bGotFile = GetMoreoverXML(sCategory, sXMLFile)
dLastSync = Now()
Else
bGotFile = True
End If
End If
Set objFSO = Nothing
%>
<%
if session("empid&quot

="" then
response.redirect "/peregrine/logon.asp"
end if
%>
<%
empfname = Session("empfname&quot

folder = Session("empid&quot

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape&quot

&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a.indexOf("#&quot

!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}
}

function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?&quot

)>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById

; return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link href="../images/pef.css" rel="stylesheet" type="text/css">
<link href="file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/pef.css"

rel="stylesheet" type="text/css">
</head>

<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0" onLoad="MM_preloadImages('file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/APP2...ub/wwwroot/Intranet/images/home2.gif')">

<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>

<TD bgcolor="#C9C37F"><div align="center"> <img src="file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/logo.gif"

width="134" height="62"></div></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" bgcolor="#7C2230">

<tr>
<td width="7%"><a href="loui.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image6','','file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/home2.gif',1)"><img

src="file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/home1.gif"

name="Image6" width="70" height="13" border="0"></a></td>
<td width="7%"><font color="#FF0000"><a href="1003/prequal.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image4','','file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/APP2.gif',1)"><img

src="file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/APP1.gif"

name="Image4" width="70" height="13" border="0"></a></font></td>
<td width="6%"><a href="logoff.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image5','','file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/LOG2.gif',1)"><img

src="file://///Pacific/Inetpub/

http://wwwroot/Intranet/images/LOG1.gif"

name="Image5" width="70" height="13" border="0"></a></td>
<td width="75%"> </td>
<td width="5%"> </td>
</tr>
</table>
<table width="100%" height="478" border="0" bgcolor="#FFFFFF">

<tr>
<td width="89%" height="474" valign="top" bgcolor="#FFFFFF">
<div align="center">
<table width="100%" border="0">

<tr>
<td height="23" colspan="5"><div align="center"><a href="

http://192.168.254.200:8383">E-mail</a>;

· <a href="

http://192.168.254.200:8484">Calendar</a>;

·
<a href="

http://192.168.254.205">Point</a>;

· <a href="file://///Pacific/Inetpub/

http://wwwroot/Intranet/Calendar/default.htm">Weather</a>

· <a href="file://///Pacific/Inetpub/

http://wwwroot/Intranet/Calendar/default.htm">Web

Search</a><br>
<a href="

http://pacific/moreover.asp">Maps</a>;

· <a href="file://///Pacific/Inetpub/

http://wwwroot/Intranet/Calendar/default.htm">People

Search</a> · <a href="file://///Pacific/Inetpub/

http://wwwroot/Intranet/Calendar/default.htm">Business

Search</a>
<cfif #currentcompanyid# is 80>
</cfif>
</div></td>
</tr>
<tr>
<td width="157" height="83"> </td>
<td width="120"> </td>
<td width="311"> </td>
<td width="273" valign="bottom">
<%
If bGotFile = True Then
Response.Write sShowNews(sXMLFile)
Else
Response.Write "<p><strong>There was an error retrieving the news feed.</strong></p>"
End If
%>
</td>
<td width="144"> </td>
</tr>
<tr>
<td height="168"><font color="#FF0000"> </font></td>
<td colspan="2" valign="top"><table width="100%" border="0">
<tr>
<td><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Welcome
<%=Session("empfname&quot

%> <%=Session("emplname&quot

%> </strong></font></td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td><p><font size="-2"><strong>What would you like to do?</strong></font></p></td>
</tr>
</table>
<table width="84%" border="0">

<tr>
<td width="409" height="114" valign="top"> <blockquote>
<p><strong><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><font size="-7">•</font>
<a href="../Calendar/default.asp" target="_self">Check
Leads </a></font></strong><strong><font size="-1" face="Verdana, Arial, Helvetica, sans-serif"><br>
<font size="-7">•</font> <a href="../Calendar/default.htm" target="_self">Check
Pipeline</a><br>
<font size="-7">•</font> <a href="1003/prequal.asp" target="_self">Prequal</a>
<br>
<font size="-7">•</font> <a href="1003/1003.asp" target="_self">Loan
Application</a><br>
</font></strong></p>
</blockquote></td>
</tr>
</table></td>
<td valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<span class="ip"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><strong>IP</strong></font></span>:
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><strong>
<%Response.Write(Request.ServerVariables("remote_addr&quot

)%>
<br>
<br>
<%
response.write("Todays Date: &quot

response.write("<br />&quot

response.write(FormatDateTime(date(),vblongdate))
%>
<br>
<br>
</strong></font> </strong></font> </td>
<td valign="top"> </td>
</tr>
</table>
</div></td>
</tr>
</table>
<table width="100%" border="0" bgcolor="#000000">
<tr>
<td width="1%" bgcolor="#000000"> </td>
<td width="99%" height="72" bgcolor="#000000"><p> </p>
<h6> </h6>
<font color="#FFFFFF" size="-2" face="Verdana, Arial, Helvetica, sans-serif">Copyright
© 2003 • Pacific Eagle Financial Incorporated | Privacy Information
| Legal</font></td>
</tr>
</table>
</body>
</html>

Thanks

Genimuse · Jun 26, 2003

That's a lot of code. How about explaining what isn't working. Are you receiving an error message? Do the variables never equal anything? What -- specifically -- is not ok now?

Jerkycold · Jun 26, 2003

I am getting this error:

Error Type:
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'empfname'

When I take out my session variables:

<%
if session("empid&quot

="" then
response.redirect "/peregrine/logon.asp"
end if
%>
<%
empfname = Session("empfname&quot

folder = Session("empid&quot

%>

It works, but I need these variables.

Genimuse · Jun 26, 2003

The first line of your code is "Option Explicit". That means that you're telling ASP that you will specifically dimension every variable you use. No where in your code are you dimensioning it, so you need:

Code:

Dim empfname

somewhere in your code before you reference it for the first time. The same is true of "folder", as I don't see it dimensioned anywhere.

That or you can remove the "Option Explicit" line. It's better programming form (and reduces bugs), though, to leave it in and simply dimension all of your variables before you use them.

Genimuse · Jun 26, 2003

Oh, and to be clear, the error has nothing at all to do with sessions. The error just happens to go away because eliminating the session code also eliminates the real error.

DreXor · Jun 26, 2003

you have specified option explicit in the beginning of the page, if you remove that the code will work OR

[smile]

dim empfname

logan5735 · Jul 1, 2003

Dreamweaver huh? you might want to contact dreamweaver for support.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Help I cant figure this out!!

Jerkycold

IS-IT--Management

Genimuse

Programmer

Jerkycold

IS-IT--Management

Genimuse

Programmer

Genimuse

Programmer

DreXor

Programmer

logan5735

Programmer

Similar threads

Part and Inventory Search

Sponsor