Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

call data from another page

Status
Not open for further replies.

optjco

IS-IT--Management
Apr 13, 2004
185
GB
I have some web pages that are displayed in three frames

Top
Main
Bottom

In the top frame i have a form with a listbox and a submit button, when the user hits submit it refreshs the data in the main frame with data from a recordset. I also have a textfield ("txtPrint") which gets the data from the recordset and adds .pdf to the end so that it looks something like this

12345.pdf

I also have two submit buttons which when clicked go away and run script on the appropiate page to see if a file exists based on the value in the textfield, if it does then it returns the filename in the bottom frame if not then it returns "No File Exists".
If the file exists the user can then click the link and the PDF is opened in a new window.

My question is this :
Could I somehow add the code from the page which searches for the file to the end of the code from the main page so that after the user has selected from the listbox and submitted it will then display the data from the recordset and then search for the file and display the result in the mainframe. if this is possible then i could remove the bottom frame and display the PDF in the mainframe, as it is now I cannot do this because the mainframe is too small. Below is the code for my mainframe and also the code for my search page, the mainframe code is the source HTML.

Main Frame

Code:
<html>
<head>
<title>PrintCard</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="tborders.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#037AF4">
<form action="" method="post" name="frmPrint" target="bottomFrame" id="frmPrint">
  <table width="85%%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
      <td height="23"><img src="../webbtl.gif" width="28" height="28"></td>
      <td align="left" valign="middle"><input name="txtSprint" type="text" id="txtSprint3" style = "border-width: 0px;color:#FFFFFF" value="9636.pdf" size="10" maxlength="10"> 
      </td>
      <td align="left" valign="middle"><input name="SubmitPrint" type="submit" id="SubmitPrint5" onClick="frmPrint.action='FolderListPrint.asp'" value="Check Print PDF"></td>
      <td align="left" valign="middle">&nbsp;</td>
      <td align="center" valign="middle">&nbsp;</td>
      <td colspan="2" align="center" valign="middle"><div align="left">
          <input name="SubmitDraw" type="submit" id="SubmitDraw3" onClick="frmPrint.action='FolderListDraw.asp'" value="Check Drawing PDF">
        </div></td>
      <td>&nbsp;</td>
      <td><img src="../webbtr.gif" width="28" height="28"></td>
    </tr>
    <tr> 
      <td width="5%" height="23">&nbsp;</td>
      <td class = "allCells" width="20%" rowspan="2"><img src="../GosportLogo.gif" width="180" height="44"></td>
      <td class = "tbcells"colspan="5" rowspan="2" align="center" valign="middle"><font size="5" face="Verdana, Arial, Helvetica, sans-serif">PRINT 
        KEY DATA SHEET</font></td>
      <td class = "lrtcells" width="21%"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">PRINT 
          No. </font></div></td>
      <td width="5%">&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "lrbcells" rowspan="3"><div align="center"><font color="#FF0000" size="4" face="Verdana, Arial, Helvetica, sans-serif"><strong>1</strong></font></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "lrbcells" colspan="5"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CUSTOMER 
        :&nbsp;&nbsp; <strong><font color="#0000FF" size="2">WHITMAN LABORATORIES LIMITED</font></strong></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
      <td class ="bcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">SPEC 
        :&nbsp;&nbsp; <font color="#0000FF" size="2"> 
        <input name="txtSpec" type="text" id="txtSpec" style = "border-width: 0px" value="9636" size="8" maxlength="8" >
        </font></font></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "lrbcells" colspan="4"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CUSTOMER 
        REF :&nbsp;&nbsp;<strong><font color="#0000FF" size="2">3206-01-0129</font></strong></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
      <td colspan="2" class = "bcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ID 
        SIZE :&nbsp;&nbsp;<font color="#0000FF" size="2"><strong>416 x 288 x 127</strong></font></font></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td >&nbsp;</td>
      <td  width="20%">&nbsp;</td>
      <td  width="10%">&nbsp;</td>
      <td  width="8%">&nbsp;</td>
      <td width="14%" >&nbsp;</td>
      <td width="21%" >&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td colspan="2" class = "tlcells" ><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp; 
          </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp; 
          <font size="2">MACHINE DATA</font></font></div></td>
      <td rowspan="6" bgcolor="#CCCCCC" class = "allcells">&nbsp;</td>
      <td class = "tbrcells" colspan="4"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">INK 
          DATA </font></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">BOARD 
        SIZE :&nbsp;&nbsp;<strong><font color="#0000FF" size="2">429</font></strong>&nbsp;X&nbsp;<font color="#0000FF" size="2"><strong>1455</strong></font></font></td>
      
      <td class = "tlcells" ><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        HAND HOLES : <font color="#0000FF" size="2"><strong>No</strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="3" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></div></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          COLOUR </font></div></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          CODE </font></div></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">STEREO 
          No </font></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">GATE 
        SIZE :&nbsp;&nbsp; <font color="#0000FF" size="2"><strong>744</strong></font></font></td>
      
      <td class = "tlcells" ><font size="1" face="Verdana, Arial, Helvetica, sans-serif">VENT 
        HOLES : <font color="#0000FF" size="2"><strong>No</strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          1 :</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;Black</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;HB 17105</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;1</font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CLEAN/TRIM 
        :&nbsp;&nbsp;<font color="#0000FF" size="2"><strong>Yes</strong></font></font></td>
      
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ASTROFOIL 
        :&nbsp;<font color="#0000FF" size="2"><strong>No</strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          2:</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tlcells">&nbsp;</td>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">No 
        UP :&nbsp;&nbsp;<font color="#0000FF" size="2"><strong>1</strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          3:</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tblcells">&nbsp;</td>
      <td class = "tblcells">&nbsp;</td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          4:</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td width="5%">&nbsp;</td>
      <td width="20%">&nbsp;</td>
      <td width="20%">&nbsp;</td>
      <td width="10%">&nbsp;</td>
      <td width="8%">&nbsp;</td>
      <td width="14%">&nbsp;</td>
      <td width="10%">&nbsp;</td>
      <td width="21%">&nbsp;</td>
      <td width="5%">&nbsp;</td>
    </tr>
    <tr> 
      <td height="21">&nbsp;</td>
      <td class = "tlcells" colspan="2"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">SPECIAL 
          INSTRUCTIONS / OPERATOR NOTES</font></div></td>
      <td rowspan="2" bgcolor="#CCCCCC" class = "allcells">&nbsp;</td>
      <td colspan="4" class = "trcells">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="64">&nbsp;</td>
      <td class = "tblcells" colspan="2" valign="top"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
      <td class = "tbrCells" colspan="4">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="19">&nbsp;</td>
      <td>&nbsp; </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td><img src="../webbbl.gif" width="28" height="28"></td>
      <td colspan="2"><div align="center"> </div></td>
      <td>&nbsp;</td>
      <td colspan="4"><div align="center"> </div></td>
      <td><img src="../webbbr.gif" width="28" height="28"></td>
    </tr>
  </table>
