<%Set DataConn=server.CreateObject ("ADODB.Connection") DataConn.Open Application("Datasource") DataConn.execute "update Company Set ClickCnt=(ClickCnt+1) where ComId='"&Request("ComId")&"'" response.Redirect Request("URL") %>