<% Dim cadastro,verif_cat If Not (IsEmpty(Request.Form("nome"))) Then set verif_cat = lojaDB.Execute("SELECT * FROM categorias WHERE nome ='"& Request.Form("nome") & "'") IF verif_cat.EOF Then lojaDB.Execute("INSERT INTO categorias(nome) VALUES('" & Request.Form("nome") & "')") %>