<% Dim mode mode = Request("m") Set objRS = Server.CreateObject("ADODB.Recordset") If Not objRS Is Nothing Then strSelect = "SELECT * FROM cpf WHERE secKey =" & mode objRS.Open strSelect, objConn, adOpenDynamic, adCmdTable secName = Trim(objRS("secName")) secDesc = Trim(objRS("secDesc")) secLink = Trim(objRS("secLink")) secCont = Trim(objRS("secCont")) secImage = Trim(objRS("secImage")) secImage2 = Trim(objRS("secImage2")) If secImage2 = "" Then secImage = "spacer.gif" End If %>

<%=secName%>

<%=secCont%>

<% objRS.Close Set objRS = Nothing End If %>