member access to forums

We have upgraded our forums software to Advanced Edition 2.4.5 ANSI and moved them to a dedicated server. Since I can not post to the support forums I am hoping to get assistance here.

Some of our forum members are receiving the error message below and are denied access to the forums.

ADODB.Command error '800a0d5d'
Application uses a value of the wrong type for the current operation.
/forums/js/globalSessionFunction.asp, line 24


The line 24 of code quoted above is:
.Parameters.Append .Createparameter("@IP", adVarChar, adParamInput, 15, getIPAddress())


Any comments or advice on how to remedy this issue are appreciated!

try changing the getIPAddress function (js/globalfunctions.asp) to the following and see if it works.

Function getIPAddress()
  getIPAddress = Request.ServerVariables("REMOTE_ADDR")
End Function

I will leave this message here for two days and it will be deleted. Please use the support forum (you have an account with us in the support forum) or email for future support requests.

I tried the fix on the page and line you specified and it crashed all the forums with the following error message. (I restored from a backup, no worries.)

Microsoft VBScript compilation  error '800a03ed'

Expected '('

/forums/js/globalfunctions.asp, line 935

Function getIPAddress = Request.ServerVariables("REMOTE_ADDR")
----------------------^

I am perfectly willing to use your support forums for this trouble shooting. I am logged in yet access is denied to the support forums. Please email me login and pw to the support forums and we can continue there if you prefer.

thanks,

you did not do what I described above. The syntax is not correct. Please reread my post above.

By the way, your account that has the correct permission to enter the support forum is madsit.

Sorry, I did not realize you want all 3 lines pasted in.

I have now replaced.********

Function getIPAddress()
   Dim strIPAddress
  
   if Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" then
       strIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   elseif Request.ServerVariables("HTTP_CLIENT_IP") <> "" then
       strIPAddress = Request.ServerVariables("HTTP_CLIENT_IP")
   else
       strIPAddress = Request.ServerVariables("REMOTE_ADDR")
   end if
  
   getIPAddress = left(replace(replace(strIPAddress,"'",""),"""",""),50)
End Function

******with.....

Function getIPAddress()
  getIPAddress = Request.ServerVariables("REMOTE_ADDR")
End Function

Also madsit is our technical consultant. He is not me.

Thank you for your assistance Samuel. I will post the results here.

Best regards,

So far so good. It's early yet but two of our members who were experiencing problems have already reported that they are ok now.

Thanks again Samuel!