<% dim intDocumentID dim strTitle dim strContent dim adoCn dim strSQL set adoCn = Server.CreateObject("ADODB.Connection") adoCn.Open strConn intDocumentID = Request.QueryString("DocumentID") dim adoRs set adoRs = Server.CreateObject("ADODB.Recordset") strSQL = "Select * From Documents where DocumentID=" & intDocumentID set adoRs = adoCn.Execute(strSQL) If not adoRs.EOF then strTitle = adoRs("Title") strContent = adoRs("Content") strDocBgColor = adoRs("BgColor") End If adoRs.Close set adoRs = nothing adoCn.Close set adoCn = nothing %> <%=strTitle%>
ÉTUDES ET CONSEIL NOUVEAUX MÉDIAS -
 


 
<%=strContent%>
© ScienceTech Communications inc. Montréal, 1995-2005