Printing Records

tsubasa

I have a recordset that I am displaying via an ASP. On the web page each record has a textbox next to it, so the user can enter a number for the amount of times that record will need to be displayed for printing. How can I develop a method to loop through each record and display that record based on the number entered in the textbox?

-Gabe

Expand|Select|Wrap|Line Numbers

 
<%

'Declare our variables... always a good thing!

Dim cnnSimple    'ADO connection

Dim rstSimple    'ADO recordset

Dim strDBPath    'path to our Access database (*.mdb) file
 
'Mappath of virtual database file

strDBPath = Server.MapPath("database.mdb")
 
'Create an ADO connection to connect to the search database

Set cnnSimple = Server.CreateObject("ADODB.Connection")
 
'This line is for the Access database

cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
 
'Execute a query using the connection object

Set rstSimple = cnnSimple.Execute("SELECT * FROM labels")

%>

<form action="print.asp" method="post">

<table border="1">

    <tr>

    <th bgcolor="#3D80C2">id</th>

    <th bgcolor="#3D80C2">Location</th>

    <th bgcolor="#3D80C2">Nomenclature</th>

    <th bgcolor="#3D80C2">NSN</th>

    <th bgcolor="#3D80C2">U/P</th>

    <th bgcolor="#3D80C2">Qty</th>

    </tr>

    <%

    Do While Not rstSimple.EOF

        %>

        <tr>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("id").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("bin").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("nomen").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("nsn").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("sell").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><p align="center"><input type="text" name="Labelcnt" value="1" size="2"></td>

        </tr>

   <%

    rstSimple.MoveNext

    Loop

   %>

</table>

<input type="submit" value="Submit">

</form>

<%

' Close our recordset and connection and dispose of the objects

rstSimple.Close

Set rstSimple = Nothing

cnnSimple.Close

Set cnnSimple = Nothing

%>

DrBunchman

Hi tsubasa,

You can add another loop inside your Do While Not rstSimple.EOF loop which will repeat each row based on the value of the text box. Read the value of the textbox for each line and use the value to set the number of times you perform the loop. e.g.

Expand|Select|Wrap|Line Numbers

 <%

Do While Not rstSimple.EOF

    For i = 0 To Request("Labelcnt")

        %>

        <tr>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("id").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("bin").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("nomen").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("nsn").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><%= rstSimple.Fields("sell").Value %>&nbsp;</td>

        <td bgcolor="#FFCC00"><p align="center"><input type="text" name="Labelcnt" value="1" size="2"></td>

        </tr>

        <%

    Next

    rstSimple.MoveNext

Loop

%>

Because your text boxes are named the same on each row the value will appear as a comma delimited list so you'll need to write a bit of logic that either manes the textboxes dynamically (e.g. append a row number to the end of the name) or extracts the correct value from the list for each row.

Let me know how you get on,

Dr B

Printing Records

re: Printing Records

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about