El problema está en las comillas de esta parte:
Cita: Para"aceptar" o"no aceptar"
Simplemente, reemplazá cada comilla por dos de ella quedando:
Cita: Para ""aceptar"" o ""no aceptar""
Además, en la última línea tenés cualquier cosa!
Cita: cuerpo= cuerpo&"<div align=center><strong><a href=Aceptar.asp><font size=2 face=Arial, Helvetica, sans-serif>ACEPTAR</font></a></strong>"
& set oConn = Server.CreateObject("ADODB.Connection")set rs = Server.CreateObject("ADODB.Recordset")oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & Server.MapPath("Bases de Datos\San Ignacio de Loyola.mdb")"SQL="SELECT * FROM Acceso_PyR "rs.Open SQL, oConn, 1, 2 rs.movefirst do while not.eof if rs("cedula_PyR")=cedula then rs.AddNew rs("edo")="Activo" rs.update end if rs.movenext loop set oconn=nothing set rs=nothing&" "&" "&"<a href=Rechazar.asp><strong><font size=2 face=Arial, Helvetica, sans-serif>NO ACEPTAR</font></strong></a></div></font>"& set oConn = Server.CreateObject("ADODB.Connection")set rs = Server.CreateObject("ADODB.Recordset")oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= & Server.MapPath(Bases de Datos\San Ignacio de Loyola.mdb)"SQL="SELECT * FROM Acceso_PyR" rs.Open SQL, oConn, 1, 2 rs.movefirst do while not.eof if rs("cedula_PyR")=cedula then rs.Delete rs.update end if rs.movenext loop set oconn=nothing set rs=nothing
Tenés concatenado a la variable "cuerpo" objetos conection, recordsets, luego más html... un desastre!