% DIM strText, strAction, strImage, strLink strAction = Request("strAction") If strAction <> "" Then strSQL = "SELECT strText, strName, strImage, strLink FROM tblContent WHERE ItemID="&strAction Set rsItem = objConn.Execute(strSQL) If NOT rsItem.EOF Then strText = rsItem("strText") strName = rsItem("strName") strImage = rsItem("strImage") strLink = rsItem("strLink") End If End If %>
|
|
|||||||||||||||||||