<%
if session("editor") = "" then
response.Redirect("index.asp")
end if
tipo = cint(Request.QueryString("tipo"))
if not verifica(tipo) then
response.Redirect("menu.asp")
end if
actualiza = Trim(Request.QueryString("actualiza"))
id = Trim(Request.QueryString("id"))
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 " & tipos(tipo) & " "
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("editaImg.asp?tipo=" & tipo & "&id=" & id)
end if
%>
Editar Noticia - <%= titulos(tipo) %> - sportstime.com.mx
<%
if id <> "" then
muestraForma
else
seleccionaNota
end if
%>
<<Regresar al menu
<%
sub muestraForma
SQL = "SELECT * FROM " & tipos(tipo) & " WHERE id = " & id
rs.open SQL, DB, 3, 3
%>
<%
end sub
sub seleccionaNota
SQL = "SELECT * FROM " & tipos(tipo) & " WHERE status = 'A'"
rs.open SQL, DB, 3, 3
%>
<%
rs.close
end sub
%>