Сonst RA_CERTREQ_PROGID03 = "RegistrationCenter.CertRequest"
    On Error Resume Next
    Dim ReqID
	
    ReqID = Request("ReqID")
	Response.Clear
	
    If Len(ReqID) <> 0 Then

		Dim objReq: Set objReq = Server.CreateObject(RA_CERTREQ_PROGID03)
		Dim ReqStatus: ReqStatus=objReq.GetRequestInfo (ReqID)

    Const RA_CERTREQ_PROGID03 = "RegistrationCenter.CertRequest"
    On Error Resume Next
    Dim ReqID
	Dim TokenID, Password
	Response.Clear

	TokenID = Request("TokenID")
	Password = Request("Password")

	If (Len(TokenID) <> 0) and (Len(Password) <> 0 ) Then
		Dim RegReqs
		Dim CertReqs
		Set oUtils = Server.CreateObject("WebReg.Utils")
		' Здесь осуществится проверка маркера доступа.
		oUtils.GetRequestsByToken RegReqs, CertReqs
		
		ReqID = Request("ReqID")
	
		If Len(ReqID) <> 0 Then

			Dim objReq: Set objReq = Server.CreateObject(RA_CERTREQ_PROGID03)
			Dim ReqStatus: ReqStatus=objReq.GetRequestInfo (ReqID)
		
			If Err.Number = 0 Then
				Response.Write "Status" & ReqStatus
			else
				Response.Write "BadService"
				Response.Write Err.Number
			End if
		else
			Response.Write "BadID"
		End if		
	End if
	Response.End