244 &db_connect;
245 $db_query = qq~INSERT INTO BAZA_BONCHA VALUES (\'\',$PostedData{\'recipient_name\'},$PostedData{\'recipient_familie\'},$PostedData{\'recipient_fathername\'},$PostedData{\'recipient_born_date\'},$PostedData{\'recipient_born_contry\'},$PostedData{\'recipient_born_city\'},$PostedData{\'recipient_now_contry\'},$PostedData{\'recipient_now_city\'},$PostedData{\'recipient_ear_of_arrival\'},$PostedData{\'recipient_group_indeficator\'},$PostedData{\'recipient_facultet_name\'},$PostedData{\'recipient_email\'},$PostedData{\'recipient_site_url\'},$PostedData{\'recipient_phone_number\'},$PostedData{\'recipient_proffession\'},$PostedData{\'recipient_pass\'},$PostedData{\'recipient_comments\'})~;
246 $sth = $dbh->prepare ($db_query) or die "Не приготавляется запрос: $db_query. Причина: $!";
247 $sth->execute or die "Не работает, блин: $db_query. Причина: $!";
248 &db_disconnect;
База вида:
ID INTEGER AUTO_INCREMENT NOT NULL PRIMARY KEY,
R_NAME VARCHAR(36),
R_FAMILIE VARCHAR(36),
R_FATHERNAME VARCHAR(36),
R_BIRTHDAY VARCHAR(10),
R_BIRTHDAY_CONTRY VARCHAR(36),
R_BIRTHDAY_CITY VARCHAR(36),
R_NOW_CONTRY VARCHAR(36),
R_NOW_CITY VARCHAR(36),
R_BEGIN_DATE SMALLINT,
R_GROUP_NUMBER VARCHAR(24),
R_FUCK_NAME VARCHAR(120),
R_EMAIL VARCHAR(60),
R_WWW VARCHAR(60),
R_TELEPHONE VARCHAR(40),
R_PROFESSION VARCHAR(80),
R_PASSWORD VARCHAR(40),
R_COMMENTS VARCHAR(240)