How to insert "class=" inside GetImage script in ASP?

Dear EE experts,

We would like to ask for tech support on how to add or insert the class type inside our ASP script...
We would like to add this class="lytebox" , so that when user clicks the image, it will be something like facebook style, float image style...

But the idea would still be the same, if the user loggedin = TRUE, then user would be able to click the image.
At this moment, when user logs in, then click the image, it opens its bigger image, but not floating style like facebook...
We're trying to use the idea from lytebox.

Thank you & hope to hear soon...
<table width="78%" border="0" cellspacing="3" cellpadding="1">
      <% dim iRow, DebugMode
      iRow=0
    DebugMode = false
      Do Until rsProducts.EOF 
      image1 = GetImagePath(1)
      image2 = GetImagePath(2)
      image3 = GetImagePath(3)
      image4 = GetImagePath(4)
      image5 = GetImagePath(5)
      image6 = GetImagePath(6)
      product_name = rsProducts("product_name")
      download1 = iif(rsProducts("download1")&""="","",rsProducts("path_download") & "" & rsProducts("download1"))
                        
       if(download1 & ""= "") then
            download1 = rsProducts("product_file")
            if(download1&""<>"" ) then
				download1=download1
                'download1="photo/"&download1
            end if
      end if
      download2 = rsProducts("path_download") & rsProducts("download2")
       download3 = rsProducts("path_download") & rsProducts("download3")
      download4 = rsProducts("path_download") & rsProducts("download4")                         
      download5 = rsProducts("path_download") & rsProducts("download5")      
         if DebugMode = true      then
        response.write("<tr><td colspan=""6"">" & image1 & "<br/>" &image2 & "<br/>" &image3 & "<br/>" &image4 & "<br/>" &image5 & "<br/>" &image6 & "</td></tr>")
    end if
      %>
    <tr>
          <td style="background-color:#FFFFFF;border-color:#999999;text-align:left;vertical-align:top;" colspan="6">
            <b><%= product_name%></b>
        </td>
    </tr>
      <tr>
        <%= GetImage(Image1,download1,product_name)%>
        <%= GetImage(Image2,download2,product_name)%>
            <%= GetImage(Image3,download3,product_name)%>
            <%= GetImage(Image4,download4,product_name)%>
            <%= GetImage(Image5,download5,product_name)%>
            <%= GetImage(Image6,download5,product_name)%>
      </tr>
   <%
      iRow = iRow + 1
      if iRow mod 5 = 0 then ' let say you want to add empty line after 5 rows %>
      <tr><td colspan="6" bgcolor="#FFFFFF"></td></tr>
      <%end if
      rsProducts.MoveNext()
Loop

Function iif(i,j,k)
      If i Then iif = j Else iif = k
End Function

Function GetImagePath(ImageIndex)
    GetImagePath = iif(rsProducts("image"&ImageIndex)&""="","",rsProducts("path_image") & rsProducts("image"&ImageIndex))
End Function

