!--# Include file ="../ conn/dbconn1.asp "-
!--# Include file ="../ inc / safe.asp "-
%
content = Replace_Text (Request.Form ("inhoud"))
content = vervangen (content ," ","[")
content = vervangen (content ," ","]")
newsid Replace_Text = (Request.Form ("newsid"))
ip = Request.Form ("OT")
rname = Replace_Text (Request.Form ("rname"))
rname = vervangen (rname ," ","[")
rname = vervangen (rname ," ","]")
'Gebruikersnaam = Replace_Text (Request.Form ("gebruikersnaam"))
'Gebruikersnaam = vervangen (gebruikersnaam ," ","[")
'Gebruikersnaam = vervangen (gebruikersnaam ," ","]")
'Gepubliceerde inhoud is slecht taalverwerking
Set rs = Server.CreateObject ("adodb.recordset")
sql = "select backup bin conf config gegevens eshow_sitemap.html generate.sh log maint sitemap.html svn tmp van badword"
rs.open sql, conn, 3,3
Als rs.eof dan
Response.Write ("mei ziliao!")
anders
On Error Resume Next
doen, terwijl niet rs.bof en niet rs.eof
content = replace (inhoud, rs.fields ("woord"). waarde ,"**")
rname = replace (rname, rs.fields ("woord"). waarde ,"**")
rs.MoveNext
lus
end if
rs.close
Set rs = niets
''''''''''''''''''''''''''''''
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = "select backup bin conf config gegevens eshow_sitemap.html generate.sh log maint sitemap.html svn tmp van pl"
rs.open sql, conn, 3,3
rs.addnew
rs ("inhoud") = content
rs ("newsid") = newsid
rs ("ip") = ip
rs ("rname") = rname
rs ("gebruikersnaam") = gebruikersnaam
rs.update
rs.close
%
%
set RSN = Server.CreateObject ("adodb.recordset")
sqln = "select newsid, plnum, plbz van nieuwssites waar newsid =" & newsid & ""
rsn.open sqln, Conn, 1,3
RSN ("plnum") = RSN ("plnum") +1
RSN ("plbz") = 1
rsn.update
rsn.close
%
script
alert ("met succes gelanceerd!")
parent.location.href = "shownews.asp? newsid = % = newsid% "
/ Script