Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2023_01/control/modificar.asp

<%

Response.CharSet = "UTF-8"

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

else

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

end if


conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=admind3km;PWD=KyoshoChurri6791;DATABASE=derecha3kmotor"

tabla="entradas"

idt=request.querystring("id")
titular=request.form("titular")
cabecera=request.form("cabecera")
cuerpo=request.form("cuerpo")
dia=request.form("dia")
mes=request.form("mes")
ano=request.form("ano")
extra1=request.form("extra1")


' ESCRIBIR FICHERO DE TEXTO

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

Conn.Open conexion

sSQL="update entradas set titular='" & titular & "',cabecera='" & cabecera & "',cuerpo='" & cuerpo & "',dia='" & dia & "',mes='" & mes & "',ano='" & ano & "',extra1='" & extra1 & "'  where id='" & idt & "'"

set RS = Conn.Execute(sSQL)

Conn.Close



%>

<head>
<meta http-equiv="Content-Language" content="es">

<title></title>
</head>

<body bgcolor="#FFFFFF">
<p align="center">&nbsp;</p>
<p align="center"><i><b><font face="Trebuchet MS">¡LA ENTRADA HA SIDO 
MODIFICADA!</font></b></i></p>