[taw]

Hi.
Any help on this would be really appreciated. This code was working fine until the site was moved to a new server. When I try and change the price list I am get the error below. I have searched everywhere for a solution but I can't seem to find one. I wondered if it could be a problem relating to moving to the new server, but if so I can't find an alternative method for the 'Left Function'.

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Left'
The line that is marked 426 is causing the problem.

Code:

IF Request.Form("check") = "true" THEN
									  	DIM hike
										DIM prclbl,prchld,prc
										DIM i,prcpos
										
									  	hike = request.form("addec")
										prclbl = rsItems.Fields.Item("PriceOption").Value
										prcpos = (InStr(prclbl,"-")-1)
								426	prchld = Left(prclbl, prcpos)
									  	rsItems.Fields.Item("Price").Value = FormatNumber((rsItems.Fields.Item("Price").Value * hike),2,-2,-2,-2)
prc = FormatNumber((rsItems.Fields.Item("Price").Value), 2, -2, -2, -2)rsItems.Fields.Item("PriceOption").Value = (prchld & "-£") & prc
				                 	rsItems.Update
									  END IF

Thanks.