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