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