Try


Dim i As Integer
For i = 0 To CInt(Request("txtCount") - 1
If Request("txtname" & (i + 1)) = "" Then
msg("Please Give Name To Upload Files ", Me)
ElseIf Request("txtmp3" & (i + 1)) = "" Then
msg("Please Browse Files To Upload ", Me)
ElseIf Request("txtrm" & (i + 1)) = "" Then
msg("Please Browse Files To Upload ", Me)
Else
processQuery("insert into [download_files] ([nid],[file_mp3],[file_rm],[filename]) values(" & checkText(ddlname.SelectedValue) & ",'" & checkText(Request("txtmp3" & (i + 1))) & "','" & checkText(Request("txtrm" & (i + 1))) & "','" & checkText(Request("txtname" & (i + 1))) & "')"
End If

msg(CInt(Request("txtCount") - 1 & "record inserted!", Me)
Next

Catch ex As Exception
msg("Error - " & checkError(ex.Message), Me)
End Try

Nasir Mahmood
Software, Web Developer