<% set rsOldnews = connect.execute("select id, rubrik, visa from nyheter order by visa desc") select case request("action") case "add" txtRubrik=request.form("rubrik") txtIngress=request.form("ingress") txtNyheter=request.form("meddelande") txtBild=request.form("bild") txtBildtext=request.form("bildtext") txtForfattare=request.form("forfattare") txtEforfattare=request.form("eforfattare") txtNyheter=Replace(txtNyheter,"'","''") txtNyheter=Replace(txtNyheter,"fitta","grotta") txtNyheter=Replace(txtNyheter,"fitt","grott") txtNyheter=Replace(txtNyheter,"kuk","pinne") txtRubrik=Replace(txtRubrik,"'","''") txtBildtext=Replace(txtBildtext,"'","''") txtIngress=Replace(txtIngress,"'","''") connect.execute ("insert into nyheter (ingress, rubrik, nyheter, bild, bildtext, forfattare, eforfattare, visa) values ('" & txtIngress & "','" & txtRubrik & "','" & txtNyheter & "','" & txtBild & "','" & txtBildtext & "','" & txtForfattare & "','" & txtEforfattare & "',1)") response.redirect "list.asp" end select %>
Add Article/News
Menu
Title:
>
Summary:
Article text:
Main image:
<% response.write "
" For Each objFile in objFolder.Files if right(objFile, 3) = "jpg" or right(objFile, 3) = "gif" or right(objFile, 4) = "jpeg" then Response.Write "
" & objFile.Name & "
" end if Next %>
Image text:
Author name/e-mail:
/
