%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim SQLCommand On Error Resume Next pPageName = "index" SQLCommand="SELECT * FROM sitePages WHERE pageName='"& pPageName & "'" Set RSContent = Server.CreateObject("ADODB.RecordSet") RSContent.Open SQLCommand, Conn, 1, 3 strContent = RSContent.Fields("fulldesc") SQLCommand="UPDATE Hits SET HitsCount = HitsCount + 1" Conn.Execute(SQLCommand) %>
|
|||||
| ©CDP. All Rights Reserved | |||||