%@ LANGUAGE="VBSCRIPT" %>
Student Information
<%
NameToLookup = Request.Form("INQUIRYNAME")
InqSQL = "SELECT * FROM Students;"
SET RS=Server.CreateObject("ADODB.Recordset")
'
' Open the recordset object by passing it the following values:
' 1. The SQL Select statement
' 2. The connection string for the database file
' 3. The cursor type (3=adOpenStatic)
' 4. The locking type (for record locking) (3=adLockOptimistic)
'
RS.open InqSQL, sDSN, 3, 3
%>
Student Name | Email Address |
<% rs.movelast
If NOT RS.EOF then %>
<% =RS("Name") %> |
"><% =RS("Email") %> |
<% end if %>
<% rs.close
rs=null %>
Return to Main Page