<% ' Verifica si el Banner existe, si no existe le suma 1 y si ya a aprecio le suma 1+ fecha=date() Set rsusuario1 = Server.CreateObject("ADODB.Recordset") rsusuario1.ActiveConnection = MM_cn_STRING rsusuario1.Source = "SELECT count(*) as existe FROM log_banners_url WHERE bn_id = '" &Request("bn_id") & "' and lgu_fech = '" & fecha & "' " rsusuario1.CursorType = 0 rsusuario1.CursorLocation =2 rsusuario1.LockType = 1 rsusuario1.Open() if rsusuario1("existe") = 1 then lgu_fech1=date() bn_id1=Request("bn_id") Set rsbusca1 = Server.CreateObject("ADODB.Recordset") rsbusca1.ActiveConnection = MM_cn_STRING rsbusca1.Source = "SELECT lgu_count FROM log_banners_url WHERE bn_id='"&bn_id1&"' and lgu_fech='"&lgu_fech1&"'" rsbusca1.CursorType = 0 rsbusca1.CursorLocation = 2 rsbusca1.LockType = 1 rsbusca1.Open() lgu_count1=rsbusca1.Fields.Item("lgu_count").Value + 1 SQL1 = "UPDATE log_banners_url SET lgu_count='"&lgu_count1&"' WHERE bn_id='"&bn_id1&"' and lgu_fech='"&lgu_fech1&"'" Set insCmd1 = Server.CreateObject("ADODB.Command") insCmd1.ActiveConnection = MM_cn_STRING insCmd1.CommandText = sql1 insCmd1.Execute insCmd1.ActiveConnection.Close Set rsbusca2 = Server.CreateObject("ADODB.Recordset") rsbusca2.ActiveConnection = MM_cn_STRING rsbusca2.Source = "SELECT bn_url FROM banners WHERE bn_id='"&bn_id1&"' " rsbusca2.CursorType = 0 rsbusca2.CursorLocation = 2 rsbusca2.LockType = 1 rsbusca2.Open() %> <% else lgu_fech1=date() bn_id1=Request("bn_id") lgu_count1="1" sql1="Insert into log_banners_url(lgu_fech,bn_id,lgu_count) values ( '"&lgu_fech1&"','"&bn_id1&"','"&lgu_count1&"')" Set insCmd1 = Server.CreateObject("ADODB.Command") insCmd1.ActiveConnection = MM_cn_STRING insCmd1.CommandText = sql1 insCmd1.Execute insCmd1.ActiveConnection.Close Set rsbusca1 = Server.CreateObject("ADODB.Recordset") rsbusca1.ActiveConnection = MM_cn_STRING rsbusca1.Source = "SELECT bn_url FROM banners WHERE bn_id='"&bn_id1&"' " rsbusca1.CursorType = 0 rsbusca1.CursorLocation = 2 rsbusca1.LockType = 1 rsbusca1.Open() %> <% end if %>