Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2025/control/validar.asp

<%
if Session("autadmin")=true or Session("autprensa")=true then

else

	Response.Redirect("index.asp")
	Response.End

end if

%><html>
<head>
<title>Anular Pregunta</title>
</head>
<%
idpet=request.querystring("id")

Set Conn = Server.CreateObject("ADODB.Connection")

caracter="b"

Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=178.33.167.206;UID=webweb;PWD=Cocococo1;DATABASE=webweb"

sSQL="update comentarios set estado='" & caracter & "' where id='" & idpet & "'"

set RS = Conn.Execute(sSQL)

Conn.Close
%>
<body>
<i><font face="Trebuchet MS" color="#003399">Comentario validado correctamente.</font></i>
</body>

</html>