Mensaje de Alerta al ingresar datos

[JuanRAPerez]

prueba

strSQL = "select * from Tblcliente where csr='" & csr & "'"
rs.Open strSQL, Cnn, 1, 2


If Not rs.EOF then
Response.Write("El Usuario ya existe")

else
'si el usuario no existe.....lo ingresamos a la base de datos
strSQL2 = "INSERT INTO Tblcliente (csr, loc, guia_d, distribuidor, fecha_in, artefacto, serie, estado, fecha_avi, fecha_ret, guia_sta, gtia, tecnico, cod_auto) VALUES ( '" & csr & "' , '" & loc & "' , '" & guia_d & "' , '" & distribuidor & "' , '" & fecha_in & "' ,'" & artefacto & "' , '" & serie & "' , '" & estado & "' , '" & fecha_avi & "' , '" & fecha_ret & "' , '" & guia_sta & "' , '" & gtia & "' , '" & tecnico & "' , '" & cod_auto & "' )"

cnn.Execute(strSQL2)
Response.Write("usuario ingresado satisfactoriamente")
' o hace un response.redirect a otra pagina de agradecimiento
'response.redirect("graciasporregistrarte.asp")
end if