%@ LANGUAGE = PerlScript %><% use Win32::ADO; use Win32::ASP qw(:strict); use Win32::ASP qw/SetCookie/; use strict; $Response->{Buffer} = 1; use constant adCmdStoredProc => 0x0004; use constant adInteger => 3; use constant adVarChar => 200; use constant adParamOutput => 0x0002; use constant adParamInput => 0x0001; use constant adOpenForwardOnly => 0; use constant adOpenDynamic => 2; use constant adOpenStatic => 3; use constant adLockOptimistic => 3; $Response->{Buffer} = 1; ### Read Application Variables ### my $mySQL = $Application->Contents('Connection'); my $MyConn = $Server->CreateObject("ADODB.Connection"); $MyConn->Open($mySQL); my $ProductID = $Request->QueryString("ProductID")->Item(1); my $Page = $Request->QueryString("Page")->Item(1); my $Category = $Request->QueryString("Category")->Item(1); &ShowPics if ($ProductID > 0 && $Page > 0 && $Category > 0); $Response->Redirect("../"); exit; sub ShowPics { my $IntPicQTY; my $AddRS = $MyConn->Execute("SELECT ProductName FROM ProductsTable WHERE ProductID = $ProductID"); my $ProductTitle = $AddRS->Fields("ProductName")->Value; $AddRS->Close; my $AddRS = $MyConn->Execute("SELECT PictureFile FROM AdditionalPics WHERE ProductID = $ProductID"); #my $rsInt = $Server->CreateObject("ADODB.Recordset"); #$rsInt->Open("SELECT * FROM InteriorPics WHERE RVID = $RVID", $MyConn, adOpenStatic, adLockOptimistic); &IMGHeader; $Response->Write("
<%
$Response->Write("
$ProductTitle - Additional Pictures\n"); %>
|
HOME
<%=$Application->Contents('Copyright')%>
E-Mail: <%=$Application->Contents('Email')%>
Produced by 1st Internet Resources