You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
438 B
Perl
20 lines
438 B
Perl
|
|
#!c:/perl/bin
|
|
|
|
use Win32::OLE;
|
|
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
|
|
|
|
$table = "addresstable";
|
|
$conn = Win32::OLE->new("ADODB.Connection");
|
|
$rs = Win32::OLE->new("ADODB.Recordset");
|
|
|
|
$conn->Open("address");
|
|
$conn->Execute("INSERT INTO $table (firstname, lastname, address)
|
|
VALUES ('A','B', 'C')");
|
|
|
|
print "Content-type: text/html\n\n";
|
|
|
|
print "Record Added ...";
|
|
|
|
$rs->Close;
|
|
$conn->Close; |