ASP Source Code

ASP File: infopage.asp

 
   ASP Script
   Comments
   HTML and Text

<HTML>
<HEAD>
<TITLE>Search Database Sample</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFFFF">
<%
dim ejbMananger
dim ejbhome
dim vector
dim firstname
dim lastname
dim email
dim count

firstname  = Request("firstname")
lastname   = Request("lastname")
email      = Request("email")
set ejbManager = server.createobject("ejb.Netdynamics:com/netdynamics/demo/Phonebook/PhonebookDemo")
set ejbhome = ejbManager.create()
set vector = ejbhome.searchForName(firstname,lastname,email)
count = vector.size()
response.write("Number of matches : " &count)
%>
<br>
<TABLE BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR><TD WIDTH=100 BGCOLOR=999999><B>EmployeeID</B>
<TD WIDTH=200 BGCOLOR=999999><B>Frist Name</B></TD>
<TD WIDTH=200 BGCOLOR=999999><B>Last Name</B></TD></TR>
<%    For i = 0 to count-1 %>    
<TR><TD WIDTH=100 BGCOLOR=bbbbbb><%=vector.elementAt(i).getEmployeeID()%></TD>
<TD WIDTH=200 BGCOLOR=dddddd> <%=vector.elementAt(i).getFirstName()%>  </TD>
<TD BGCOLOR=dddddd><%=vector.elementAt(i).getLastName()%>  </TD></TR>
<%    Next %>    
</TABLE>

<P>
</BODY>
</HTML>