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,"'","''")
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
%>
<script language="javascript">
function showpic()
{
if (!document.images)
return
document.images.pictures.src=
"images/" + document.nyheter.bild.options[document.nyheter.bild.selectedIndex].value
}
</script>
<link href="style.css" rel="stylesheet" type="text/css">
<form name="nyheter" id="nyheter" method="post" action="nyheter.asp?action=add">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" class="ruta">
<tr class="rubrik">
<td colspan="2" >Aggiungi News</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td colspan="2">
<font size="1">TITOLO:
</font> <input type="text" class="inmatning" name="rubrik" value=<% =txtRubrik %>>
</td>
</tr>
<tr>
<td colspan="2">
<font size="1">SOMMARIO:
<textarea name="ingress" cols="100" rows="5" class="inmatning"></textarea>
</font></td>
</tr>
<tr>
<td colspan="2">
<font size="1">TESTO ARTICOLO:</font>
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "/public/fckeditor/"
oFCKeditor.Value = ""
oFCKeditor.Create "FCKeditor1"
%>
</td>
</tr>
<tr>
<td height="-4" colspan="2" valign="top">
<font size="1">IMMAGINE:</font></td>
</tr>
<tr>
<td width="60" height="0">[img]<% =strImageFolder %>no_image.jpg[/img]
</td>
<td width="540" valign="top"><select name="bild" size="10" class="inmatning" onChange="showpic()">
<%
response.write "<option selected value=no_image.jpg></option>"
For Each objFile in objFolder.Files
if right(objFile, 3) = "jpg" or right(objFile, 3) = "gif" or right(objFile, 4) = "jpeg" then
Response.Write "<option value=" & objFile.name & ">" & objFile.Name & "</option>"
end if
Next
%>
</select></td>
</tr>
<tr>
<td height="2" colspan="2" valign="top"></td>
</tr>
<tr>
<td height="7" colspan="2" valign="top">
<font size="1">IMMAGINE
TESTO:</font>
<input name="bildtext" type="text" class="inmatning" value="<% =txtBildtext %>">
</p></td>
</tr>
<tr>
<td height="17" colspan="2" valign="top"></td>
</tr>
<tr>
<td colspan="2">
<font size="1">AUTORE / EMAIL:</font>
<input name="forfattare" type="text" class="inmatning" value="<% =txtForfattare %>">
/
<input name="eforfattare" type="text" class="inmatning" value="<% =txtEforfattare %>" size="30">
</td>
</tr>
<tr>
<td colspan="2"><input name="Submit" type="submit" class="input" value="INVIA"></td>
</tr>
<tr>
<td > </td>
</tr>
</table>
</form>