form -> base

jeg har en formular med en masse felter
der hedder noget som feks historie1 historie2 osv osv
så bruger jeg den her funktion til at smide det ned i en base der ser sådan her ud
historieíd  historie

så når det kommer i basen skal det se sådan her ud

HISTORIEID  HISTORIE
1            historie1
2            historie2
3            historie3

osv osv

jeg bruger den her kode til at smække det ned i basen med:

<%
for i = 1 to 10
  overskrift = Request.Form("overskrift"&i)
  broedtekst = Request.Form("broedtekst"&i)
  dato = Request.Form("dato")
  starttid = Request.Form("starttid"&i)
  duration = Request.Form("duration"&i)
  overskrift = replace(overskrift,"'","''")
  broedtekst = replace(broedtekst,"'","''")
  nSQL = "INSERT INTO news (headline, story) VALUES ('" & overskrift & "','" & broedtekst & "')"
  Conn.Execute(nSQL)
  sSQL = "INSERT INTO stream (dato, start, duration) VALUES ('" & dato & "','" & starttid & "','" & duration & "')"
  Conn.Execute(sSQL)
next
%>

men hvis der feks er 5 felter til historier(historie1-5)
og der kun bliver skrevet noget i de første 3
så laver den 2 tomme entries i basen
hvordan undgår man det?