Yo tengo una BDD ACCES pero luego la migro a SQL 2000
y hago lo siguiente
sql = "SELECT * FROM Tabla_A_Consultar Where Algo = '"&alog&"';"
Set res = conexion.Execute(sql)
If res.BOF and res.EOF then
Variable1 = request.form ("campo_form")
sql = "INSERT INTO Tabla (campo1) VALUES ('" & Variable1&"');"
Set Res = conexion.Execute(sql)
conexion.Close
Set conexion = Nothing %>
<form name="form1" method="post" action="menumedico.asp">
<div class ="letras" align="center">La nueva actividad ha sido ingresada
<p>
<input type="submit" name="Submit" value="Aceptar">
</p>
</div>
</form>
<%else%>
<% res.Close
Set res = Nothing
conexion.Close
Set conexion = Nothing
%>
<form name="form2" method="post" action="actividades.asp">
<div class = "letras" align="center">
<p>
ACTIVIDAD YA EXISTE
</p>
<p>
<input type="submit" name="Submit2" value="Aceptar">
</p>
</div>
</form>
<%end if%>