//---------------------------------------------------------------------
Function vbDateDiff(s, d1, d2)

	vbDateDiff = DateDiff(s, d1, d2)

End Function

//---------------------------------------------------------------------
Function vbFormatCurrency(v)

	vbFormatCurrency = FormatNumber(v, 2)

End Function

//---------------------------------------------------------------------
Function vbGetForm()

	Dim a(1000)

	j = 0
	For Each vbVal in Request.Form
		a(j) = vbVal
		j = j + 1
	Next

	vbGetForm = a

End Function