MatthewV has asked for the wisdom of the Perl Monks concerning the following question:
#!C:\Perl\bin\perl.exe use strict; use DBI; use CGI qw~:standard~; print "Content-type: text/html\n\n"; my ($DBH, $STH, @Address, $Contact); $Contact = param('Contact'); $DBH = DBI -> connect ('dbi:ODBC:SQLServer', ' ', ' ') or die "$DBI::e +rrstr"; $STH = $DBH -> prepare (qq~select ContactAddress from dbo.ContactAddre +ss where ID = '$Contact'~) or die "$DBI::errstr"; $STH -> execute or die "$DBI::errstr"; @Address = $STH -> fetchrow_array(); $DBH -> disconnect; print "$Contact"; print qq~<a href="mailto:$Address[0]>$Address[0]</a>~;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Grabing post data via SSI?
by ig (Vicar) on Sep 01, 2009 at 00:46 UTC | |
by MatthewV (Acolyte) on Sep 01, 2009 at 01:43 UTC | |
|
Re: Grabing post data via SSI?
by Your Mother (Archbishop) on Sep 01, 2009 at 02:20 UTC | |
|
Re: Grabing post data via SSI?
by Anonymous Monk on Sep 01, 2009 at 00:31 UTC | |
by MatthewV (Acolyte) on Sep 01, 2009 at 00:41 UTC | |
by Anonymous Monk on Sep 01, 2009 at 01:23 UTC |