quote:

---

Symptoms
When passing a parameter to a COM Component's method in Active Server Pages (ASP), the following error occurs:


Microsoft VBScript runtime error '800a000d' Type mismatch

Or the value stored in the variable passed to the method is not changed.
Cause
VBScript will pass parameters to a method by value if the argument's data type is NOT declared as a variant and the parameter is passed by reference if the argument's data type is declared as variant by the method.
Resolution
Parameters to be passed by reference to a method should always be declared as a variant data type by the method, while parameters to be passed by value can be declared as any type by the method.
Status
This behavior is by design.
More Information
Steps to Reproduce Behavior
Create a Visual Basic ActiveX DLL Project called "ByRefProj."
Add class module called "ByRefObj."
Implement the following method:

Public Sub ByRefMethod( ByRef strVal as String )
strVal = "This variable is passed by Reference"
End Sub
Create an ASP Page that calls this Method:

<%
Dim objTest, strByRefVal
Set objTest = Server.CreateObject("ByRefProj.ByRefObj")
objTest.ByRefMethod strByRefVal
%>
Run ASP. The following error occurs:


Microsoft VBScript runtime error '800a000d'
Type mismatch: 'ByRefMethod'
To correct this behavior:

Change the implementation of the method ByRefMethod as follows:
Public Sub ByRefMethod( ByRef strVal as Variant )
strVal = "This variable is passed by Reference"
End Sub

---

if strShowTimer = "1" then
	'### start of timer code
	Dim StopWatch(19) 

	sub StartTimer(x)
		StopWatch(x) = timer
	end sub

	function StopTimer(x)
		EndTime = Timer

		'Watch for the midnight wraparound...
		if EndTime < StopWatch(x) then
			EndTime = EndTime + (86400)
		end if

		StopTimer = EndTime - StopWatch(x)
	end function

	StartTimer 1

	'### end of timer code
end if

if strShowTimer = "1" then
	Response.Write	"    <td align=""left""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & chkString(replace(strTimerPhrase, "[TIMER]", abs(round(StopTimer(1), 2)), 1, -1, 1),"display") & "</font></td>" & vbNewLine
end if

quote:

---

Originally posted by @tomic

...So you need
to either get rid of the timer refrences in inc_footer.asp or add
the timer code at the top of inc_header.asp to whatever page you
are using instead of inc_header.asp...

---

quote:

---

Originally posted by @tomic

I see that the "action" of your form is to send it back to index2.asp so if you have none of the necessary login stuff from inc_header.asp it's no wonder it will not work. What i mean is, you display the form just fine but when the form is sent, the place it's sent to does not have the code needed to log you in. What i still don't understand is why not just use inc_header.asp with all the HTML stipped out of it? If you want to have forum functionality outside the forum directory you are going to need almost all of it.

@tomic

---

quote:

---

Originally posted by @tomic

Bah! I already found something I left out which I am going to have to add later but for this to work correctly outside the forum all links in inc_header.asp need strForumURL in them.

For example:

" <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _

becomes...

" <a href=""" & strForumURL & "members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _

Without this addition you will see your 404 page become one of your most accessed pages.

@tomic

---

quote:

---

Originally posted by @tomic

Bah! I already found something I left out which I am going to have to add later but for this to work correctly outside the forum all links in inc_header.asp need strForumURL in them.

For example:

" <a href=""members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _

becomes...

" <a href=""" & strForumURL & "members.asp""" & dWStatus("Current members of these forums...") & " tabindex=""-1""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _

Without this addition you will see your 404 page become one of your most accessed pages.

@tomic

---