<%
	Dim qLen
	Dim strMethod
	Dim evalString
	Dim strArgs
	
	qLen = Request.QueryString.Count
	
	If qLen > 0 Then
		strMethod = Request.QueryString.Item(1)
		If strMethod = "" Then
			Response.Write "Отсутствует название функции"
			Response.End 
		End If
	Else
		Response.Write "Отсутствуют параметры вызова"
		Response.End 
	End If
	
	If qLen > 1 Then
		For x = 2 To qLen
			If x = qLen Then
				strArgs = strArgs & """" & Request.QueryString.Item(x) & """"
				Exit For
			Else
				strArgs = strArgs & """" & Request.QueryString.Item(x) & ""","
			End If
		Next
		evalString = strMethod & "(" & strArgs & ")"
	Else
		evalString = strMethod & "()"
	End If
	
	Response.Write eval(evalString)
%>