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>