1
Базы данных / PHP & MS SQL 2000
« : 27 Марта 2006, 14:37:54 »
да можно смотри в документации
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
if($Params{EmailID} != "")
{
$querystr = "Select Email From Contacts where Id=\\"$Params{EmailID}\\"";
my $sth=$dbh->query($querystr) or die $Mysql::db_errstr;
if (!defined($sth))
%Email = $sth->fetchhash;
require MIME::Lite;
$msg = MIME::Lite->new(
From =>\'tpp@company.utk.ru\',
To =>$Email{Email},
Subject =>\'Тех поддержка\',
Type => \'multipart/related\');
$msg->attach(
Type =>\'text/plain; charset=KOI8-R\',
Data =>\'Тип проблемы: \'.$Params{Problem}.\'\\n Описание проблемы:\'. $Params{Description}.\' \\n
Дата:\'. $SDate
);
$msg->send(\'smtp\', \'212.220.44.254\', Timeout=>60);
}
{
require MIME::Lite;
$msg = MIME::Lite->new(
From =>\'tpp@company.utk.ru\',
To =>$Params{Email},
Subject =>\'Тех поддержка\',
Type => \'multipart/related\');
$msg->attach(
Type =>\'text/plain; charset=KOI8-R\',
Data =>\'Тип проблемы: \'.$Params{Problem}.\'\\n Описание проблемы:\'. $Params{Description}.\' \\n
Дата:\'. $SDate
);
$msg->send(\'smtp\', \'212.220.44.254\', Timeout=>60);
print "<form name=\\"callprop\\" action=\\"test.pl\\" method=\\"GET\\">\\n";
if ($Params{DestinationID}==$arr{Id}) {
}else {
print "<option value=\'$arr{Id}\'>$arr{Phone} $arr{DataText}</option>";
}
if ($Params{DestinationID}==$arr{Id}) {
print "<option selected value=\'$arr{Id}\'>$arr{Email} $arr{DataText}</option>";
}else {
print "<option value=\'$arr{Id}\'>$arr{Email} $arr{DataText}</option>";
}
}
print "</select>
print "Тип проблемы :
print "</select>
print <<M1;
<script type="text/javascript">
$i++;
for ($j=0; $j<$i;$j++) {
$querystr="select * from Cause where CategoryID=\\"$Categor[$j]\\"";
%prob=$sth->fetchhash;
print "[\\"$Categor[$j]|$prob{CauseID}|$prob{CauseText}\\"";
while (%prob=$sth->fetchhash) {
print ",\\"$Categor[$j]|$prob{CauseID}|$prob{CauseText}\\"";
print "] \\n";
alert(problem[id][i].split(|)[1])
document.callprop.problem.options[document.callprop.Problem.options.length]=new option(problem[id][i].split(|)[1],problem[id][i].split(|)[2],false,false)
}
</H1></TD>
commander:
http://msdn.microsoft.com/library/d...typedarrays.asp
my $doc = shift;
my $fields = shift;
my $cData= $doc->getCData();
my $dbh = $common->dbConnect(30);
my $DogName = $cData->{10004374};
my $sth = $dbh->prepare("SELECT DogName FROM Dogs Where DogName=\\"$DogName\\"");
$sth->execute;
if($num > 0){
return {
message => "Такой договор уже существует введите другой.",
is_error => 1,
fix_type =>\'replace\',
fields => [10004374],
}
}
else{return {};}