<%@ Language=VBScript %> <% Dim Cnxn, rsEmp 'Const adUseClient = 3 Set Cnxn = Server.CreateObject("ADODB.Connection") Set rsEmp = Server.CreateObject("ADODB.Recordset") 'Cnxn.CursorLocation = adUseClient Cnxn.Open "Data Source=studioa" Set rsEmp = Cnxn.Execute("SELECT * From tblmain_emp ORDER BY fldEmp_LName;") %> Studio A Advertising
 
 
 
 
 
 
 
 
 
 
 
  Studio A Advertising, Inc. <%= Year(DATE)%>
<% rsEmp.Close %>