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

<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<%
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"

' CONSULTO ENTRADAS PUBLICADAS

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)

%>
<form method="POST" action="presubirfotos.asp">
	<p align="center"><font face="Trebuchet MS" size="2" color="#3366CC">
	Seleccione la entrada a la que desea añadir o modificar alguna fotografía:</font></p>
	<p align="center"><select size="1" name="id" tabindex="1">
	<option selected value="0">Seleccione una entrada</option>
<%
do while not rs.eof

id = rs("id")
titular = rs("titular")
dia = rs("dia")
mes = rs("mes")
ano = rs("ano")
%>
	<option value="<%=id%>"><%=titular%> (<%=dia%>/<%=mes%>/<%=ano%>)</option>
<%


rs.movenext

loop

Conn.Close

%>
	</select></p>
	<p align="center">
	<input type="submit" value="siguiente" name="B1" style="font-family: Trebuchet MS; font-size: 10pt; color: #FFFFFF; font-weight: bold; background-color: #003399" tabindex="2"></p>
</form>
</body>

</html>