<!--#include virtual="/include/activeWeb.inc"-->
<!--#include virtual="/include/aw_item_api.inc"-->

<%

url_campa = Request("url_campa")
'url="test2"

 Topfolders = "'aaaaaaaaaaaaenw'"

  IDList = GetItemIDS(NULL,_
      NULL,_
      Topfolders,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      "title",_
      NULL)

 IDs = GetItemInfos (IDList,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      NULL,_
      "title",_
      NULL)

 GetItemObjects(IDs)

 Looplist = PrepareIDListForLoop(IDs)

countTotal = 0
Dim arrForms()
Redim Preserve arrForms(0)

Do while Len(Looplist)>0
	ID_now = GetCurrentIDFromLoopList(Looplist)
	Index_Info  = GetDynItemInfoIndexByItemID(ID_now)
	Index_Object = GetDynItemObjectIndexByItemID(ID_now)

	If awDynItemInfoByName(Index_Info,"awfolder") = "aaaaaaaaaaaaenw" then
		countTotal = countTotal + 1
		arrForms(Ubound(arrForms)) = ID_Now
		Redim Preserve arrForms(UBound(arrForms)+1)
	End if
loop

Dim Item1Ary()
Redim Preserve Item1Ary(countTotal, 2)

For x=0 to UBound(arrForms)
		Item1Ary(x,0)=awDynItemInfoByName(arrForms(x), "awidentity") 
		Item1Ary(x,1) = awDynItemInfoByName(arrForms(x), "awUniqueName") 
Next

For i = 0 to Ubound(Item1Ary)
 If not Item1Ary(i,0) = "" then
 	If Item1Ary(i,1) = url_campa Then
 		Response.Redirect ("https://" & Request.ServerVariables("SERVER_NAME") & GetNamedHREF(Item1Ary(i,0)))
	End if
 End if
next

 

%>