Campos sin duplicado en base de datos

[lexus]

' definimos variables
dim nick, email
' recogemos datos de formulario

nick = request.form("nick")
email= request.form("email")
' hacemos consulta para seleccinoar y agregar datos
sql = "SELECT * FROM usuarios"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, con, 3, 3
' verificamos si hay datos repetidos
if (rs.eof) then
dato="nuevo"
else
while not (rs.eof)
if UCASE(trim(rs("nick")))=UCASE(trim(nick)) AND UCASE(trim(rs("email")))=UCASE(trim(email)) then
dato="repetido"
End if
rs.movenext
Wend
end if
if dato="repetido" then
%>
<script language="VBScript">
r=msgbox("Ya existe un usuario con esos datos:, Por favor escriba otro. ",VbInformation," ERROR: Usuario repetida ")
location.href="javascript:history.go(-1)"
</script>
<%
response.end
Else
' agregamos a la base de datos los datos nuevos
rs.addnew
rs("nick")=nick
rs("email")=email
' tus otros campos aqui

rs.update
end if
%>
espero te sirva.