ho risolto cosi. pensavo di ricevere piu aiuto.... 
codice:
if request("dal") <> vbnullstring and request("a") = vbnullstring then
sql = sql & "AND datainserimento >= DateSerial(" & Right(request("dal"),4) & "," & Mid(request("dal"),4,2) & "," & Left(request("dal"),2) & ")"
end if
if request("dal") = vbnullstring and request("a") <> vbnullstring then
sql = sql & "AND datainserimento <= DateSerial(" & Right(request("a"),4) & "," & Mid(request("a"),4,2) & "," & Left(request("a"),2) & ")"
end if
if request("dal") <> vbnullstring and request("a") <> vbnullstring then
sql = sql & "AND datainserimento Between DateSerial(" & Right(request("dal"),4) & "," & Mid(request("dal"),4,2) & "," & Left(request("dal"),2) & ") And DateSerial(" & Right(request("a"),4) & "," & Mid(request("a"),4,2) & "," & Left(request("a"),2) & ")"
end if