</pre>
<img src=http://blah.microsoft.com/analog_sc/bp/_lessons_learned/2788_1.jpg>
<br>
<img #### #!/opt/perl/bin/perl -w use Win32::ODBC; use strict; # MAKE CONNECTION AND QUERY ACCESS DATABASE my $connstring = "EPI_DB"; my $db = new Win32::ODBC($connstring) or die $!; $db->Sql("SELECT entry_id, description FROM entry"); my $description; my $entry_id; while ($db->FetchRow()) { $description= $db->Data('description'); $entry_id = $db->Data('entry_id'); tagremover($description); my $db2 = new Win32::ODBC($connstring) or die $!; $db2->Sql("UPDATE entry SET description='$description' WHERE entry_id=$entry_id"); } print "Cleaning Complete\n"; $db->Close(); # FUNCTION TO CLEAN TAGS FROM DATABASE sub tagremover { $_[0] =~ s/<//g; # REPLACES ALL HTML > SYMBOLS IN DB }