% Function AcomodarTXT(txt) txt=Replace(txt, chr(34) ,"kuot") txt=Replace(txt, "'" ,"suot") acomodarTXT=txt End function set conn=Server.CreateObject("ADODB.Connection") conn.Open "berriotxoa" opcion=request.querystring("opcion") if opcion="insertar" then nombre=request.form("nombre") %> <%if nombre <> "" then 'Abrimos la conexion con la BD dim autor, id_articulo, titulo, cuerpo nombre=request.form("nombre") superseccion=request.form("superseccion") descriptivo=request.form("descriptivo") cuerpo=AcomodarTXT(request.form("cuerpo")) autor=request.form("autor") cuerpo2="" cuerpo=cuerpo2 & cuerpo sSQL="Insert Into subsecciones (nombre,superseccion,descriptivo,autor) Values ('" & nombre & "','" & superseccion & "','" & descriptivo & "','" & autor & "')" set RS= Conn.Execute(sSQL) 'response.write cuerpo sSQL2="Insert Into contenidos (descriptivo,cuerpo) Values ('" & descriptivo & "','" & cuerpo & "')" response.write ssql2 set RS2= Conn.Execute(sSQL2) 'response.redirect ("acel.asp")%> <% 'cerramos la conexion conn.close else %>