1009087|10/02/03|abbcdef|1124567|5679.34
1998023|12/06/02|rrrasdd|7468758|300.78 

##</code><code>##

# !/usr/bin/perl -w

use DBI qw(:sql_types);
use DBD::ODBC;


$dsn = "dbi:ODBC:Daily_Rec"; 
$dbh = DBI->connect($dsn,' ',' ', 
{RaiseError=>1,PrintError=>1,AutoCommit=>1} );

open(DAT, "c:/Temp/heldreceipts_TempFile.txt") || die "could 
not open Held Receipts file";

while(<DAT>)
{
	chomp;
	@line = split(/\|/, $_);
	$var1=$line[0];
	$var2=$line[1];
	$var3=$line[2];
	$var4=$line[3];
	$var5=$line[4];
	$var6=$line[5];
	$var7=$line[6];
	$var8=$line[7];
	$query=qq{insert into Held_Receipts values (?,?,?,?,?,?,?,?)};

	
$sth = $dbh->prepare($query) or die "cannot prepare query";
$sth->execute($var1, $var2, $var3, $var4, $var5, $var6, $var7, $var8) 
or $DBI::err and die $DBI::errstr;
	
}
$sth->finish();
$dbh->disconnect();