[Resolved] Lost Session

[jdickson]

Lost Session

A client of mine is having his script drop session. We have the server session timeout set at 60 minutes but this script drops session if idle for 15-20 seconds. This is on a godaddy windows virtual dedicated server. Please help!! Thanks in advance!


Code:

<%@ language="VBScript"%>
<%
'option explicit
response.buffer = true
Server.ScriptTimeout = 5000
Session.Timeout = 20
Dim strQuery,strProvider,recSet,counter, dbActive,dbPath
%>
<!--#include file="_scripts/DBName.inc"-->
<!--#include file="_scripts/DBPath.inc"-->
<%
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbPath&";"
strQuery="SELECT CouncilName,CouncilMeets,CouncilNewsletter,Council  Events,CouncilServes,CouncilState,CouncilWeb,Counc  ilPaid,CouncilPaidDate,CID FROM tblCouncils"
set recSet=Server.CreateObject("ADODB.Recordset")
recSet.Open strQuery, strProvider, adOpenStatic, , adCmdText
recSet.MoveFirst
counter = 0
WHILE NOT recSet.EOF
	recSet.MoveNext
	counter = counter + 1
WEND

recSet.Close
set recSet=Nothing

Session("total1") = counter
'response.write counter
'response.write Session("total1")

response.redirect "Browse2.asp?ID=1"
%>

BROWSE2.asp


Code:

<%@ language="VBScript"%>
<%response.ContentType="text/html"%>
<html>
<head>
<title>Council Browser 2</title>
</head>

<body>
<div align="center">
<% 
Dim Modifier, recno, reccounter,total,recSet,recSet2,vbQuote
vbQuote = Chr(34)
total = session("total1")

%>
<!--#include file="_scripts/DBName.inc"-->
<!--#include file="_scripts/DBPath.inc"-->
<!-- METADATA TYPE="typelib" FILE="c:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
	strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbPath&";"
	strQuery="SELECT CouncilName, CouncilMeets, CouncilNewsletter, CouncilEvents, CouncilServes, CouncilState, CouncilWeb, CouncilPaid, CouncilPaidDate, CID, CouncilUnavailable FROM tblCouncils ORDER BY CouncilState, CouncilName ASC"
	set recSet=Server.CreateObject("ADODB.Recordset")
	recSet.Open strQuery, strProvider, adOpenStatic, , adCmdText
	recSet.MoveFirst

	reccounter = 1

If request("ID") = "" then
	
	WHILE NOT recSet("CID") = CInt(request("find"))
'		response.write reccounter&" "
		recSet.MoveNext
		reccounter = reccounter + 1
	WEND
	Modifier = reccounter
else
	Modifier = CInt(request("ID"))
	If Modifier > CInt(session("total1")) then
		Modifier = CInt(session("total1"))
	End if
	IF Modifier < 2 THEN
		Modifier = 1
	End if
	WHILE reccounter < Modifier 
'		response.write reccounter&" "
		recSet.MoveNext
		reccounter = reccounter + 1
	WEND
end if

strQuery="SELECT State FROM tblStates"
set recSet2=Server.CreateObject("ADODB.Recordset")
recSet2.Open strQuery, strProvider, adOpenStatic, , adCmdText
recSet2.MoveFirst

strQuery="SELECT Meets FROM tblMeets"
set recSet3=Server.CreateObject("ADODB.Recordset")
recSet3.Open strQuery, strProvider, adOpenStatic, , adCmdText
recSet3.MoveFirst

Fform()
%>
<table width=90% cellspacing=1 cellpadding=5 border=0>
	<tr>
		<td colspan=2 align=center>
			<form action=AddNew1.asp?remember=<%=Modifier%> method=post>     
			<input type=submit value="Add New Record">
			</form>
		</td>
		<td colspan=2 align=center valign=top>
			<form action=Update1.asp?ID=<%=RecSet("CID")%>&remember=<%=Modifier%> method=post>
			<input type=hidden name=remember value=<%=Modifier%>>
			<input type=submit value="Update Existing Record">
		</td>
	</tr>
	<tr valign="top">
<%FOR EACH field IN recSet.Fields%>
		<td align=right><b>
<%	IF field.Name = "CID" THEN%>

<%	ELSE response.write field.Name%>
   		</b></td><td width=200>
<%		IF field.Value <> "" THEN
				IF field.Name = "MeetDateTime" OR field.Name = "MeetLocation" THEN
		  		response.write "<p><i>"&CntrBreakReplace(field.Value)&"</i></td><td>"
			  ELSE
		  			response.write "<p><i>"&field.Value&"</i></td><td>"
		  	END IF
		  ELSE
		  		response.write "<p><i>"&field.Value&" </i></td><td>"
		 	END IF
		 	SELECTFORMelement(field.Name)
		END IF%></td></tr>

<% next %>
		</table></form>

<%

recSet.Close
set recSet=Nothing

