Non è quello che faccio?:
codice:
arrPer = Split(arrivodalform,", ")
for i=LBound(arrPer) to UBound(arrPer)
  arr = Split(arrPer(i),"-")

strD = arr(0) & arr(1)

  sql = "INSERT INTO tabella (IdDC, ente, Data, Stato, Tipo, NoteAdd) VALUES (" & arr(0) & ", '" & Replace(arr(1),"'","''") & "', #"&date()&"#, '"&Stato&"', '"&Tipo&"', '"&NoteAdd&"')"
  cn.Execute sql

next
%>
<script language="javascript">
  alert("I seguenti dati:\n<%=strD%>\nsono state registrati.");
  location.href='compilazioneform.asp';
</script>