quote:

---

When accessing COM objects in ASP, you should copy frequently-used object data to script variables. This will cut down on COM method calls, which are relatively expensive compared to accessing script variables. When accessing Collection and Dictionary objects, this technique also cuts down on expensive lookups.

In general, if you are going to access object data more than once, put that data into a script variable. Prime targets for this optimization are Request variables (Form and QueryString variables). For example, your site may pass around a QueryString variable called UserID. Suppose this UserID is referenced a dozen times on a particular page. Instead of calling Request("UserID") a dozen times, assign the UserID to a variable at the top of the ASP page. Then use that variable throughout the page. This will save 11 COM method calls.

---

if Request.form("cookie") = "1" then
	if strSetCookieToForum = 1 then	
		Response.Cookies(strCookieURL & "Reload").Path = strCookieURL
	end if
	Response.Cookies(strCookieURL & "Reload") = Request.Form("RefreshTime")
	Response.Cookies(strCookieURL & "Reload").expires = strForumTimeAdjust + 365
	nRefreshTime = Request.Form("RefreshTime")
end if

dim nRefreshTime, ArchiveLink
nRefreshTime = Request.Cookies(strCookieURL & "Reload")
if Request.form("cookie") = "1" then
 if strSetCookieToForum = 1 then	
  Response.Cookies(strCookieURL & "Reload").Path = strCookieURL
 end if
 nRefreshTime = Request.Form("RefreshTime")
 Response.Cookies(strCookieURL & "Reload") = nRefreshTime 
 Response.Cookies(strCookieURL & "Reload").expires = strForumTimeAdjust + 365
end if

if (Request.QueryString("TOPIC_ID") = "" or _
        IsNumeric(Request.QueryString("TOPIC_ID")) = False) and _
        Request.Form("Method_Type") <> "login" and _
        Request.Form("Method_Type") <> "logout" then
	Response.Redirect "default.asp"
	Response.End
else
	Topic_ID = cLng(Request.QueryString("TOPIC_ID"))
end if

Dim Topic_ID, strLoginMethod
Topic_ID = Request.QueryString("TOPIC_ID")
strLoginMethod = Request.Form("Method_Type")
if ((Topic_ID = "") or (Not IsNumeric(Topic_ID))) and _
 (strLoginMethod <> "login") and (strLoginMethod <> "logout") then
 Response.Redirect "default.asp"
 Response.End
end if 
Topic_ID = cLng(Topic_ID)