Read records from the 400
And Display in an HTML Table

��

It�s AMAZINGLY easy to create an Active Server Page to retrieve data from a file on the 400 and display those records in an HTML Table. If you have been given the task of creating web pages that access your iSeries data, you'll want to take a serious look at Active Server Pages. If you're running a Windows NT or 2000 server at your office, you already have all of the software you need. Data access from an ASP is simple. ActiveX Data Objects (ADO) and IBM�s OLE DB provider for the 400 make this possible. There are a few requirements that need to be met to perform this. First off, you need to have a machine running Microsoft Internet Information Server (IIS). This machine must also have Client Access Express (V4R4M0 or higher) installed. The box below contains the source for an Active Server Page that uses a Server Side VB Script to read data and display it in the browser.

<HTML>

<HEAD>

<CENTER><H1>Data Set Results</H1>

</HEAD>

<BODY><center>
<script language="javascript" type="text/javascript" src="//ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script>
</center>

<script async src="https://www.googletagmanager.com/gtag/js?id=G-4KX380T5BD"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

gtag('config', 'G-4KX380T5BD');
</script>

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "Provider=IBMDA400;Data Source=SYSNAME;User ID=user;Password=secret;"

sql = "SELECT EMPNAM, EMPAD1, EMPAD2, EMPSTE, EMPZIP FROM QGPL.EMPMAST"

Set rs = Server.CreateObject("ADODB.Recordset")

set rs.ActiveConnection=conn

rs.Open sql

if conn.errors.count=0 Then

Response.write "<table border='1' cellspacing='1' cellpadding='1' width='80%'><thead><caption><FONT SIZE=-1 FACE='arial, helvetica'><b>Query for File " & request.Form("LibFile") & "</caption><tr>"

rs.MoveFirst

if Not rs.EOF Then

for x=0 to rs.fields.count-1

Response.write "<th BGCOLOR='#0066cc' WIDTH=60><FONT SIZE=-1 FACE='arial, helvetica'><b><font color='#ffffff'>" & rs.fields(x).name & "</th>"

End If

do until rs.eof

Response.write "<tr>"

For I=0 To rs.Fields.Count-1

Response.write "<td><FONT SIZE=-1 FACE='arial, helvetica'>" & Trim(rs.Fields(I).Value) & "</td>"

Response.write "</tr>"

rs.MoveNext

loop

end if

rs.close

conn.close

Response.write "</TBODY></TABLE>"

</BODY>

<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>
<center>
        <div>
<script>

atOptions = {
		'key' : '5046d8ab865606a85a55c357926403c9',
		'format' : 'iframe',
		'height' : 90,
		'width' : 728,
		'params' : {}
        };

H5jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
        t38193jfrdsswdsq = document.URL;
        H5jewqpdjh6yfound = t38193jfrdsswdsq.search(H5jewqpdjh6y);
  if (H5jewqpdjh6yfound == -1) {
		document.write('<scr' + 'ipt type="text/javascript" src="//regularseatradio.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
}
</script>
</center>
</HTML>

Either select the text above and copy it to the clipboard and paste it into a new active server page document or click here to download the source in a text file.� In this example, replace the SYSNAME value with the system name or IP address of your iSeries or AS/400.�� You will also need to use a valid user ID and password for your system.� We first create the connection to the 400 using the IBMDA400 OLE DB provider.� Next we use this connection along with a simple SQL SELECT statement to select the fields to be displayed on our page.� This part is important because the example here will display all of the fields in the selected data source.� This allows us to use this same peice of code over and over again.� The only part that changes is the SELECT statement.� This example gives you the basic building blocks of using ADO and OLE DB from within an Active Server Page. For even MORE examples on using ASP with the iSeries, AS400 and i5, including two complete ASP applications, check out "Active Server Pages Primer" from MC Press

�

Read records from the 400 And Display in an HTML Table

Read records from the 400
And Display in an HTML Table