</form>
</body>
</html>

Search Page

Code:
<title>Show Print</title>
<body bgcolor="#037AF4" link="#0000FF" vlink="#0000FF" alink="#FF0000">
<table cols="1" border="0" bgcolor="#00FFFF" align="center" cellpadding="4" cellspacing="4" style = "border-bottom: 1px solid blue; border-left: 1px solid blue; border-top: 1px solid blue; border-right: 1px solid blue">
<%
SearchValue  = Request("txtSprint")
MatchesFound = False ' pessimistic boolean for match finds

'Create our FSO Object
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Stuff our folder into an object we can manipulate
Dim objFolder
Set objFolder = objFSO.GetFolder("C:\common\Key Print Data\Print cards")

Dim File, intCount

intCount = 0

For Each File in objFolder.Files
  If (File.Name) = SearchValue Then
    intCount = intCount + 1

    If intCount = 1 Then
      Response.Write "<tr>" & vbcrlf
    End If

    Response.Write "<td><a href=""\\ukgopsf002\common\Key Print Data\Print cards\" &  File.Name & """ target=""new"">" & File.Name & "</a>" & "</td>"

    If intCount = 1 Then
      Response.Write "</tr>" & vbcrlf  
      intCount = 0
    End If
    
    MatchesFound = True ' something was matched.
  End If
Next

If intCount > 0 Then
  Do While intCount < 1
    Response.Write "<td>&nbsp;</td>"
    intCount = intCount + 1
  Loop

  Response.Write "</tr>" & vbcrlf
End If

If Not MatchesFound Then
  Response.Write "<tr><td colspan='3'>No Print File</td></tr>" & vbcrlf
End If
%>
</table>

I did try adding the code to the end of the PrintCard code but it always returns "No File Exists" and i suppose that is because it is being run at the same time as the other code and therefore "txtPrint" does not have a value.

