<%
if session("editor") = "" then
response.Redirect("index.asp")
end if
actualiza = Trim(Request.QueryString("actualiza"))
id = Trim(Request.QueryString("id"))
carpeta = Trim(Request.QueryString("carpeta"))
Set DB = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\" & DB_)
if actualiza = "si" then
tituloTxt = Trim(Request.Form("tituloTxt"))
pieTxt = Trim(Request.Form("pieTxt"))
introTxt = trim(Request.Form("introTxt"))
notaTxt = Trim(Request.Form("notaTxt"))
SQL = "UPDATE noticiasAtletas "
SQL = SQL & "SET titulo = '" & tituloTxt & "', "
SQL = SQL & "pie = '" & pieTxt & "', "
SQL = SQL & "introduccion = '" & introTxt & "', "
SQL = SQL & "nota = '" & notaTxt & "' "
SQL = SQL & "WHERE id = " & id
set rs = DB.execute(SQL)
response.Redirect("editaImgAtleta.asp?id=" & id & "&carpeta=" & carpeta)
end if
%>
Editar Noticia de Atleta - sportstime.com.mx
<%
if id <> "" then
muestraForma
else
seleccionaNota
end if
%>
<< Regresar | Menu
<%
sub muestraForma
SQL = "SELECT * FROM noticiasAtletas WHERE id = " & id
rs.open SQL, DB, 3, 3
%>
<%
end sub
sub seleccionaNota
SQL = "SELECT * FROM noticiasAtletas WHERE status = 'A' and carpeta = '" & carpeta & "'"
rs.open SQL, DB, 3, 3
%>
<%
rs.close
end sub
%>