Function GetImage(Image,download,productname)
      dim RV, bGenerateLink
      RV = "<td align=""center"" bordercolor=""#000000"" bgcolor=""#FFFFFF"">"
    bGenerateLink = false
      if Trim(Image & "") <>"" then
               bGenerateLink = (download&""<>"") and Session("loggedIn") = true
            If bGenerateLink  Then
                  RV = RV & "<a href=""" & Replace(download, "DOWNLOAD", "download") & """>"
                 'RV = RV & "<a href=""" & Replace(download, "DOWNLOAD", "download") & """>"
            End If
            RV = RV & "<img src=""" & image & """ alt=""" & Server.HTMLEncode(productname) &""" style=""border:0px;""/>"
           'RV = RV & "<img src=""" & image & """ alt=""" & Server.HTMLEncode(productname) &""" style=""border:0px;""/>"
            If bGenerateLink  Then
                  RV = RV & "</a>"
            End If
      end if
      GetImage = RV & "</td>"
End Function
%>

Open in new window

Stiebel EltronAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

EyalCommented:
Stiebel EltronAuthor Commented:
Hi there Eyal! Is it for free? I think some of it are not...
We prefer #10 or #17, the Pirobox...
EyalCommented:
both options you mentioned are free

select one of them so we can continue

and post all page code here so I can make the modifications
OWASP: Threats Fundamentals

Learn the top ten threats that are present in modern web-application development and how to protect your business from them.

Stiebel EltronAuthor Commented:
#17 is fine. Thank you!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Set connectString = Server.CreateObject("ADODB.Connection")
connectString.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath ("..\asia2\photo\products_asia.mdb") & ";"
connectString.Open

SeriesID = request.QueryString("SeriesID")

Set sqlContent = CreateObject("ADODB.Command")
sqlContent.ActiveConnection=connectString
sqlContent.Prepared = true

sqlContent.commandtext = "SELECT products.ID, products.seriesid, products.product_name, products.path_image, products.image1, products.image2, products.image3, products.image4, products.image5, products.image6, products.path_download, products.download1, products.download2, products.download3, products.download4, products.download5, products.product_file, products.updateby, products.updatedate, series.typeid, series.categoryid, series.brandid, series.series_name FROM products INNER JOIN series ON products.seriesid = series.seriesid WHERE products.seriesid=?"

sqlContent.Parameters.Append sqlContent.CreateParameter("@seriesid", 3, 1, , SeriesID)
Set rsProducts = sqlContent.Execute
if not rsProducts.eof then
series_name = rsProducts("series_name")
end if
%>

<!--<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>

<meta name="Author" content="IT" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />

<meta name="GENERATOR" content="Mozilla/4.7 [en] (Win98; I) [Netscape]" />


<title>..:: Stiebel Eltron's iPhoto Stock Gallery - Powered by STE IT Dept. ::..</title>
<style type="text/css">
<!--
	a
 	{
  		color:#000080;
		font-family:verdana;
		text-decoration:none;
		font-size:12px
	}
	
	
	a:active
 	{
  		color:red;

	}

	a:hover
 	{
  		color:#FF0000;
		text-decoration:none;
		cursor:crosshair;
	}
		
	table
	{
		font-family:verdana;
	}
	
	td
	{
		font-family:verdana;
		font-size:10e;
	}

	.b
	{
		font-color:#0A0EB7;
	}		

-->
</style>

<!--date-->
<script type="text/javascript">

<!-- Begin
dayName = new Array("", "¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿", "¿¿¿¿¿¿¿¿", "¿¿¿¿¿", "¿¿¿¿¿", "¿¿¿¿¿¿¿")
monName = new Array("¿¿¿¿¿¿", "¿¿¿¿¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿")
now = new Date
//  End -->
</script>

<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>

</head>

<body bgproperties="fixed" bgcolor="#000000" onload="javascript:startmenu()">
<table width="760" border="0" cellspacing="3" cellpadding="1">
  <tr>
    <td><img src="IMG/logo_res.jpg" alt="STIEBEL ELTRON" /></td>
    <td valign="top" bgcolor="#666666"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="548" height="197">
      <param name="movie" value="homeintro20.swf" />
      <param name="quality" value="high" />
      <param name="wmode" value="opaque" />
      <embed src="homeintro20.swf" quality="high" wmode="opaque" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="548" height="197"></embed>
    </object></td>
    <td><img src="IMG/white_square.png" alt="STIEBEL ELTRON" /></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td align="right" bgcolor="#999999"><font face="Verdana, Geneva, sans-serif" color="#ffffff">
    <%
   '// If user is logged in show name and logout link
   If Session("loggedin") = true Then
      Response.Write "Welcome: " & Session("name")
      Response.Write "<br /><a href=""../asia2/login2/logout.asp"">Logout</a>"
   Else
      Response.Write "<a href=""ste-iphoto-login.asp"" title=""CLICK TO LOGIN"">REGISTERED USERS</a>"
   End If
	%>&nbsp;
	</td>
    <td bgcolor="#666666" align="center">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    
    <td align="left" bordercolor="#999999" bgcolor="#FFFFFF">
    » <img src="IMG/imgfolder.gif" alt="" />&nbsp;
       <%if rsProducts.eof then
	response.Write"STE Shower Units - <br><br><center>Sorry, there is no product images for that ID...</center>"
	else%>
    <a href="javaScript:menu0func()">STE Shower Units - <b><font face="verdana" size="+1"> - 
	<%=series_name%></font></b></a><%end if%>
	</td>
	<td bgcolor="#999999" align="center">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    
	<td align="left" bordercolor="#999999" bgcolor="#FFFFFF">
<table width="78%" border="0" cellspacing="3" cellpadding="1">
      <% dim iRow, DebugMode
      iRow=0
    DebugMode = false
      Do Until rsProducts.EOF 
      image1 = GetImagePath(1)
      image2 = GetImagePath(2)
      image3 = GetImagePath(3)
      image4 = GetImagePath(4)
      image5 = GetImagePath(5)
      image6 = GetImagePath(6)
      product_name = rsProducts("product_name")
      download1 = iif(rsProducts("download1")&""="","",rsProducts("path_download") & "" & rsProducts("download1"))
                        
       if(download1 & ""= "") then
            download1 = rsProducts("product_file")
            if(download1&""<>"" ) then
				download1=download1
                'download1="photo/"&download1
            end if
      end if
      download2 = rsProducts("path_download") & rsProducts("download2")
       download3 = rsProducts("path_download") & rsProducts("download3")
      download4 = rsProducts("path_download") & rsProducts("download4")                         
      download5 = rsProducts("path_download") & rsProducts("download5")      
         if DebugMode = true      then
        response.write("<tr><td colspan=""6"">" & image1 & "<br/>" &image2 & "<br/>" &image3 & "<br/>" &image4 & "<br/>" &image5 & "<br/>" &image6 & "</td></tr>")
    end if
      %>
    <tr>
          <td style="background-color:#FFFFFF;border-color:#999999;text-align:left;vertical-align:top;" colspan="6">
            <b><%= product_name%></b>
        </td>
    </tr>
      <tr>
        <%= GetImage(Image1,download1,product_name)%>
        <%= GetImage(Image2,download2,product_name)%>
            <%= GetImage(Image3,download3,product_name)%>
            <%= GetImage(Image4,download4,product_name)%>
            <%= GetImage(Image5,download5,product_name)%>
            <%= GetImage(Image6,download5,product_name)%>
      </tr>
   <%
      iRow = iRow + 1
      if iRow mod 5 = 0 then ' let say you want to add empty line after 5 rows %>
      <tr><td colspan="6" bgcolor="#FFFFFF"></td></tr>
      <%end if
      rsProducts.MoveNext()
Loop

Function iif(i,j,k)
      If i Then iif = j Else iif = k
End Function

Function GetImagePath(ImageIndex)
    GetImagePath = iif(rsProducts("image"&ImageIndex)&""="","",rsProducts("path_image") & rsProducts("image"&ImageIndex))
End Function

Function GetImage(Image,download,productname)
      dim RV, bGenerateLink
      RV = "<td align=""center"" bordercolor=""#000000"" bgcolor=""#FFFFFF"">"
    bGenerateLink = false
      if Trim(Image & "") <>"" then
               bGenerateLink = (download&""<>"") and Session("loggedIn") = true
            If bGenerateLink  Then
                  RV = RV & "<a href=""" & Replace(download, "DOWNLOAD", "download") & """>"
                 'RV = RV & "<a href=""" & Replace(download, "DOWNLOAD", "download") & """>"
            End If
            RV = RV & "<img src=""" & image & """ alt=""" & Server.HTMLEncode(productname) &""" style=""border:0px;""/>"
           'RV = RV & "<img src=""" & image & """ alt=""" & Server.HTMLEncode(productname) &""" style=""border:0px;""/>"
            If bGenerateLink  Then
                  RV = RV & "</a>"
            End If
      end if
      GetImage = RV & "</td>"
End Function
%>        			

  		<tr>
        	<td colspan="5">
            	<font size="-10e" face="verdana"><b>
                <%
   					If Session("loggedIn") = true Then
   					Response.Write "Please click the thumbnails to grab its original size..."
   					End If
	   			%>
                </b></font>
            </td>
        </tr>
	</table>
    </td>
	<td bgcolor="#999999" align="center">&nbsp;</td>
  </tr>
  <tr>
  	<td bgcolor="#000000">&nbsp;
    	
    </td>
  	<td bgcolor="#666666" colspan="2" align="left">
    	<a href = "javascript:history.back()"><font size="0.5e">&nbsp;BACK</font></a>
    </td>
  </tr>
  <tr>
  	<td bgcolor="#000000">&nbsp;
    	
    </td>
  	<td align="center" bgcolor="#999999" colspan="2">
    	<a href = "http://www.cssasia.info/iphoto/"><font size="0.5e">BACK TO MAIN&nbsp;<img src="IMG/base.gif" alt="BACK TO MAIN PAGE" border="0" /></font></a>
    </td>
  </tr>  
  
</table>
</body>
</html>

Open in new window

EyalCommented:
you have JQuery library somewhere in your project? if not... where it will be located?
EyalCommented:
by the way this worth alot more than 500 points
Stiebel EltronAuthor Commented:
Refer to your ID: 36914843, I don't have any yet. About to add.

Refer to your ID: 36914846, how can I give you more than 500 points? :-)
EyalCommented:
when you open a question you can select how many points it will worth 500 is the default :)
Stiebel EltronAuthor Commented:
So, you mean I can declare how many points I want to give to an expert? Let's say 1000 points, is possible?
Stiebel EltronAuthor Commented:
Ok, I got it, on how to declare more points... Next time, I'll do it!

:-)
EyalCommented:
regarding the points yes  points

download library link... http://www.pirolab.it/public/demo2.php

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Set connectString = Server.CreateObject("ADODB.Connection")
connectString.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath ("..\asia2\photo\products_asia.mdb") & ";"
connectString.Open

SeriesID = request.QueryString("SeriesID")

Set sqlContent = CreateObject("ADODB.Command")
sqlContent.ActiveConnection=connectString
sqlContent.Prepared = true

sqlContent.commandtext = "SELECT products.ID, products.seriesid, products.product_name, products.path_image, products.image1, products.image2, products.image3, products.image4, products.image5, products.image6, products.path_download, products.download1, products.download2, products.download3, products.download4, products.download5, products.product_file, products.updateby, products.updatedate, series.typeid, series.categoryid, series.brandid, series.series_name FROM products INNER JOIN series ON products.seriesid = series.seriesid WHERE products.seriesid=?"

sqlContent.Parameters.Append sqlContent.CreateParameter("@seriesid", 3, 1, , SeriesID)
Set rsProducts = sqlContent.Execute
if not rsProducts.eof then
series_name = rsProducts("series_name")
end if
%>

<!--<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>

<meta name="Author" content="IT" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />

<meta name="GENERATOR" content="Mozilla/4.7 [en] (Win98; I) [Netscape]" />


<title>..:: Stiebel Eltron's iPhoto Stock Gallery - Powered by STE IT Dept. ::..</title>
<style type="text/css">
<!--
	a
 	{
  		color:#000080;
		font-family:verdana;
		text-decoration:none;
		font-size:12px
	}
	
	
	a:active
 	{
  		color:red;

	}

	a:hover
 	{
  		color:#FF0000;
		text-decoration:none;
		cursor:crosshair;
	}
		
	table
	{
		font-family:verdana;
	}
	
	td
	{
		font-family:verdana;
		font-size:10e;
	}

	.b
	{
		font-color:#0A0EB7;
	}		

-->
</style>

<!--date-->
<script type="text/javascript">

<!-- Begin
dayName = new Array("", "¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿", "¿¿¿¿¿¿¿¿", "¿¿¿¿¿", "¿¿¿¿¿", "¿¿¿¿¿¿¿")
monName = new Array("¿¿¿¿¿¿", "¿¿¿¿¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿", "¿¿¿¿¿¿", "¿¿¿¿¿¿¿¿¿", "¿¿¿¿¿¿¿")
now = new Date
//  End -->
</script>

<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
 
<link href="css_pirobox/demo1/style.css" media="screen" title="shadow" rel="stylesheet" type="text/css" />
<!--
<link href="css_pirobox/demo2/style.css" media="screen" title="white" rel="stylesheet" type="text/css" />
<link href="css_pirobox/demo3/style.css" media="screen" title="black" rel="stylesheet" type="text/css" />
<link href="css_pirobox/demo4/style.css" media="screen" title="black" rel="stylesheet" type="text/css" />
<link href="css_pirobox/demo5/style.css" media="screen" title="black" rel="stylesheet" type="text/css" />
-->
<script type="text/javascript" src="js/jquery.min.js"></script>
<script type="text/javascript" src="js/pirobox.js"></script>
 
<!-- or use minified version  "pirobox_extended_min.js"  -->
 
<script type="text/javascript">
$().piroBox({
      my_speed: 300, //animation speed
      bg_alpha: 0.5, //background opacity
      slideShow : 'true', // true == slideshow on, false == slideshow off
      slideSpeed : 3, //slideshow
      close_all : '.piro_close' // add class .piro_overlay(with comma)if you want overlay click close piroBox
      });
});
</script>
</head>

<body bgproperties="fixed" bgcolor="#000000" onload="javascript:startmenu()">
<table width="760" border="0" cellspacing="3" cellpadding="1">
  <tr>
    <td><img src="IMG/logo_res.jpg" alt="STIEBEL ELTRON" /></td>
    <td valign="top" bgcolor="#666666"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0" width="548" height="197">
      <param name="movie" value="homeintro20.swf" />
      <param name="quality" value="high" />
      <param name="wmode" value="opaque" />
      <embed src="homeintro20.swf" quality="high" wmode="opaque" pluginspage="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="548" height="197"></embed>
    </object></td>
    <td><img src="IMG/white_square.png" alt="STIEBEL ELTRON" /></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td align="right" bgcolor="#999999"><font face="Verdana, Geneva, sans-serif" color="#ffffff">
    <%
   '// If user is logged in show name and logout link
   If Session("loggedin") = true Then
      Response.Write "Welcome: " & Session("name")
      Response.Write "<br /><a href=""../asia2/login2/logout.asp"">Logout</a>"
   Else
      Response.Write "<a href=""ste-iphoto-login.asp"" title=""CLICK TO LOGIN"">REGISTERED USERS</a>"
   End If
	%>&nbsp;
	</td>
    <td bgcolor="#666666" align="center">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    
    <td align="left" bordercolor="#999999" bgcolor="#FFFFFF">
    » <img src="IMG/imgfolder.gif" alt="" />&nbsp;
       <%if rsProducts.eof then
	response.Write"STE Shower Units - <br><br><center>Sorry, there is no product images for that ID...</center>"
	else%>
    <a href="javaScript:menu0func()">STE Shower Units - <b><font face="verdana" size="+1"> - 
	<%=series_name%></font></b></a><%end if%>
	</td>
	<td bgcolor="#999999" align="center">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    
	<td align="left" bordercolor="#999999" bgcolor="#FFFFFF">
<table width="78%" border="0" cellspacing="3" cellpadding="1">
      <% dim iRow, DebugMode
      iRow=0
    DebugMode = false
      Do Until rsProducts.EOF 
      image1 = GetImagePath(1)
      image2 = GetImagePath(2)
      image3 = GetImagePath(3)
      image4 = GetImagePath(4)
      image5 = GetImagePath(5)
      image6 = GetImagePath(6)
      product_name = rsProducts("product_name")
      download1 = iif(rsProducts("download1")&""="","",rsProducts("path_download") & "" & rsProducts("download1"))
                        
       if(download1 & ""= "") then
            download1 = rsProducts("product_file")
            if(download1&""<>"" ) then
				download1=download1
                'download1="photo/"&download1
            end if
      end if
      download2 = rsProducts("path_download") & rsProducts("download2")
       download3 = rsProducts("path_download") & rsProducts("download3")
      download4 = rsProducts("path_download") & rsProducts("download4")                         
      download5 = rsProducts("path_download") & rsProducts("download5")      
         if DebugMode = true      then
        response.write("<tr><td colspan=""6"">" & image1 & "<br/>" &image2 & "<br/>" &image3 & "<br/>" &image4 & "<br/>" &image5 & "<br/>" &image6 & "</td></tr>")
    end if
      %>
    <tr>
          <td style="background-color:#FFFFFF;border-color:#999999;text-align:left;vertical-align:top;" colspan="6">
            <b><%= product_name%></b>
        </td>
    </tr>
      <tr>
        <%= GetImage(Image1,download1,product_name)%>
        <%= GetImage(Image2,download2,product_name)%>
            <%= GetImage(Image3,download3,product_name)%>
            <%= GetImage(Image4,download4,product_name)%>
            <%= GetImage(Image5,download5,product_name)%>
            <%= GetImage(Image6,download5,product_name)%>
      </tr>
   <%
      iRow = iRow + 1
      if iRow mod 5 = 0 then ' let say you want to add empty line after 5 rows %>
      <tr><td colspan="6" bgcolor="#FFFFFF"></td></tr>
      <%end if
      rsProducts.MoveNext()
Loop

Function iif(i,j,k)
      If i Then iif = j Else iif = k
End Function

Function GetImagePath(ImageIndex)
    GetImagePath = iif(rsProducts("image"&ImageIndex)&""="","",rsProducts("path_image") & rsProducts("image"&ImageIndex))
End Function

Function GetImage(Image,download,productname)
      dim RV, bGenerateLink
      RV = "<td align=""center"" bordercolor=""#000000"" bgcolor=""#FFFFFF"">"
    bGenerateLink = false
      if Trim(Image & "") <>"" then
               bGenerateLink = (download&""<>"") and Session("loggedIn") = true
            If bGenerateLink  Then
                  RV = RV & "<a href=""" & Replace(download, "DOWNLOAD", "download") & """ class=""pirobox_" & iRow & """>"
            End If
            RV = RV & "<img src=""" & image & """ alt=""" & Server.HTMLEncode(productname) &""" style=""border:0px;""/>"
            If bGenerateLink  Then
                  RV = RV & "</a>"
            End If
      end if
      GetImage = RV & "</td>"
End Function
%>        			

  		<tr>
        	<td colspan="5">
            	<font size="-10e" face="verdana"><b>
                <%
   					If Session("loggedIn") = true Then
   					Response.Write "Please click the thumbnails to grab its original size..."
   					End If
	   			%>
                </b></font>
            </td>
        </tr>
	</table>
    </td>
	<td bgcolor="#999999" align="center">&nbsp;</td>
  </tr>
  <tr>
  	<td bgcolor="#000000">&nbsp;
    	
    </td>
  	<td bgcolor="#666666" colspan="2" align="left">
    	<a href = "javascript:history.back()"><font size="0.5e">&nbsp;BACK</font></a>
    </td>
  </tr>
  <tr>
  	<td bgcolor="#000000">&nbsp;
    	
    </td>
  	<td align="center" bgcolor="#999999" colspan="2">
    	<a href = "http://www.cssasia.info/iphoto/"><font size="0.5e">BACK TO MAIN&nbsp;<img src="IMG/base.gif" alt="BACK TO MAIN PAGE" border="0" /></font></a>
    </td>
  </tr>  
  
</table>
</body>
</html>

Open in new window


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Stiebel EltronAuthor Commented:
Did u change something from the codes? Could u please advise which lines? And what should I do with the demo from pirolab? Do I need to keep it as well or you just showing it?

Please advise...
EyalCommented:
sure, I changed lines: 92-113, 225
Stiebel EltronAuthor Commented:
Why does line #112 is having  a syntax error? Code hinting may not work until fix this error...

It shows after I copied it into my Dreamweaver...
Stiebel EltronAuthor Commented:
From line #225, kindly advise if this is correct: class=""pirobox_"?

Because I'm trying the script that you add, but it's not working...
EyalCommented:
sorry missed a line

$(document).ready(function(){
$().piroBox({ <- you have this line already

what error do you get in line #225?
EyalCommented:
please send me a screenshot of the console panel of firebug (this is the most easy way to see client side problems)

or provide me a link (the best option)
Stiebel EltronAuthor Commented:
Sorry for the late response, had meeting... Anyway, it's working now, just that missed line :-)

I'll give more points to my upcoming thread...

What is the maximum Points that can give to an expert?
Stiebel EltronAuthor Commented:
Great!
EyalCommented:
happy it works for you:)

have no clue, I don't ask questions only answer
Stiebel EltronAuthor Commented:
Lol... ok, wait for my next thread to open...
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
ASP

From novice to tech pro — start learning today.