ASP to HTA Conversion

Discussion in 'ASP General' started by Carl Gilbert, May 23, 2005.

  1. Carl Gilbert

    Carl Gilbert Guest

    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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=int­_sgmax%>&i=0&imax1=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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, May 23, 2005
    #1
    1. Advertising

  2. 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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=int­_sgmax%>&i=0&imax1=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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, May 23, 2005
    #2
    1. Advertising

  3. Carl Gilbert

    Mark Schupp Guest

    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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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, May 23, 2005
    #3
  4. Carl Gilbert

    Carl Gilbert Guest

    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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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%>&sgmax=<%=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, May 24, 2005
    #4
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Kathy Burke
    Replies:
    5
    Views:
    5,105
    lostinet
    Dec 8, 2003
  2. Herb Stull

    HTA's

    Herb Stull, Mar 3, 2004, in forum: ASP .Net
    Replies:
    25
    Views:
    6,072
    =?Utf-8?B?UHNlcmFzaXM=?=
    Apr 13, 2004
  3. csgraham74
    Replies:
    0
    Views:
    472
    csgraham74
    Jun 20, 2005
  4. Tony Yums

    ASP.Net <> HTA

    Tony Yums, Oct 2, 2005, in forum: ASP .Net
    Replies:
    8
    Views:
    3,359
    Jon Paal
    Oct 4, 2005
  5. Stuart

    HTA's & ASP

    Stuart, Jan 12, 2004, in forum: ASP General
    Replies:
    3
    Views:
    97
    William Morris
    Jan 15, 2004
Loading...

Share This Page