Mensaje error si registro no existe

[Beav]

hola!!! Tengo un pequeño problema en un formulario que elimina registros de la base de datos. Tengo un cuadro de texto y botones enviar y borrar

Quiero que me aparezca un mensaje de error cuando le doy a borrar y el texto a borrar en la base de datos no está. Lo que ocurre es que no se donde ponerlo porque donde lo haga no me sale lo que quiero.


El código del mensaje de error es este:

If ACCION2="Baja" and EMAIL <> RS2("EMAIL") then

TEXTO1="ERROR"

Dónde meto esta sentencia If??

Este es el código de dónde da la baja:
If CODIGO <> "" And DIRECCION <> "" Then

ElseIf ACCION1="Alta" Then

If Not Rs.Eof Then
TEXTO1="ERROR"

Else
Rs.AddNew

End IF

ElseIf ACCION2="Baja" Then
Rs.delete

Rs("I_SUSCRIPCION")=ID
RS("EMAIL")=EMAIL Rs.Update

End If

TEXTO1="BAJA HECHA CORRECTAMENTE"

End If

Else

TEXTO1="ACCIÓN DESCONOCIDA"

End If

[u_goldman]

Podrías poner el código funcional encerrado entre etiquetas de código? lo que me interesa es ver la consulta y donde abres el primer recordset.

Saludos

[Beav]

aqui dejo el código:

If CODIGO <> "" And DIRECCION <> "" Then

CrearRS dbi,rs,sSQL,

If Rs.Eof Then
TEXTO1="ERROR"

ElseIf dato="B" Then
TEXTO1="BAJA"

ElseIf dato="A" Then
TEXTO1="ALTA"

End If

CerrarObj(RS)

ElseIf EMAIL <> "" Then

CrearRS dbi2,rs,sSQL,0

CerrarObj(RS)
CerrarObj(dbi2)

If X_Error<>"" Or X_Error2<>"" Then
TEXTO1="ERROR"

ElseIf ACCION1="Alta" Then

CrearRS dbi,rs,sSQL,0

If Not Rs.Eof Then
TEXTO1="ERROR"

Else

Rs.AddNew
TEXTO1="ALTA"
End IF

CerrarObj(RS)

ElseIf ACCION2="Baja" Then

CrearRS dbi,rs,sSQL,0

IF not Rs.Eof Then
Rs.delete

End If

CerrarObj(RS)

TEXTO1="BAJA"

End If

Else

TEXTO1="ERROR"

End If

CerrarObj(dbi)

[Myakire]

No me lo tomes a mal, pero lo mejor que pudieras hacer es volver a hacer el programa.

En algún lado deberías de hacer la validación de si el texto no esta, esto se puede hacer de varias formas: lanzando la sentencia DELETE y revisando cuantos registros se afectaron o buscando el registro antes de borrar. Esta última es la más simple.

sql = "Delete from table where campo = '" & tuTexto & "'"
rs.Open sql, objConexion
if rs.EOF Then
Response.Write "El dato no existe": Response.End
End If

Te pudiera sugerir donde puedes poner algo como esto, pero a tu código no le entiendo un ápice

[Beav]

La verdad q sí q es un poco lioso, pero al final pude hallar el lugar exacto donde colocar el código que quería