hi, that worked a treat by the way charlie....forgot to write back....
here's my working script!!
Code:
#! /usr/bin/perl
# Craig R Morton
# Last_Edit: 08-Nov-2006
use CGI;
use ready::Sql;
$cgi = new CGI;
$sql = new ready::Sql;
$header = << 'STOP';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Edit Contact</title>
<link rel="stylesheet" type="text/css" href="/ssi/extranet.css">
<script src="/ssi/extranet.js" language="javascript"></script>
<script language="javascript">
<!--
function redirecttostart()
{
window.location="craigtest.pl";
}
//-->
</script>
<script src="crmjs.js" language="javascript"></script>
<style type="text/css">
<!--
body {
background-color: #ECECEC;
}
.table_contacts {
width: 100%
border: 2px;
border-color: #000000;
border-style: solid;
font-family: Verdana;
font-size: 11px;
}
-->
</style>
</head>
<body >
STOP
$footer = << 'STOP';
</body>
</html>
STOP
# Form field values passed from the previous page
$contactid = $cgi->param('hcontactid');
$name = $cgi->param('name');
$birthdate = $cgi->param('birthdate');
$email = $cgi->param('email');
$interest = $cgi->param('interest');
$telno = $cgi->param('telno');
$admin = $cgi->param('admin');
# if the admin 'yes' button has been checked then insert '1' into the DB otherwise insert '0'
if ($admin eq "yes") {
$adminval = "1";
}
else {
$adminval = "0";
}
# Update the DB with the values (name, birthdate, etc......) passed from the previous page
$sql->query(q{UPDATE `craigrm`.`contacts` SET name = (?), birthdate = (?), email = (?), interest = (?), telno = (?), admin = (?) WHERE contact_id = (?)}, $name, $birthdate, $email, $interest, $telno, $adminval, $contactid);
@getrecords = $sql->query(q{SELECT contact_id, name, birthdate, email, interest, telno, admin FROM `craigrm`.`contacts` ORDER BY contact_id ASC});
$content = "<table class='table_contacts' align='center'><tr><td>Contact ID</td><td>Name</td><td>Birthdate</td><td>Email</td><td>Interest</td><td>Tel No.</td><td>Admin</td></tr>";
while ($result = $getrecords[0]->fetchrow_hashref) {
$dbcontactid = $result->{"contact_id"};
$dbname = $result->{"name"};
$dbbirthdate = $result->{"birthdate"};
$dbemail = $result->{"email"};
$dbinterest = $result->{"interest"};
$dbtelno = $result->{"telno"};
$dbadmin = $result->{"admin"};
$content .= "<tr><td>$dbcontactid</td><td>$dbname</td><td>$dbbirthdate</td><td>$dbemail</td><td>$dbinterest</td><td>$dbtelno</td><td>$dbadmin</td></tr>";
}
$content .= "</table>";
print "Content-type: text/html\n\n";
print $header;
print "<div align='center'>";
require "banner.pl";
print "<br>Database Updated....";
print "</div>";
print $content;
=pod
print "Contact ID = $contactid<br>";
print "Name = $name<br>";
print "Birthdate = $birthdate<br>";
print "Email = $email<br>";
print "Interest = $interest<br>";
print "Tel No. = $telno<br>";
print "Admin = $admin<br>";
print "Adminval = $adminval<br>";
=cut
print "<div align='center'>";
print "Back to Start";
print "</div>";
print $footer;
www.crmpicco.co.uk
www.ie7.com