Any guidance on this would be much appreciated

Regards

Olly
 
Could I somehow add the code from the page which searches for the file to the end of the code from the main page "

You can achieve this effect by using the search page for two purposes. Add logic to the ASP process to determine which state the page is in, searching or displaying. The search form submits to itself. Part of the data submitted is a flag that indicates that it should display the results instead of the search form.

An ASP script builds a stream of HTML code. Although it appears that you have some HTML followed by some <% asp code %> followed by some more HTML, that is not what is really going on. Once the stream is completed, more or less when the </html> tag is sent, the script is finished. Nothing more will happen until the script is requested again. But you can build alternative processes into a script and it will do different things. If the visual display resulting is the same at the top, it may appear that stuff has been added at the bottom, especially if the user has a fast connection. But in reality two different pages have been constructed by the same ASP script.
 
OK, I now have only two frames

top frame = setprint.asp
main frame = printcard.asp

on the set print page I have a select dropdown which when changed submits the value using javascript
Code:
onChange="javascript:document.form1.submit(this.form)"
to printcard.asp to show the relevant data.

on the printcard page i have placed an iframe so that when one of the submit buttons are clicked one of two pages is searched for a particular file and then the result is displayed in the iFrame.

What i cannot work out is how after the user has selected from the top frame can i update the data in printcard.asp and automatically go away and find the relevant file if one exists and display it in the iFrame without having to using the submit buttons.

The code for PrintCard.asp now looks like this :

Code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/Print.asp" -->
<%
Dim RSprint__SetPrint
RSprint__SetPrint = "1"
If (Request.Form("lstPrint")  <> "") Then 
  RSprint__SetPrint = Request.Form("lstPrint") 
End If
%>
<%
Dim RSprint
Dim RSprint_numRows

Set RSprint = Server.CreateObject("ADODB.Recordset")
RSprint.ActiveConnection = MM_Print_STRING
RSprint.Source = "SELECT PrintNumber, CustomerName, Spec,  PrintCardData.PartNo, IDSize, GateSize, Ink1, InkCode1, Ink2, InkCode2, Ink3, InkCode3, Ink4, InkCode4, Ink5, InkCode5, StereoNo2, StereoNo3, StereoNo4, StereoNo5, HandHoles, VentHoles, Astrofoil, AstrofoilLocation, Comments, Clean, Trim, CustomerRef, NoUP, Flute, Grade, Deck, Chop, Colours, PrintPDF, DrawPDF  FROM PrintCardData, OrderInfo  WHERE PrintCardData.Spec = OrderInfo.SpecNo AND  PrintCardData.PartNo = OrderInfo.PartNo AND PrintNumber = " + Replace(RSprint__SetPrint, "'", "''") + "    GROUP BY PrintNumber, Spec,  PrintCardData.PartNo, IDSize, GateSize, Ink1, InkCode1, Ink2, InkCode2, Ink3, InkCode3, Ink4, InkCode4, Ink5, InkCode5, StereoNo2, StereoNo3, StereoNo4, StereoNo5, HandHoles, VentHoles, Astrofoil, AstrofoilLocation, Comments, Clean, Trim, CustomerRef, NoUP, Flute, Grade, Deck, Chop, Colours, CustomerName, PrintPDF, DrawPDF"
RSprint.CursorType = 0
RSprint.CursorLocation = 2
RSprint.LockType = 1
RSprint.Open()

