Opened by satanica1976 at 2004-08-16 17:47
User since
2004-08-16
17 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-08-16
17 Artikel
BenutzerIn
so habe bisher folgendes skript dazu verfasst aber irgendwie muss da noch der wurm drin sein. und wie muss ich das verfassen das diese rechnung als textdatei entsteht??
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#d:/perl/bin/perl -w
use strict;
use CGI qw(standard);
use DBI;
my $dbh = DBI->connect('DBI:ODBC:db1');
my $sqlstatement=qq§SELECT * FROM table1 INNER JOIN table2 ON table1.kundennummer =
table2.kundennummer WHERE kundennummer = 'VomUserEingegebeneKundennummer'
my $sth = $dbh->prepare($sqlstatement);
$sth->execute \\
die "Could not execute SQL statement ... maybe invalid?";
print<<HERE_TEXT;
Content-type:text/html
<HTML>
<HEAD>
<TITLE>Antwort</TITLE>
</HEAD>
<BODY>
<H3>Treffer:</H3>
<HR>
HERE_TEXT
my @ row;
while [row=$sth->fetchow_array)
{print "<P>@row</P>\n"}
print qq§</BODY<\n</HTML>§
Mein Name ist Hase.......