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

<%
Response.CharSet = "UTF-8"

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

else

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

end if

bloger=session("bloger")
usuario=session("usuario")

bloger=18

%><%

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

tabla="entradas"

titular=request.form("titular")

cabecera=request.form("cabecera")

cuerpo=request.form("cuerpo")

extra1=request.form("extra1")

dia=request.form("dia")

mes=request.form("mes")

ano=request.form("ano")


' GRABO EN BD

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

oConn.Open conexion

sSQL="Insert Into entradas (blogger,titular,cabecera,cuerpo,dia,mes,ano,extra1) values ('" & bloger & "','" & titular & "','" & cabecera & "','" & cuerpo & "','" & dia & "','" & mes & "','" & ano & "','" & extra1 & "')"

set RS = oConn.Execute(sSQL)

oConn.Close

' CONSULTO ID INSERTADO

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From " & tabla & " where blogger='" & bloger & "' order by id desc"
set RS = Conn.Execute(sSQL)

id = rs("id")

Conn.Close

%>

<head>
<title></title>
</head>

<body bgcolor="#FFFFFF">
<table border="2" width="100%" id="table1" cellspacing="0" bordercolor="#003399">
	<tr>
		<td>
		<p align="center"><b><font face="Trebuchet MS" color="#003399" size="4">
		ARTICULO INSERTADO CORRECTAMENTE</font></b></td>
	</tr>
</table>
<p align="center"><font face="Trebuchet MS" size="5" color="#FF0000">¡¡¡ No se 
olvide de subir al servidor la/s fotografía/s !!!</font></p>
<form method="POST" action="presubirfotos.asp?id=<%=id%>">
	<p align="center">
	<input type="submit" value="Continuar..." tabindex="1" style="font-family: Trebuchet MS; font-size: 10pt; color: #FFFFFF; font-weight: bold; background-color: #003399"></p>
</form>
<p align="center">&nbsp;</p>
<p align="center"><font face="Trebuchet MS" size="2" color="#003399"><br>
</font></p>
</body>