<% Set RSAdd = Server.CreateObject("ADODB.Recordset") '************************************ 'Lägga till info i databasen '************************************ Uppdatera = "SELECT * FROM tblMember WHERE ID = " & Request.QueryString("id") & " " RSAdd.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic strLink = RSAdd("Site") RSAdd("SiteVisitors") = RSAdd("SiteVisitors") -- 1 RSAdd.Update RSAdd.Close Connect.Close Response.Redirect strLink %>