RSprint_numRows = 0
%>
<html>
<head>
<title>PrintCard</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="tborders.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#037AF4">
<form action="" method="post" name="frmPrint" target="myIframe" id="frmPrint">
  <table width="85%%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr> 
	  <td height="23"><img src="../webbtl.gif" width="28" height="28"></td>
      <td align="left" valign="middle"><input name="txtSprint" type="text" id="txtSprint3" style="border-width: 0px;color:#0000FF" value="<%=(RSprint.Fields.Item("Spec").Value)%>.pdf" size="10" maxlength="10"> 
      </td>
      <td align="left" valign="middle"><input name="SubmitPrint" type="submit" id="SubmitPrint5" onClick="frmPrint.action='FolderListPrint.asp'" value="Check Print PDF"></td>
      <td align="left" valign="middle">&nbsp;</td>
      <td align="center" valign="middle">&nbsp;</td>
      <td colspan="2" align="center" valign="middle"><div align="left">
          <input name="SubmitDraw" type="submit" id="SubmitDraw3" onClick="frmPrint.action='FolderListDraw.asp'" value="Check Drawing PDF">
        </div></td>
      <td>&nbsp;</td>
      <td><img src="../webbtr.gif" width="28" height="28"></td>
    </tr>
    <tr> 
      <td width="5%" height="23">&nbsp;</td>
      <td class = "allCells" width="20%" rowspan="2"><img src="../GosportLogo.gif" width="180" height="44"></td>
      <td class = "tbcells"colspan="5" rowspan="2" align="center" valign="middle"><font size="5" face="Verdana, Arial, Helvetica, sans-serif">PRINT 
        KEY DATA SHEET</font></td>
      <td class = "lrtcells" width="21%"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">PRINT 
          No. </font></div></td>
      <td width="5%">&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "lrbcells" rowspan="3"><div align="center"><font color="#FF0000" size="4" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=(RSprint.Fields.Item("PrintNumber").Value)%></strong></font></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "lrbcells" colspan="5"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CUSTOMER 
        :&nbsp;&nbsp; <strong><font color="#0000FF" size="2"><%=(RSprint.Fields.Item("CustomerName").Value)%></font></strong></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
      <td class ="bcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">SPEC 
        :&nbsp;&nbsp; <font color="#0000FF" size="2"> 
        <input name="txtSpec" type="text" id="txtSpec" style = "border-width: 0px" value="<%=(RSprint.Fields.Item("Spec").Value)%>" size="8" maxlength="8" >
        </font></font></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "lrbcells" colspan="4"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CUSTOMER 
        REF :&nbsp;&nbsp;<strong><font color="#0000FF" size="2"><%=(RSprint.Fields.Item("CustomerRef").Value)%></font></strong></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;</font></td>
      <td colspan="2" class = "bcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ID 
        SIZE :&nbsp;&nbsp;<font color="#0000FF" size="2"><strong><%=(RSprint.Fields.Item("IDSize").Value)%></strong></font></font></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td >&nbsp;</td>
      <td  width="20%">&nbsp;</td>
      <td  width="10%">&nbsp;</td>
      <td  width="8%">&nbsp;</td>
      <td width="14%" >&nbsp;</td>
      <td width="21%" >&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td colspan="2" class = "tlcells" ><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp; 
          </font><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp; 
          <font size="2">MACHINE DATA</font></font></div></td>
      <td rowspan="6" bgcolor="#CCCCCC" class = "allcells">&nbsp;</td>
      <td class = "tbrcells" colspan="4"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">INK 
          DATA </font></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">BOARD 
        SIZE :&nbsp;&nbsp;<strong><font color="#0000FF" size="2"><%=(RSprint.Fields.Item("Deck").Value)%></font></strong>&nbsp;X&nbsp;<font color="#0000FF" size="2"><strong><%=(RSprint.Fields.Item("Chop").Value)%></strong></font></font></td>
      <%
Dim newhand

if RSprint.Fields.Item("HandHoles").Value="True" Then
newhand="Yes"
else
newhand="No"
end if
%>
      <td class = "tlcells" ><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
        HAND HOLES : <font color="#0000FF" size="2"><strong><%=newhand%></strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="3" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></div></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          COLOUR </font></div></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          CODE </font></div></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">STEREO 
          No </font></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">GATE 
        SIZE :&nbsp;&nbsp; <font color="#0000FF" size="2"><strong><%=(RSprint.Fields.Item("GateSize").Value)%></strong></font></font></td>
      <%
Dim newvent

if RSprint.Fields.Item("VentHoles").Value="True" Then
newvent="Yes"
else
newvent="No"
end if
%>
      <td class = "tlcells" ><font size="1" face="Verdana, Arial, Helvetica, sans-serif">VENT 
        HOLES : <font color="#0000FF" size="2"><strong><%=newvent%></strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          1 :</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("Ink1").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("InkCode1").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("PrintNumber").Value)%></font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <%
Dim newclean

if RSprint.Fields.Item("Clean").Value="True" Then
newclean="Yes"
else
newclean="No"
end if
%>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CLEAN/TRIM 
        :&nbsp;&nbsp;<font color="#0000FF" size="2"><strong><%=newclean%></strong></font></font></td>
      <%
Dim newastro

