<%
Dim strConnString, oConn, oRS, oFld
Set oConn = Server.CreateObject("ADODB.Connection")
strConnString = Application("conectar")
oConn.Open strConnString
%>
News Comicvia.
<%
if request.form("x") = 1 then
Dim conexion, registros, basedatos
Set actualiza = Server.CreateObject("ADODB.Connection")
actualiza.Open oConn
actualiza.execute "update noticiasinicio set autor ='"&Request.form("autor")&"', titulo ='"&Request.form("titulo")&"', noticia ='"&Request.form("noticia")&"' where id = " & Request.form("iddic") & ""
end if
%>
<%
Dim conexion12, registros12, basedatos12
Set conexion12 = Server.CreateObject("ADODB.Connection")
conexion12.Open oConn
Set registros12 = conexion12.execute("SELECT * FROM noticiasinicio where id = " & request.querystring("tipo") & "")
x = 0
response.write registros12("titulo")
%>