% option explicit if session("cont_leis") = "" then dim dbConn dim SQL SET dbConn = SERVER.CREATEOBJECT("ADODB.Connection") dbConn.OPEN Application("Cnet_Escrita") ' Contador de usuários Application.lock SQL = "EXEC SP_CONTADORPAG 1,LEIS" dbConn.EXECUTE(SQL) Application.unlock dbConn.Close Set dbConn = Nothing session("cont_leis") = "leis" end if %>
|
||||||||||||||||||||||||||||