if RSprint.Fields.Item("Astrofoil").Value="False" Then
newastro="No"
else
newastro=(RSprint.Fields.Item("AstrofoilLocation").Value)
end if
%>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ASTROFOIL 
        :&nbsp;<font color="#0000FF" size="2"><strong><%=newastro%></strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          2:</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("Ink2").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("InkCode2").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("StereoNo2").Value)%></font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tlcells">&nbsp;</td>
      <td class = "tlcells"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">No 
        UP :&nbsp;&nbsp;<font color="#0000FF" size="2"><strong><%=(RSprint.Fields.Item("NoUP").Value)%></strong></font></font></td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          3:</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("Ink3").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("InkCode3").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("StereoNo3").Value)%></font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class = "tblcells">&nbsp;</td>
      <td class = "tblcells">&nbsp;</td>
      <td class = "brcells"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">INK 
          4:</font></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("Ink4").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("InkCode4").Value)%></font></strong></div></td>
      <td class = "brcells"><div align="center"><strong><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("StereoNo4").Value)%></font></strong></div></td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td width="5%">&nbsp;</td>
      <td width="20%">&nbsp;</td>
      <td width="20%">&nbsp;</td>
      <td width="10%">&nbsp;</td>
      <td width="8%">&nbsp;</td>
      <td width="14%">&nbsp;</td>
      <td width="10%">&nbsp;</td>
      <td width="21%">&nbsp;</td>
      <td width="5%">&nbsp;</td>
    </tr>
    <tr> 
      <td height="21">&nbsp;</td>
      <td class = "tlcells" colspan="2"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">SPECIAL 
          INSTRUCTIONS / OPERATOR NOTES</font></div></td>
      <td rowspan="2" bgcolor="#CCCCCC" class = "allcells">&nbsp;</td>
      <td colspan="4" class = "trcells">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="64">&nbsp;</td>
      <td class = "tblcells" colspan="2" valign="top"><font color="#0000FF" size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=(RSprint.Fields.Item("Comments").Value)%></font></td>
      <td class = "tbrCells" colspan="4">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td height="19">&nbsp;</td>
      <td>&nbsp; </td>
      <td><iframe src="FolderListPrint.asp" name="myIframe" id="myIframe" target="_self" frameborder="0" scrolling="no" style="position:absolute; width:129px; height:59px; top:441px; left:423px; z-index:2"> 
        IFRAMEs</iframe></td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td><img src="../webbbl.gif" width="28" height="28"></td>
      <td colspan="2"><div align="center"> </div></td>
      <td>&nbsp;</td>
      <td colspan="4"><div align="center"> </div></td>
      <td><img src="../webbbr.gif" width="28" height="28"></td>
    </tr>
  </table>
</form>
<p>&nbsp;</p>
</body>
</html>
<%
RSprint.Close()
Set RSprint = Nothing
%>

and the code for the page that searches for the file is as below :

Code:
<title>Show Print</title>
<body bgcolor="#037AF4" link="#0000FF" vlink="#0000FF" alink="#FF0000">
<table cols="1" border="0" bgcolor="#00FFFF" align="center" cellpadding="4" cellspacing="4" style = "border-bottom: 1px solid blue; border-left: 1px solid blue; border-top: 1px solid blue; border-right: 1px solid blue">
<%
SearchValue  = Request("txtSprint")
MatchesFound = False ' pessimistic boolean for match finds

'Create our FSO Object
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Stuff our folder into an object we can manipulate
Dim objFolder
Set objFolder = objFSO.GetFolder("C:\common\Key Print Data\Print cards")

Dim File, intCount

intCount = 0

For Each File in objFolder.Files
  If (File.Name) = SearchValue Then
    intCount = intCount + 1

    If intCount = 1 Then
      Response.Write "<tr>" & vbcrlf
    End If

    Response.Write "<td><a href=""\\ukgopsf002\common\Key Print Data\Print cards\" &  File.Name & """ target=""new"">" & File.Name & "</a>" & "</td>"

    If intCount = 1 Then
      Response.Write "</tr>" & vbcrlf  
      intCount = 0
    End If
    
    MatchesFound = True ' something was matched.
  End If
Next

If intCount > 0 Then
  Do While intCount < 1
    Response.Write "<td>&nbsp;</td>"
    intCount = intCount + 1
  Loop

  Response.Write "</tr>" & vbcrlf
End If

If Not MatchesFound Then
  Response.Write "<tr><td colspan='3'>No Print File</td></tr>" & vbcrlf
End If
%>
</table>

If someone could point me in the right direction with this it would be appreciated

Regards

Olly
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top