PWS counts too many users on my computer

**Sastraxi** · May 6th, 2001, 05:17 PM

I know for a fact that there are no other users on my website but there are always 2 or 3 users connected. In addition, this (or something else) causes me not be able to view my website. I have tried rebooting, starting/pausing/stopping PWS, but nothing works.

Help!

**msdnexpert** · May 6th, 2001, 10:59 PM

Well Sastraxi how do u know the number of users who are connected.

**monte96** · May 6th, 2001, 11:32 PM

Each time you connect with a new copy of IE, it is a new session and therefore a new user to the server because the memory cookie that is used to track the session ID is not present the first time you connect to the server and create a session.

**JoshT** · May 7th, 2001, 09:01 AM

Couldn't downloading the page and a couple of images simultaneously open multiple connections?

**monte96** · May 7th, 2001, 10:41 AM

If he is caching images, absolutely.

**Sastraxi** · May 7th, 2001, 03:14 PM

I think it has to do with this ASP page, it connects all those users and freezes PWS every access.

Here it is:

Code:

<!-- #INCLUDE FILE="adovbs.inc"-->
<%
dim SC
Dim oConn
Dim oRec
Dim UsrName
Dim ERRORS
	Response.Buffer=true
	Response.Write "<HTML><HEAD><TITLE>Attempting Server-AddUser for " + request.Form("User") + "</TITLE></HEAD><BODY>"
	
	SC = " Driver={Microsoft Access Driver (*.mdb)};DBQ=" + server.MapPath("data.mdb")
	
	Set oRec = Server.CreateObject("ADODB.Recordset")
	Set oConn = Server.CreateObject("ADODB.Connection")
	
	oConn.Open SC, "Admin", "MY_PASSWORD_DONT_WORRY_ITS_CORRECT!!!"
	oRec.Open "Users", oConn,adOpenStatic,adLockOptimistic,adCmdTable

	'<--- CHECK FOR ALL NECESSARY INFORMATION
	Response.Write "<FONT COLOR='#FF0000'>"
		If Trim(Request.Form("User")) = "" Then
			Response.Write "No username provided.<BR>"
			ERRORS = true
		End If
		If Trim(Request.Form("Email")) = "" Then
			Response.Write "No email account provided.<BR>"
			ERRORS = true
		end if
		if Trim(Request.Form("Pword")) = "" Then
			Response.Write "No password provided!<BR>"
			ERRORS = true
		elseif len(trim(request.form("pword"))) > 12 then
			Response.Write "Password cannot excede 12 alphanumeric characters.<BR>"
			ERRORS = true
		elseif ucase(trim(Request.Form("pword"))) <> ucase(trim(Request.Form("p2word"))) then
			Response.Write "Passwords do not match.<BR>"
			ERRORS = true
		end if
		if Trim(Request.Form("GName")) = "" Then
			Response.Write "You didn't include your first name!<BR>"
			ERRORS = true
		end if
		if Trim(Request.Form("SName")) = "" Then
			Response.Write "You didn't include your last name!<BR>"
			ERRORS = true
		end if		
		While Not oRec.EOF
			UsrName=oRec("UserName")
			If UsrName=Request.Form("User") Then
				Response.Write "Somebody has already chosen <i>" + UsrName + "</i> as their username. Please click the back button and choose a different name."
				ERRORS = true
			Else
			End if
			'Response.Redirect "loggedin.asp?usernm=" + NMME
		Wend
		if ERRORS = TRUE then
			Response.Write "<BR><B>There were errors. Please press the back button on your browser to make the necessary changes.</B>"
		end if
	Response.Write "</FONT>"
	Response.End 
	'<--- 
	
	'<--- WE'VE MADE CONTACT, ADO STUFF NEXT...
	
	While Not oRec.EOF
		UsrName=oRec("UserName")
		If UsrName=Request.Form("User") Then
			'Response.Redirect ".htm"
			'Response.End
		Else
		End if
		'Response.Redirect "loggedin.asp?usernm=" + NMME
	Wend
	
    '<--- IF WE GET HERE, EOUSTON, WE ARE GOOD TO GO
	'<--- Provided unique username...
	
	Response.Write "Provided unique username, writing data..."
	Dim A
	Dim B
	A = Timer()
		oRec.AddNew
		oRec("UserName") = Trim(Request.Form("User"))
		oRec("Password") = Trim(Request.Form("Pword"))
		oRec("Email Address") = Trim(Request.Form("Email"))
		If Trim(Request.Form("ICQ")) <> "" then oRec("ICQ") = Trim(Request.Form("ICQ"))
		oRec("Given Name") = Trim(Request.Form("GName"))
		oRec("Surname") = Trim(Request.Form("SName"))
		If Trim(Request.Form("website")) <> "" then oRec("Website") = Trim(Request.Form("Website"))
		If Trim(Request.Form("comment")) <> "" then oRec("Comments") = Trim(Request.Form("comment"))
	B = Timer()
	Response.Write "Done.<BR>"
	Response.Write "ADDUSER.ASP - " + (B - A / 1000) + " seconds for Query User.ADDUSER, Username " + oRec("UserName") + " on " + Now() + "<BR>"
	Response.Write "</BODY></HTML>"
%>

Are there any forever loops in there?

**Sastraxi** · May 7th, 2001, 03:20 PM

After posting that I noticed a TON of errors in my code and I fixed them, just going to check if it works now.

**Sastraxi** · May 7th, 2001, 03:31 PM

It works and PWS doesn't lock up anymore!
Thanks!

Thread: PWS counts too many users on my computer

Thread Tools

Display

PWS counts too many users on my computer

Posting Permissions