%>
</table>
</div>
</body>
</html>





<% '-----------------Sub and Function area
Function CntrBreakReplace(str)
	CntrBreakReplace = Replace(str,chr(13),"<br>")
End Function


sub Fform()
'Response.write "<hr width=90% size=1>"
Response.write "<table width=90% cellspacing=0 cellpadding=3 border=0><tr>"
Response.write "<tr><td align=center valign=middle width=200>Database Record Number "&recSet("CID")&"</td></tr>"
Response.write "<td align=center valign=middle width=200><b>Record Number "&Modifier&" of "&session("total1")&"</b></td>"
Response.write "<td align=center valign=middle rowspan=2><br>"
Response.write "<form action=Browse3.asp?ID="&recSet("CID")&"&remember="&Modifier&" method=post>"
Response.write "<input type=submit name=recno value=Contacts>"
Response.write "</form>"
Response.write "</td>"
Response.write "<td align=center valign= middle width=10 rowspan=2><form action=Browse2.asp?ID=1 method=post><input type=submit name=recno value=First></form>"
Response.write "<td align=center valign= middle width=10 rowspan=2><form action=Browse2.asp?ID="&Modifier-1&" method=post><input type=submit name=recno value=Back></form>"
Response.write "<td align=center valign= middle width=10 rowspan=2><form action=Browse2.asp?ID="&Modifier+1&" method=post><input type=submit name=recno value=Next></form>"
Response.write "<td align=center valign= middle width=10 rowspan=2><form action=Browse2.asp?ID="&Session("total1")&" method=post><input type=submit name=recno value=Last></form>"
Response.write "</td></tr><tr><td align=center>"
Response.write "</form><form action='_scripts/chose.asp?ID="&request("ID")&"' method=post><input type=submit value=Goto> <input type=text name=where size=3></form>"
Response.write "</td></tr>" 
Response.write "</table><hr width=90% size=1>"
end sub

sub SELECTFORMelement(str)
SELECT CASE (str)

				CASE "CouncilState"
   				%><select name="CouncilState" size="1">		<!-- use for CouncilState -->
					<% WHILE NOT recSet2.EOF
							IF recSet2("State") = field.value THEN
								response.write "<option selected>"&recSet2("State")&"</option>"
							ELSE
								response.write "<option>"&recSet2("State")&"</option>"
							END IF
							recSet2.MoveNext
						 WEND%>
			    </select><%

			    
				CASE "CouncilName"
 				  %><input type="text" size="40" name="CouncilName" maxlength=50 value="<%=field.value%>"> <!-- use for CouncilName --><%



				CASE "CouncilPaid"
 			   %><input type="checkbox" name="CouncilPaid" value=on
 			   		<%IF field.value = "False" THEN
			    			%>><%
			    		ELSE
			    			%> checked><%
			    		END IF

				CASE "CouncilUnavailable"
 			   %><input type="checkbox" name="CouncilUnavailable" value=on
 			   		<%IF field.value = "False" THEN
			    			%>><%
			    		ELSE
			    			%> checked><%
			    		END IF

				CASE "CouncilMeets"
			    %><select name="CouncilMeets" size="1">		<!-- use for Meets -->
					<% WHILE NOT recSet3.EOF
							IF recSet3("Meets") = field.value THEN
								response.write "<option selected>"&recSet3("Meets")&"</option>"
							ELSE
								response.write "<option>"&recSet3("Meets")&"</option>"
							END IF
							recSet3.MoveNext
						 WEND%>
   			</select><%

				CASE "CouncilEvents"
			    %><textarea name="CouncilEvents" rows="8" cols="40"><%=field.value%></textarea>  <!-- use for CouncilEvents --><%



				CASE "CouncilServes"
			    %><textarea name="CouncilServes" rows="5" cols="40"><%=field.value%></textarea>  <!-- use for CouncilServes --><%



				CASE "CouncilWeb"
			    %><input type="text" size="40" name="CouncilWeb" maxlength=100
			    	<%IF field.value <> "" THEN
			    			response.write "value="&field.value&">"
			    		ELSE
			    			%>value="Enter URL without 'http://'"><%
			    		END IF



				CASE "CouncilNewsletter"
			    %><input type="checkbox" name="CouncilNewsletter" value=on
 			   		<%IF field.value = "False" THEN
			    			%>><%
			    		ELSE
			    			%> checked><%
			    		END IF



				CASE "CouncilPaidDate"
			    %><input type="text" size="10" name="CouncilPaidDate" maxlength=8
			    	<%IF field.value <> "" THEN
			    			%>value="<%=field.value%>"<%
			    		ELSE
			    			%>value="MMDDYYYY"<%
			    		END IF%>><%
			

		END SELECT
end sub
%>

 

[AHA7]

I am not familiar with VB but could this line be the problem?

Session.Timeout = 20

 

[jdickson]

Solved: IIS Application Pool was not turned on by default on Godaddy hosting.