Manca un end? Ma se c'è....

[kobra33]

Salve, il browser mi da il seguente messaggio d'errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A03F6)
Previsto 'End'
/ecommerce/CartInc/CartCore.asp, line 697

il codice è il seguente:

<script language="VBScript" runat="server">
Function GetCookieExp(expDays) 
 	vDate = DateAdd("d", CInt(expDays), Now())
 	GetCookieExp = CStr(vDate)
End Function

Function DoNumber(str, nDigitsAfterDecimal, nLeadingDigit, nUseParensForNeg, nGroupDigits)
	DoNumber = FormatNumber(str, nDigitsAfterDecimal, nLeadingDigit, nUseParensForNeg, nGroupDigits)
End Function

Function DoCurrency(str, nDigitsAfterDecimal, nLeadingDigit, nUseParensForNeg, nGroupDigits)
	DoCurrency = FormatCurrency(str, nDigitsAfterDecimal, nLeadingDigit, nUseParensForNeg, nGroupDigits)
End Function

Function DoDateTime(str, nNamedFormat, nLCID)
	dim strRet
	dim nOldLCID

	strRet = str
	If (nLCID > -1) Then
		oldLCID = Session.LCID
	End If

	On Error Resume Next

	If (nLCID > -1) Then
		Session.LCID = nLCID
	End If

	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then
		strRet = FormatDateTime(str, nNamedFormat)
	End If

	If (nLCID > -1) Then
		Session.LCID = oldLCID
	End If

	DoDateTime = strRet
End Function
</script>

ora, visto che mi dice che manca un end, ma l'end non c'è? Pechè l'errore? :master: