![]()


|
<% 'declare your variables Dim oConnection, oRecordset, sSQL Dim iMembershipTypeID, sMembershipTypeDescription, sMembershipName 'Create an instance of the ADO Connection and Recordset objects Set oConnection = Server.CreateObject("ADODB.Connection") Set oRecordset = Server.CreateObject("ADODB.Recordset") 'Set an active Connection to the Connection object oConnection.Open sConnString 'Create a variable called sSQL which holds an SQL statement to query against the database sSQL = "SELECT * FROM tblMembershipType WHERE ACTIVE='Y'" 'Query the database and return a Recordset oRecordset.Open sSQL, oConnection If oRecordset.eof Then response.write " Sorry there are currently no membership options. "
Else
%>
|