Registros repetidos

[mrgubu]

Código:

search=Request.QueryString("search")
fecha=Now()
tipo=Request.QueryString("tipo")

search = Replace(search, "<", "&lt;")
search = Replace(search, ">", "&gt;")
search = Replace(search, "'", "''")

Set rsSearchAdd = Server.CreateObject("ADODB.Recordset")

strSQLSearchWord = "SELECT searchword.* from searchword"

rsSearchAdd.open strSQLSearchWord,adoCon,1,3

rsSearchAdd.AddNew
rsSearchAdd("searchword") = search
rsSearchAdd("tipo") = tipo
rsSearchAdd("fecha") = fecha

rsSearchAdd.Update

rsSearchAdd.Close
Set rsSearchAdd = Nothing