asked on
n = 0
strRecords = ""
For Each Item In Request.Form
If Left(Item,5) = "Mail_" Then
If Request.Form(Item) = "on" Then
nRecID = Replace(Item,"Mail_","")
n = n + 1
strFileName = Request.Form("RecordID_" & nRecID)
strRecords = strRecords & strFileName & ";"
End If
End If
Next
strRecords = Left(strRecords, Len(strRecords) - 1)%>