No lo entiendo... Volví a probar con Tabla.Close justo depues de toda la linea de temp=... y ahora resulta que me funciona, en fin... Esa es la forma lógica pero antes no funcionaba y ahora si, bueno, pues ya está.
De todas formas pongo el código por si alguien lo quiere:
Código:
<%
Dim Conexion, Tabla, Temp
Set Conexion=Server.CreateObject("ADODB.connection")
Conexion.Open "correo"
Set Tabla=Server.CreateObject("ADODB.recordset")
Tabla.Open "Tabla1",Conexion
Temp="Select * From Tabla1 Where UCase(Nombre)='" & UCase(Request("Dato1"))_
& "' And UCase(Apellido)='" & UCase (Request ("Dato2"))_
& "' And UCase (Email)='" & UCase (Request("Dato3")) & "'"
Tabla.Close
Tabla.Open Temp,Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
Tabla.Addnew
Tabla("Nombre")= Request("Dato1")
Tabla("Apellido")=Request("Dato2")
Tabla("Email")=Request("Dato3")
Tabla.Update
%>
<p>Ingreso de datos completado</p>
<%
Else
Response.Write "El registro ya existe"
End if
Tabla.Close
Conexion.Close%>
</body>
</html>
Un saludo.