| Home | Forums | Reviews | Guides | Newsgroups | Register | Search |
 |
| Thread Tools |
|
Carl Gilbert
Guest
Posts: n/a
|
Hi
I have some ASP pages that I need to run directly from a CD so I was thinking of converting them to HTA. The only problem is I know nothing about HTA. The pages make up a portfolio that I plan to put onto CD. It consists of a series of pages with thumbnails. A thumbnail will either link off to another page with thumbnails, display an image or play a movie. I am mainly using loops to display the thumbnails and build up a URL to link off to the apprioparte image. I have attached my main page at the bottom of this post that uses the query string to build the page. The page is linked to using URLs as follows: <A href="showimage.asp?g=2&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> <A href="showimage.asp?g=3&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> <A href="showimage.asp?g=4&sg=1&sgmax=1&i=0&imax1=14& imax2=0"> These state the group number, then the sub group number, then how many sub groups there are, next the image number and then the number of images in each sub group. The main page then test the image number. If its zero then it will show thumbnails, if its greater than zero it will show the appropriate image. There is also some additional code to show/hide next and previous buttons to allow the user to navigate through the images. Note: The main page references itself and just updates based on the new image number. So, can a similar thing be achieved using HTA and still allow multiple pages running from a CD and if so, how can it be done based on the attached code? Regards, Carl Gilbert ------------------------------*-------- CODE ------------------------------*-------- <% spacer = "images\misc\spacer.gif" filler = "images\misc\filler.gif" line_end = "images\misc\line_end.gif" btn_previous = "images\misc\previous.gif" btn_next = "images\misc\next.gif" btn_contents = "images\misc\contents.gif" btn_summary = "images\misc\summary.gif" int_g = request.QueryString("g") int_sg = request.QueryString("sg") int_sgmax = request.QueryString("sgmax") int_i = request.QueryString("i") int_imax1 = request.QueryString("imax1") int_imax2 = request.QueryString("imax2") int_g = CInt(int_g) int_sg = CInt(int_sg) int_sgmax = CInt(int_sgmax) int_i = CInt(int_i) int_imax1 = CInt(int_imax1) int_imax2 = CInt(int_imax2) 'set the max number of images based on the sub group If int_sg = 1 Then int_mymax = int_imax1 Else int_mymax = int_imax2 End If 'b1 = previous 'b2 = next 'b3 = contents 'b4 = summary If int_i = 0 Then 'we are dealing with a group 'set the previous button If int_sg > 1 Then b1 = 80 Else b1 = 0 'set the next button If Not int_sg = int_sgmax Then s1 = 10 Else s1 = 0 If Not int_sg = int_sgmax Then b2 = 80 Else b2 = 0 Else 'We are dealing with an image 'set the previous button If int_i > 1 Then b1 = 80 Else b1 = 0 'set the next button If Not int_i = int_mymax Then s1 = 10 Else s1 = 0 If Not int_i = int_mymax Then b2 = 80 Else b2 = 0 End If 'set the contents button If Not int_i = 0 Then s2 = 10 Else s2 = 0 If Not int_i = 0 Then b3 = 80 Else b3 = 0 'set the summary button If Not int_g = 0 Then s3 = 10 Else s3 = 0 If Not int_g = 0 Then b4 = 80 Else b4 = 0 h1 = 620 - (b1+s1+b2+s2+b3+s3+b4) %> <HTML> <HEAD> <TITLE>ShowImage</TITLE> <META name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> <META name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> <META name=vs_defaultClientScript content="JavaScript"> <META name=vs_targetSchema content="http://schemas.microsoft.com/i*ntellisense/ie3-2nav3-0"> </HEAD> <BODY ms_positioning="FlowLayout"> <FORM id="Form1" method="post" runat="server"> <TABLE width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" id="Table1"> <TR> <TD> <% If int_i = 0 Then %> <TABLE width="800" height="533" border="0" align="center" cellpadding="0" cellspacing="0" id="Table2" STYLE="border: 2 ridge #800000"> <% Else %> <TABLE width="800" height="533" border="0" align="center" cellpadding="0" cellspacing="0" id="Table3" STYLE="background-image: url(images\bulk\g<%=int_g%>sg<*%=int_sg%>i<%=int_i %>.jpg); border: 2 ridge #800000"> <% End If %> <TR> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> <TD valign=bottom> <IMG src="images\misc\port.gif" height="25" width="130"> </TD> </TD> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> </TR> <!-- DIVIDER LINE --> <TR> <TD height="1"></TD> <TD><TABLE border="0" cellpadding="0" cellspacing="0" height="1"> <TR> <TD height="1"><IMG src="<%=line_end%>" height="5" width="1"></TD> <TD height="1"><IMG src="<%=filler%>" height="5" width="618"></TD> <TD height="1"><IMG src="<%=line_end%>" height="5" width="1"></TD> </TR> </TABLE></TD> <TD height="1"></TD> </TR> <!-- BUTTON ROW --> <TR> <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> <TD><TABLE width="620" height="56" border="0" cellpadding="0" cellspacing="0"> <TD valign=top width=<%=h1%>> <SPAN style='font-size:14.0pt;font-f*amily:"Courier New"'> <%If int_g = 1 Then %> modelmaking <%Else%> artwork <%End If%> <I>#<%=int_sg%></I> </SPAN> </TD> <!-- PREVIOUS ------------------------------*--------------> <TD valign=middle> <% If Not Clng(b1)=0 Then%> <% If int_i = 0 Then 'Test to see if we are showing images or thumbs to put the correct link in the button %> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg - 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> <!--Thumb link--> <IMG src="<%=btn_previous%>" height="30" width="80" border="0"> </A> <% Else %> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=int_i - 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> <IMG src="<%=btn_previous%>" height="30" width="80" border="0"> </A> <%End If %> <%End If%> </TD> <% If Not Clng(s1)=0 Then%> <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> <%End If%> <!-- NEXT ------------------------------*--------------> <TD valign=middle> <% If Not Clng(b2)=0 Then%> <% If int_i = 0 Then 'Test to see if we are showing images or thumbs to put the correct link in the button %> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg + 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> <!--Thumb link--> <IMG src="<%=btn_next%>" height="30" width="80" border="0"> </A> <% Else %> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=int_i + 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> <IMG src="<%=btn_next%>" height="30" width="80" border="0"> </A> <%End If %> <%End If%> </TD> <% If Not Clng(s2)=0 Then%> <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> <%End If%> <!-- CONTENTS ------------------------------*--------------> <TD valign=middle> <% If Not Clng(b3)=0 Then%> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=0&imax1=<%=int_imax*1%>&ima x2=<%=int_imax2%>"> <IMG src="<%=btn_contents%>" height="30" width="80" border="0"> </A> <%End If%> </TD> <% If Not Clng(s3)=0 Then%> <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> <%End If%> <!-- SUMMARY ------------------------------*--------------> <TD valign=middle> <% If Not Clng(b4)=0 Then%> <A href="summarypage.asp"> <IMG src="<%=btn_summary%>" height="30" width="80" border="0"> </A> <%End If%> </TD> </TABLE> </TD> <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> </TR> <TR> <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> <TD> <% 'Test if int_i = 0. If so then show the thumbnails If int_i = 0 Then %> <!--CONTENT TABLE--> <TABLE width="620" border="0" cellpadding="0" cellspacing="0" id="Table4"> <TR> <% For x = 1 To 7 If x <= int_mymax Then %> <TD width="80" height="80"> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" width="100%" height="100%" border="0"> </A> </TD> <% Else %> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" height="100%" border="0"></TD> <% End If %> <% If Not x = 7 Then %> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> <% End If %> <% Next %> </TR> <TR><TD height="10"><IMG src="<%=spacer%>" height="10"></TD></TR> <TR> <% For x = 8 To 14 If x <= int_mymax Then %> <TD width="80" height="80"> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" width="100%" height="100%" border="0"> </A> </TD> <% Else %> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" height="100%" border="0"></TD> <% End If %> <% If Not x = 14 Then %> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> <% End If %> <% Next %> </TR> <TR> <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> </TR> <TR> <% For x = 15 To 21 If x <= int_mymax Then %> <TD width="80" height="80"> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" width="100%" height="100%" border="0"> </A> </TD> <% Else %> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" height="100%" border="0"></TD> <% End If %> <% If Not x = 21 Then %> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> <% End If %> <% Next %> </TR> <TR> <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> </TR> <TR> <% For x = 22 To 28 If x <= int_mymax Then %> <TD width="80" height="80"> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" width="100%" height="100%" border="0"> </A> </TD> <% Else %> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" height="100%" border="0"></TD> <% End If %> <% If Not x = 28 Then %> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> <% End If %> <% Next %> </TD> </TR> </TABLE> <% End If %> </TD> <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> </TR> <TR> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> <TD><IMG src="<%=spacer%>" height="61" width="620"></TD> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> </TR> </TABLE> </TD> </TR> </TABLE> </FORM> </BODY> </HTML> |
|
|
|
|
|||
|
|||
| Carl Gilbert |
|
|
|
| |
|
Kyle Peterson
Guest
Posts: n/a
|
they make products that let asp and databases run off cds
do a google search or something seems like that would be the way to go to me "Carl Gilbert" <> wrote in message news:%... > Hi > > I have some ASP pages that I need to run directly from a CD so I was > thinking of converting them to HTA. The only problem is I know nothing > about HTA. > > The pages make up a portfolio that I plan to put onto CD. It consists of a > series of pages with thumbnails. A thumbnail will either link off to > another page with thumbnails, display an image or play a movie. > > I am mainly using loops to display the thumbnails and build up a URL to > link off to the apprioparte image. I have attached my main page at the > bottom of this post that uses the query string to build the page. > The page is linked to using URLs as follows: > <A href="showimage.asp?g=2&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> > <A href="showimage.asp?g=3&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> > <A href="showimage.asp?g=4&sg=1&sgmax=1&i=0&imax1=14& imax2=0"> > > These state the group number, then the sub group number, then how many sub > groups there are, next the image number and then the number of images in > each sub group. > The main page then test the image number. If its zero then it will show > thumbnails, if its greater than zero it will show the appropriate image. > There is also some additional code to show/hide next and previous buttons > to allow the user to navigate through the images. > > Note: The main page references itself and just updates based on the new > image number. > > So, can a similar thing be achieved using HTA and still allow multiple > pages running from a CD and if so, how can it be done based on the > attached code? > > Regards, Carl Gilbert > > > > > > > ------------------------------*-------- > DE ------------------------------*-------- > > > <% > > > spacer = "images\misc\spacer.gif" > filler = "images\misc\filler.gif" > line_end = "images\misc\line_end.gif" > btn_previous = "images\misc\previous.gif" > btn_next = "images\misc\next.gif" > btn_contents = "images\misc\contents.gif" > btn_summary = "images\misc\summary.gif" > > > int_g = request.QueryString("g") > int_sg = request.QueryString("sg") > int_sgmax = request.QueryString("sgmax") > int_i = request.QueryString("i") > int_imax1 = request.QueryString("imax1") > int_imax2 = request.QueryString("imax2") > > > int_g = CInt(int_g) > int_sg = CInt(int_sg) > int_sgmax = CInt(int_sgmax) > int_i = CInt(int_i) > int_imax1 = CInt(int_imax1) > int_imax2 = CInt(int_imax2) > > > 'set the max number of images based on the sub group > If int_sg = 1 Then > int_mymax = int_imax1 > Else > int_mymax = int_imax2 > End If > > > 'b1 = previous > 'b2 = next > 'b3 = contents > 'b4 = summary > > > If int_i = 0 Then > 'we are dealing with a group > > > 'set the previous button > If int_sg > 1 Then b1 = 80 Else b1 = 0 > > > 'set the next button > If Not int_sg = int_sgmax Then s1 = 10 Else s1 = 0 > If Not int_sg = int_sgmax Then b2 = 80 Else b2 = 0 > > > Else > 'We are dealing with an image > > > 'set the previous button > If int_i > 1 Then b1 = 80 Else b1 = 0 > > > 'set the next button > If Not int_i = int_mymax Then s1 = 10 Else s1 = 0 > If Not int_i = int_mymax Then b2 = 80 Else b2 = 0 > > > End If > > > 'set the contents button > If Not int_i = 0 Then s2 = 10 Else s2 = 0 > If Not int_i = 0 Then b3 = 80 Else b3 = 0 > > > 'set the summary button > If Not int_g = 0 Then s3 = 10 Else s3 = 0 > If Not int_g = 0 Then b4 = 80 Else b4 = 0 > > > h1 = 620 - (b1+s1+b2+s2+b3+s3+b4) > > > %> > > > <HTML> > <HEAD> > <TITLE>ShowImage</TITLE> > <META name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> > <META name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> > <META name=vs_defaultClientScript content="JavaScript"> > <META name=vs_targetSchema > content="http://schemas.microsoft.com/i*ntellisense/ie3-2nav3-0"> > </HEAD> > <BODY ms_positioning="FlowLayout"> > > > <FORM id="Form1" method="post" runat="server"> > > > <TABLE width="100%" height="100%" border="0" cellspacing="0" > cellpadding="0" id="Table1"> > <TR> > <TD> > <% If int_i = 0 Then %> > > > <TABLE width="800" height="533" border="0" align="center" > cellpadding="0" cellspacing="0" id="Table2" STYLE="border: 2 ridge > #800000"> > > > <% Else %> > > > <TABLE width="800" height="533" border="0" align="center" > cellpadding="0" cellspacing="0" id="Table3" STYLE="background-image: > url(images\bulk\g<%=int_g%>sg<*%=int_sg%>i<%=int_i %>.jpg); border: 2 ridge > #800000"> > > > <% End If %> > <TR> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > <TD valign=bottom> > <IMG src="images\misc\port.gif" height="25" width="130"> > </TD> > </TD> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > </TR> > > > <!-- DIVIDER LINE --> > <TR> > <TD height="1"></TD> > <TD><TABLE border="0" cellpadding="0" cellspacing="0" height="1"> > <TR> > <TD height="1"><IMG src="<%=line_end%>" height="5" width="1"></TD> > <TD height="1"><IMG src="<%=filler%>" height="5" width="618"></TD> > <TD height="1"><IMG src="<%=line_end%>" height="5" width="1"></TD> > </TR> > </TABLE></TD> > <TD height="1"></TD> > </TR> > > > <!-- BUTTON ROW --> > > > <TR> > <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> > <TD><TABLE width="620" height="56" border="0" cellpadding="0" > cellspacing="0"> > <TD valign=top width=<%=h1%>> > <SPAN style='font-size:14.0pt;font-f*amily:"Courier New"'> > > > <%If int_g = 1 Then %> > modelmaking > <%Else%> > artwork > <%End If%> > > > <I>#<%=int_sg%></I> > > > </SPAN> > </TD> > > > <!-- PREVIOUS ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b1)=0 Then%> > > > <% If int_i = 0 Then > 'Test to see if we are showing images or thumbs to put the correct > link in the button > %> > <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg - > 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> > <!--Thumb link--> > <IMG src="<%=btn_previous%>" height="30" width="80" border="0"> > </A> > <% Else %> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=int_i > - 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> > <IMG src="<%=btn_previous%>" height="30" width="80" border="0"> > </A> > <%End If %> > > > <%End If%> > </TD> > > > <% If Not Clng(s1)=0 Then%> > <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> > <%End If%> > > > <!-- NEXT ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b2)=0 Then%> > > > <% If int_i = 0 Then > 'Test to see if we are showing images or thumbs to put the correct > link in the button > %> > <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg + > 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> > <!--Thumb link--> > <IMG src="<%=btn_next%>" height="30" width="80" border="0"> > </A> > <% Else %> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=int_i > + 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> > <IMG src="<%=btn_next%>" height="30" width="80" border="0"> > </A> > <%End If %> > > > <%End If%> > </TD> > > > <% If Not Clng(s2)=0 Then%> > <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> > <%End If%> > > > <!-- CONTENTS ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b3)=0 Then%> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=0&imax1=<%=int_imax*1%>&ima x2=<%=int_imax2%>"> > <IMG src="<%=btn_contents%>" height="30" width="80" border="0"> > </A> > <%End If%> > </TD> > > > <% If Not Clng(s3)=0 Then%> > <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> > <%End If%> > > > <!-- SUMMARY ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b4)=0 Then%> > <A href="summarypage.asp"> > <IMG src="<%=btn_summary%>" height="30" width="80" border="0"> > </A> > <%End If%> > </TD> > </TABLE> > > > </TD> > > > <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> > </TR> > > > <TR> > <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> > <TD> > > > <% 'Test if int_i = 0. If so then show the thumbnails > If int_i = 0 Then %> > > > <!--CONTENT TABLE--> > <TABLE width="620" border="0" cellpadding="0" cellspacing="0" > id="Table4"> > <TR> > > > <% For x = 1 To 7 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 7 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TR> > <TR><TD height="10"><IMG src="<%=spacer%>" height="10"></TD></TR> > <TR> > > > <% For x = 8 To 14 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 14 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TR> > <TR> > <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> > </TR> > <TR> > > > <% For x = 15 To 21 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 21 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TR> > <TR> > <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> > </TR> > <TR> > > > <% For x = 22 To 28 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%=x%>&imax1=<%=int*_imax1% >&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 28 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TD> > </TR> > > > </TABLE> > > > <% End If %> > > > </TD> > <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> > </TR> > > > <TR> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > <TD><IMG src="<%=spacer%>" height="61" width="620"></TD> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > </TR> > </TABLE> > </TD> > </TR> > </TABLE> > > > </FORM> > </BODY> > </HTML> > > |
|
|
|
|
|||
|
|
|||
| Kyle Peterson |
|
|
|
| |
|
Mark Schupp
Guest
Posts: n/a
|
Not about HTA. but about what you want to do.
http://www.aspfaq.com/show.asp?id=2443 How do I put my ASP application onto a CD-Rom? -- Mark Schupp "Carl Gilbert" <> wrote in message news:%... > Hi > > I have some ASP pages that I need to run directly from a CD so I was > thinking of converting them to HTA. The only problem is I know nothing > about HTA. > > The pages make up a portfolio that I plan to put onto CD. It consists of a > series of pages with thumbnails. A thumbnail will either link off to another > page with thumbnails, display an image or play a movie. > > I am mainly using loops to display the thumbnails and build up a URL to link > off to the apprioparte image. I have attached my main page at the bottom of > this post that uses the query string to build the page. > The page is linked to using URLs as follows: > <A href="showimage.asp?g=2&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> > <A href="showimage.asp?g=3&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> > <A href="showimage.asp?g=4&sg=1&sgmax=1&i=0&imax1=14& imax2=0"> > > These state the group number, then the sub group number, then how many sub > groups there are, next the image number and then the number of images in > each sub group. > The main page then test the image number. If its zero then it will show > thumbnails, if its greater than zero it will show the appropriate image. > There is also some additional code to show/hide next and previous buttons to > allow the user to navigate through the images. > > Note: The main page references itself and just updates based on the new > image number. > > So, can a similar thing be achieved using HTA and still allow multiple pages > running from a CD and if so, how can it be done based on the attached code? > > Regards, Carl Gilbert > > > > > > > ------------------------------*-------- > CODE ------------------------------*-------- > > > <% > > > spacer = "images\misc\spacer.gif" > filler = "images\misc\filler.gif" > line_end = "images\misc\line_end.gif" > btn_previous = "images\misc\previous.gif" > btn_next = "images\misc\next.gif" > btn_contents = "images\misc\contents.gif" > btn_summary = "images\misc\summary.gif" > > > int_g = request.QueryString("g") > int_sg = request.QueryString("sg") > int_sgmax = request.QueryString("sgmax") > int_i = request.QueryString("i") > int_imax1 = request.QueryString("imax1") > int_imax2 = request.QueryString("imax2") > > > int_g = CInt(int_g) > int_sg = CInt(int_sg) > int_sgmax = CInt(int_sgmax) > int_i = CInt(int_i) > int_imax1 = CInt(int_imax1) > int_imax2 = CInt(int_imax2) > > > 'set the max number of images based on the sub group > If int_sg = 1 Then > int_mymax = int_imax1 > Else > int_mymax = int_imax2 > End If > > > 'b1 = previous > 'b2 = next > 'b3 = contents > 'b4 = summary > > > If int_i = 0 Then > 'we are dealing with a group > > > 'set the previous button > If int_sg > 1 Then b1 = 80 Else b1 = 0 > > > 'set the next button > If Not int_sg = int_sgmax Then s1 = 10 Else s1 = 0 > If Not int_sg = int_sgmax Then b2 = 80 Else b2 = 0 > > > Else > 'We are dealing with an image > > > 'set the previous button > If int_i > 1 Then b1 = 80 Else b1 = 0 > > > 'set the next button > If Not int_i = int_mymax Then s1 = 10 Else s1 = 0 > If Not int_i = int_mymax Then b2 = 80 Else b2 = 0 > > > End If > > > 'set the contents button > If Not int_i = 0 Then s2 = 10 Else s2 = 0 > If Not int_i = 0 Then b3 = 80 Else b3 = 0 > > > 'set the summary button > If Not int_g = 0 Then s3 = 10 Else s3 = 0 > If Not int_g = 0 Then b4 = 80 Else b4 = 0 > > > h1 = 620 - (b1+s1+b2+s2+b3+s3+b4) > > > %> > > > <HTML> > <HEAD> > <TITLE>ShowImage</TITLE> > <META name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> > <META name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> > <META name=vs_defaultClientScript content="JavaScript"> > <META name=vs_targetSchema > content="http://schemas.microsoft.com/i*ntellisense/ie3-2nav3-0"> > </HEAD> > <BODY ms_positioning="FlowLayout"> > > > <FORM id="Form1" method="post" runat="server"> > > > <TABLE width="100%" height="100%" border="0" cellspacing="0" > cellpadding="0" id="Table1"> > <TR> > <TD> > <% If int_i = 0 Then %> > > > <TABLE width="800" height="533" border="0" align="center" > cellpadding="0" cellspacing="0" id="Table2" STYLE="border: 2 ridge > #800000"> > > > <% Else %> > > > <TABLE width="800" height="533" border="0" align="center" > cellpadding="0" cellspacing="0" id="Table3" STYLE="background-image: > url(images\bulk\g<%=int_g%>sg<*%=int_sg%>i<%=int_i %>.jpg); border: 2 ridge > #800000"> > > > <% End If %> > <TR> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > <TD valign=bottom> > <IMG src="images\misc\port.gif" height="25" width="130"> > </TD> > </TD> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > </TR> > > > <!-- DIVIDER LINE --> > <TR> > <TD height="1"></TD> > <TD><TABLE border="0" cellpadding="0" cellspacing="0" height="1"> > <TR> > <TD height="1"><IMG src="<%=line_end%>" height="5" width="1"></TD> > <TD height="1"><IMG src="<%=filler%>" height="5" width="618"></TD> > <TD height="1"><IMG src="<%=line_end%>" height="5" width="1"></TD> > </TR> > </TABLE></TD> > <TD height="1"></TD> > </TR> > > > <!-- BUTTON ROW --> > > > <TR> > <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> > <TD><TABLE width="620" height="56" border="0" cellpadding="0" > cellspacing="0"> > <TD valign=top width=<%=h1%>> > <SPAN style='font-size:14.0pt;font-f*amily:"Courier New"'> > > > <%If int_g = 1 Then %> > modelmaking > <%Else%> > artwork > <%End If%> > > > <I>#<%=int_sg%></I> > > > </SPAN> > </TD> > > > <!-- PREVIOUS ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b1)=0 Then%> > > > <% If int_i = 0 Then > 'Test to see if we are showing images or thumbs to put the correct > link in the button > %> > <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg - > 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> > <!--Thumb link--> > <IMG src="<%=btn_previous%>" height="30" width="80" border="0"> > </A> > <% Else %> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= int_i > - 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> > <IMG src="<%=btn_previous%>" height="30" width="80" border="0"> > </A> > <%End If %> > > > <%End If%> > </TD> > > > <% If Not Clng(s1)=0 Then%> > <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> > <%End If%> > > > <!-- NEXT ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b2)=0 Then%> > > > <% If int_i = 0 Then > 'Test to see if we are showing images or thumbs to put the correct > link in the button > %> > <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg + > 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> > <!--Thumb link--> > <IMG src="<%=btn_next%>" height="30" width="80" border="0"> > </A> > <% Else %> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= int_i > + 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> > <IMG src="<%=btn_next%>" height="30" width="80" border="0"> > </A> > <%End If %> > > > <%End If%> > </TD> > > > <% If Not Clng(s2)=0 Then%> > <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> > <%End If%> > > > <!-- CONTENTS ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b3)=0 Then%> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=0&i max1=<%=int_imax*1%>&imax2=<%=int_imax2%>"> > <IMG src="<%=btn_contents%>" height="30" width="80" border="0"> > </A> > <%End If%> > </TD> > > > <% If Not Clng(s3)=0 Then%> > <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> > <%End If%> > > > <!-- SUMMARY ------------------------------*--------------> > <TD valign=middle> > <% If Not Clng(b4)=0 Then%> > <A href="summarypage.asp"> > <IMG src="<%=btn_summary%>" height="30" width="80" border="0"> > </A> > <%End If%> > </TD> > </TABLE> > > > </TD> > > > <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> > </TR> > > > <TR> > <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> > <TD> > > > <% 'Test if int_i = 0. If so then show the thumbnails > If int_i = 0 Then %> > > > <!--CONTENT TABLE--> > <TABLE width="620" border="0" cellpadding="0" cellspacing="0" > id="Table4"> > <TR> > > > <% For x = 1 To 7 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 7 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TR> > <TR><TD height="10"><IMG src="<%=spacer%>" height="10"></TD></TR> > <TR> > > > <% For x = 8 To 14 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 14 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TR> > <TR> > <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> > </TR> > <TR> > > > <% For x = 15 To 21 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 21 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TR> > <TR> > <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> > </TR> > <TR> > > > <% For x = 22 To 28 > If x <= int_mymax Then %> > <TD width="80" height="80"> > <A > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> > <IMG src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" > width="100%" height="100%" border="0"> > </A> > </TD> > <% Else %> > <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" > height="100%" border="0"></TD> > <% End If %> > <% If Not x = 28 Then %> > <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> > <% End If %> > <% Next %> > > > </TD> > </TR> > > > </TABLE> > > > <% End If %> > > > </TD> > <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> > </TR> > > > <TR> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > <TD><IMG src="<%=spacer%>" height="61" width="620"></TD> > <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> > </TR> > </TABLE> > </TD> > </TR> > </TABLE> > > > </FORM> > </BODY> > </HTML> > > |
|
|
|
|
|||
|
|
|||
| Mark Schupp |
|
Carl Gilbert
Guest
Posts: n/a
|
Cheers for the link Mark. Looks really promising.
I was just looking at WebCopier a few hours ago but some of these look really good. (http://www.maximumsoft.com/) "Mark Schupp" <> wrote in message news:%... > Not about HTA. but about what you want to do. > http://www.aspfaq.com/show.asp?id=2443 How do I put my ASP application > onto > a CD-Rom? > > -- > Mark Schupp > > > > "Carl Gilbert" <> wrote in message > news:%... >> Hi >> >> I have some ASP pages that I need to run directly from a CD so I was >> thinking of converting them to HTA. The only problem is I know nothing >> about HTA. >> >> The pages make up a portfolio that I plan to put onto CD. It consists of >> a >> series of pages with thumbnails. A thumbnail will either link off to > another >> page with thumbnails, display an image or play a movie. >> >> I am mainly using loops to display the thumbnails and build up a URL to > link >> off to the apprioparte image. I have attached my main page at the bottom > of >> this post that uses the query string to build the page. >> The page is linked to using URLs as follows: >> <A href="showimage.asp?g=2&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> >> <A href="showimage.asp?g=3&sg=1&sgmax=2&i=0&imax1=28& imax2=28"> >> <A href="showimage.asp?g=4&sg=1&sgmax=1&i=0&imax1=14& imax2=0"> >> >> These state the group number, then the sub group number, then how many >> sub >> groups there are, next the image number and then the number of images in >> each sub group. >> The main page then test the image number. If its zero then it will show >> thumbnails, if its greater than zero it will show the appropriate image. >> There is also some additional code to show/hide next and previous buttons > to >> allow the user to navigate through the images. >> >> Note: The main page references itself and just updates based on the new >> image number. >> >> So, can a similar thing be achieved using HTA and still allow multiple > pages >> running from a CD and if so, how can it be done based on the attached > code? >> >> Regards, Carl Gilbert >> >> >> >> >> >> >> ------------------------------*-------- >> CODE ------------------------------*-------- >> >> >> <% >> >> >> spacer = "images\misc\spacer.gif" >> filler = "images\misc\filler.gif" >> line_end = "images\misc\line_end.gif" >> btn_previous = "images\misc\previous.gif" >> btn_next = "images\misc\next.gif" >> btn_contents = "images\misc\contents.gif" >> btn_summary = "images\misc\summary.gif" >> >> >> int_g = request.QueryString("g") >> int_sg = request.QueryString("sg") >> int_sgmax = request.QueryString("sgmax") >> int_i = request.QueryString("i") >> int_imax1 = request.QueryString("imax1") >> int_imax2 = request.QueryString("imax2") >> >> >> int_g = CInt(int_g) >> int_sg = CInt(int_sg) >> int_sgmax = CInt(int_sgmax) >> int_i = CInt(int_i) >> int_imax1 = CInt(int_imax1) >> int_imax2 = CInt(int_imax2) >> >> >> 'set the max number of images based on the sub group >> If int_sg = 1 Then >> int_mymax = int_imax1 >> Else >> int_mymax = int_imax2 >> End If >> >> >> 'b1 = previous >> 'b2 = next >> 'b3 = contents >> 'b4 = summary >> >> >> If int_i = 0 Then >> 'we are dealing with a group >> >> >> 'set the previous button >> If int_sg > 1 Then b1 = 80 Else b1 = 0 >> >> >> 'set the next button >> If Not int_sg = int_sgmax Then s1 = 10 Else s1 = 0 >> If Not int_sg = int_sgmax Then b2 = 80 Else b2 = 0 >> >> >> Else >> 'We are dealing with an image >> >> >> 'set the previous button >> If int_i > 1 Then b1 = 80 Else b1 = 0 >> >> >> 'set the next button >> If Not int_i = int_mymax Then s1 = 10 Else s1 = 0 >> If Not int_i = int_mymax Then b2 = 80 Else b2 = 0 >> >> >> End If >> >> >> 'set the contents button >> If Not int_i = 0 Then s2 = 10 Else s2 = 0 >> If Not int_i = 0 Then b3 = 80 Else b3 = 0 >> >> >> 'set the summary button >> If Not int_g = 0 Then s3 = 10 Else s3 = 0 >> If Not int_g = 0 Then b4 = 80 Else b4 = 0 >> >> >> h1 = 620 - (b1+s1+b2+s2+b3+s3+b4) >> >> >> %> >> >> >> <HTML> >> <HEAD> >> <TITLE>ShowImage</TITLE> >> <META name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> >> <META name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> >> <META name=vs_defaultClientScript content="JavaScript"> >> <META name=vs_targetSchema >> content="http://schemas.microsoft.com/i*ntellisense/ie3-2nav3-0"> >> </HEAD> >> <BODY ms_positioning="FlowLayout"> >> >> >> <FORM id="Form1" method="post" runat="server"> >> >> >> <TABLE width="100%" height="100%" border="0" cellspacing="0" >> cellpadding="0" id="Table1"> >> <TR> >> <TD> >> <% If int_i = 0 Then %> >> >> >> <TABLE width="800" height="533" border="0" align="center" >> cellpadding="0" cellspacing="0" id="Table2" STYLE="border: 2 ridge >> #800000"> >> >> >> <% Else %> >> >> >> <TABLE width="800" height="533" border="0" align="center" >> cellpadding="0" cellspacing="0" id="Table3" STYLE="background-image: >> url(images\bulk\g<%=int_g%>sg<*%=int_sg%>i<%=int_i %>.jpg); border: 2 >> ridge >> #800000"> >> >> >> <% End If %> >> <TR> >> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> >> <TD valign=bottom> >> <IMG src="images\misc\port.gif" height="25" width="130"> >> </TD> >> </TD> >> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> >> </TR> >> >> >> <!-- DIVIDER LINE --> >> <TR> >> <TD height="1"></TD> >> <TD><TABLE border="0" cellpadding="0" cellspacing="0" height="1"> >> <TR> >> <TD height="1"><IMG src="<%=line_end%>" height="5" >> width="1"></TD> >> <TD height="1"><IMG src="<%=filler%>" height="5" >> width="618"></TD> >> <TD height="1"><IMG src="<%=line_end%>" height="5" >> width="1"></TD> >> </TR> >> </TABLE></TD> >> <TD height="1"></TD> >> </TR> >> >> >> <!-- BUTTON ROW --> >> >> >> <TR> >> <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> >> <TD><TABLE width="620" height="56" border="0" cellpadding="0" >> cellspacing="0"> >> <TD valign=top width=<%=h1%>> >> <SPAN style='font-size:14.0pt;font-f*amily:"Courier New"'> >> >> >> <%If int_g = 1 Then %> >> modelmaking >> <%Else%> >> artwork >> <%End If%> >> >> >> <I>#<%=int_sg%></I> >> >> >> </SPAN> >> </TD> >> >> >> <!-- PREVIOUS ------------------------------*--------------> >> <TD valign=middle> >> <% If Not Clng(b1)=0 Then%> >> >> >> <% If int_i = 0 Then >> 'Test to see if we are showing images or thumbs to put the > correct >> link in the button >> %> >> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg - >> 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> >> <!--Thumb link--> >> <IMG src="<%=btn_previous%>" height="30" width="80" >> border="0"> >> </A> >> <% Else %> >> <A >> > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= > int_i >> - 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> >> <IMG src="<%=btn_previous%>" height="30" width="80" >> border="0"> >> </A> >> <%End If %> >> >> >> <%End If%> >> </TD> >> >> >> <% If Not Clng(s1)=0 Then%> >> <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> >> <%End If%> >> >> >> <!-- NEXT ------------------------------*--------------> >> <TD valign=middle> >> <% If Not Clng(b2)=0 Then%> >> >> >> <% If int_i = 0 Then >> 'Test to see if we are showing images or thumbs to put the > correct >> link in the button >> %> >> <A href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg + >> 1%>&sgmax=<%=int_sgmax%>&i=0&i*max1=<%=int_imax1%> &imax2=<%=i*nt_imax2%>"> >> <!--Thumb link--> >> <IMG src="<%=btn_next%>" height="30" width="80" border="0"> >> </A> >> <% Else %> >> <A >> > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= > int_i >> + 1%>&imax1=<%=int_imax1%>&imax2*=<%=int_imax2%>"> <!--Image link--> >> <IMG src="<%=btn_next%>" height="30" width="80" border="0"> >> </A> >> <%End If %> >> >> >> <%End If%> >> </TD> >> >> >> <% If Not Clng(s2)=0 Then%> >> <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> >> <%End If%> >> >> >> <!-- CONTENTS ------------------------------*--------------> >> <TD valign=middle> >> <% If Not Clng(b3)=0 Then%> >> <A >> > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=0&i > max1=<%=int_imax*1%>&imax2=<%=int_imax2%>"> >> <IMG src="<%=btn_contents%>" height="30" width="80" border="0"> >> </A> >> <%End If%> >> </TD> >> >> >> <% If Not Clng(s3)=0 Then%> >> <TD><IMG src="<%=spacer%>" height="30" width="10"></TD> >> <%End If%> >> >> >> <!-- SUMMARY ------------------------------*--------------> >> <TD valign=middle> >> <% If Not Clng(b4)=0 Then%> >> <A href="summarypage.asp"> >> <IMG src="<%=btn_summary%>" height="30" width="80" border="0"> >> </A> >> <%End If%> >> </TD> >> </TABLE> >> >> >> </TD> >> >> >> <TD><IMG src="<%=spacer%>" height="56" width="90"></TD> >> </TR> >> >> >> <TR> >> <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> >> <TD> >> >> >> <% 'Test if int_i = 0. If so then show the thumbnails >> If int_i = 0 Then %> >> >> >> <!--CONTENT TABLE--> >> <TABLE width="620" border="0" cellpadding="0" cellspacing="0" >> id="Table4"> >> <TR> >> >> >> <% For x = 1 To 7 >> If x <= int_mymax Then %> >> <TD width="80" height="80"> >> <A >> > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= > x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> >> <IMG > src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" >> width="100%" height="100%" border="0"> >> </A> >> </TD> >> <% Else %> >> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" >> height="100%" border="0"></TD> >> <% End If %> >> <% If Not x = 7 Then %> >> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> >> <% End If %> >> <% Next %> >> >> >> </TR> >> <TR><TD height="10"><IMG src="<%=spacer%>" height="10"></TD></TR> >> <TR> >> >> >> <% For x = 8 To 14 >> If x <= int_mymax Then %> >> <TD width="80" height="80"> >> <A >> > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= > x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> >> <IMG > src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" >> width="100%" height="100%" border="0"> >> </A> >> </TD> >> <% Else %> >> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" >> height="100%" border="0"></TD> >> <% End If %> >> <% If Not x = 14 Then %> >> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> >> <% End If %> >> <% Next %> >> >> >> </TR> >> <TR> >> <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> >> </TR> >> <TR> >> >> >> <% For x = 15 To 21 >> If x <= int_mymax Then %> >> <TD width="80" height="80"> >> <A >> > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= > x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> >> <IMG > src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" >> width="100%" height="100%" border="0"> >> </A> >> </TD> >> <% Else %> >> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" >> height="100%" border="0"></TD> >> <% End If %> >> <% If Not x = 21 Then %> >> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> >> <% End If %> >> <% Next %> >> >> >> </TR> >> <TR> >> <TD height="10"><IMG src="<%=spacer%>" height="10"></TD> >> </TR> >> <TR> >> >> >> <% For x = 22 To 28 >> If x <= int_mymax Then %> >> <TD width="80" height="80"> >> <A >> > href="ShowImage.asp?g=<%=int_g*%>&sg=<%=int_sg%>&s gmax=<%=int*_sgmax%>&i=<%= > x%>&imax1=<%=int*_imax1%>&imax2=<%=int_imax2%>"*> >> <IMG > src="images\thumbs\th_g<%=int_*g%>sg<%=int_sg%>i<% =x%>.jpg" >> width="100%" height="100%" border="0"> >> </A> >> </TD> >> <% Else %> >> <TD width="80" height="80"><IMG src="<%=spacer%>" width="100%" >> height="100%" border="0"></TD> >> <% End If %> >> <% If Not x = 28 Then %> >> <TD width="10"><IMG src="<%=spacer%>" width="10"></TD> >> <% End If %> >> <% Next %> >> >> >> </TD> >> </TR> >> >> >> </TABLE> >> >> >> <% End If %> >> >> >> </TD> >> <TD><IMG src="<%=spacer%>" height="350" width="90"></TD> >> </TR> >> >> >> <TR> >> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> >> <TD><IMG src="<%=spacer%>" height="61" width="620"></TD> >> <TD><IMG src="<%=spacer%>" height="61" width="90"></TD> >> </TR> >> </TABLE> >> </TD> >> </TR> >> </TABLE> >> >> >> </FORM> >> </BODY> >> </HTML> >> >> > > |
|
|
|
|
|||
|
|
|||
| Carl Gilbert |
|
|
|
| |
|
| Thread Tools | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| ASP.Net <> HTA | Tony Yums | ASP .Net | 8 | 10-04-2005 06:47 AM |
| error in javascript on asp.net through HTA | csgraham74 | ASP .Net | 0 | 06-20-2005 12:02 PM |
| HTA's | Herb Stull | ASP .Net | 25 | 04-13-2004 01:56 AM |
| HTA's & ASP | Stuart | ASP General | 3 | 01-15-2004 06:29 PM |
| Retrieve asp.net session variable within HTA page? | Kathy Burke | ASP .Net | 5 | 12-08-2003 05:18 AM |
Powered by vBulletin®. Copyright ©2000 - 2013, vBulletin Solutions, Inc..
SEO by vBSEO ©2010, Crawlability, Inc. |
