%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
dBaseTest
<%
DIM objRS
DIM strSQL
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblTest.* FROM tblTest WHERE tblTest.testActive = 'inactive';"
objRS.Open strSQL,objConn
%>
| ID |
|
First Name |
|
Surname |
|
Email Address |
<%
DO WHILE NOT objRS.EOF
%>
| " target="_parent"><%=objRS("id_test")%> |
|
<%=objRS("testName")%> |
|
<%=objRS("testSurname")%> |
|
<%=objRS("testEmail")%> |
<%
objRS.MoveNext
LOOP
%>
<%
objRS.Close
Set objRS = Nothing
Set objConn = Nothing
%>