Forum Moderators: open
For each item in Request.Form
strOuterItems = strOuterItems & item & "_" & Request.Form(item) & "|"
strInnerItems = strInnerItems & item & "_" & Request.Form(item) & "|"
Next
arrOuterItems = split(strOuterItems,"|")
arrInnerItems = split(strInnerItems,"|")
for i=0 to UBound(arrOuterItems)
for j=0 to UBound(arrInnerItems)
if Left(arrOuterItems(i),13)="strObjNum_js_" Then
arrOuterItems(i)=replace(arrOuterItems(i),"strObjNum_js_","")
If Left(arrInnerItems(j),14)="strObjDesc_js_" Then
arrInnerItems(j)=replace(arrInnerItems(j),"strObjDesc_js_","")
If Left(arrOuterItems(i),1)=Left(arrInnerItems(i),1) Then
a=Split(arrOuterItems(i),"_")
b=Split(arrInnerItems(i),"_")
myArrayCount=0
for each x in a
If myArrayCount=0 then
strObjIndex=a(myArrayCount)
End If
If myArrayCount=1 then
strObjNum=a(myArrayCount)
End If
myArrayCount=myArrayCount+1
next
myArrayCount=0
for each x in b
If myArrayCount=0 then
strObjIndex=b(myArrayCount)
End If
If myArrayCount=1 then
strObjDesc=b(myArrayCount)
End If
myArrayCount=myArrayCount+1
next
End If
End If
end if
next
next
Insert into StrategicPlanObjective (ObjectiveNumber, ObjectiveDescription) Values (strObjNum, strObjDescr);