($infile, $outfile, $indent) = @ARGV;

open(IN, $infile) or die "Can't open input file: $!";
open(OUT, ">" . $outfile) or die "Can't open output file: $!";

print "Starting...";
print OUT "<%\n";

while(<IN>) {
    chomp;
    print OUT (" " x $indent) . "Response.Write(";
    if ($_) {
        print OUT "\"$_\" + ";
    }
    print OUT "vbNewLine)\n";
     
}

print OUT "%>\n";
print "Done.";

close IN or die "Can't close input file: $!";
close OUT or die "Can't close output file: $!";