<% Dim sqltemp Dim rs Dim dbconn strDataSource = "track" Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open strDataSource set rs = Server.Createobject("ADODB.Recordset") sqltemp = "SELECT tblTrack.* FROM tblTrack" rs.open sqltemp, dbconn , 3,3 rs.addnew rs("date").value = now() rs("ip").value = request.servervariables("REMOTE_ADDR") rs("site").value = "www.keithurban.com" rs("Where").value = Request("HTTP_REFERER") rs.update rs.close dbconn.close set rs = nothing set dbconn=nothing %> Welcome To KeithUrban.com