<%@ 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
