<%sub FrmInsArticolo%>
	<table border="0" cellpadding="0" cellspacing="0">
	<tr><td colspan="2"><b>Inserisci un Nuovo Articolo:</b></td></tr>
	<form method="post" action="articoli.asp" name="form"><script language="JavaScript">
	function controllaLunghezza(Target,Obj) {
	StrLen = Target.value.length;
	if (StrLen>255){
		Target.value = Target.value.substring(0,255)
	 }
	 Obj.value = Target.value.length
	}
	</script>
	<input type="Hidden" name="a" value="4">
	<tr><td colspan="2">
		<table>
		<tr><td bgcolor="#0000ff" colspan="2"><font face="Arial" color="#FFFFFF"><b>Infomazioni Generazione:</b></font></td></tr>
		<tr><td><i>Nome File:</i></td><td><input type="text" name="NomeFile" size="25" maxlength="255"></td></tr>
		<tr><td><i>File Xsl:</i></td><td><input type="text" name="FileXsl" size="25" maxlength="255"></td></tr>
		</table>
	</td></tr>
	<tr><td colspan="2">&nbsp;</td></tr>
	<tr><td colspan="2">
		<table>
		<tr><td bgcolor="#0000ff" colspan="2"><font face="Arial" color="#FFFFFF"><b>Specifiche Articolo:</b></font></td></tr>
		<tr><td><i>Titolo:</i></td><td><input type="text" name="titolo" value="" maxlength="255" size="50"></td></tr>
		<tr><td><i>Autore:</i></td><td><input type="text" name="autore" value="" maxlength="255" size="25"></td></tr>
		<tr><td><i>Email Autore:</i></td><td><input type="text" name="emailAutore" value="" maxlength="255" size="25"></td></tr>
		<tr><td><i>Breve (MAX 255 Caratteri):</i></td><td><input type="text" name="len" size="3" maxlength="3" value="<%= len(breve)%>"></td></tr>
		<tr><td colspan="2" align="center"><textarea cols="40" rows="10" name="breve" onFocus="controllaLunghezza(this,'document.form.len')" onKeyUp="controllaLunghezza(this,document.form.len)"></textarea></td></tr>
		<tr><td colspan="2" ><i>Testo:</i></td></tr>
		<tr><td colspan="2" align="center"><textarea cols="40" rows="10" name="testo"></textarea></td></tr>
		</table>
	</td></tr>
	<tr><td colspan="2"><input type="submit" value="Salva"></td></tr>
	</form>
	</table><%
End Sub

Sub InsArticolo
titolo = getHttpVariable("titolo",2)
FileXsl = getHttpVariable("FileXsl",2)
breve =  getHttpVariable("breve",2)
testo =  getHttpVariable("testo",2)
autore = getHttpVariable("autore",2)
emailAutore = getHttpVariable("emailAutore",2)
NomeFile =  getHttpVariable("NomeFile",2)
canInsert = True
if not(len(titolo)>0) or not(len(breve)>0) or not(len(testo)>0) then
	canInsert = False
End if
if not(len(FileXsl)>0) then
	canInsert = False
End if
if not(len(NomeFile)>0) then
	canInsert = False
End if
if canInsert=True then
	'Inserire qui i valori
	CampoValori = "'"& replace(titolo,"'","''")&"','"&replace(FileXsl,"'","''")&"','"& replace(breve,"'","''") &"','"& replace(testo,"'","''")&"','"& replace(NomeFile,"'","''")&"','"& replace(autore,"'","''") &"','"& replace(emailAutore,"'","''") &"'"
	idArticolo = InsertSQL("Articoli","idArticolo","titolo,FileXsl,breve,testo,NomeFile,autore,emailAutore",CampoValori)
	response.redirect ("articoli.asp?a=3&id="&idArticolo)
Else
	%>Impossibile salvare i seguenti dati!! Completare tutti i campi.<br>Premere <a href="#" onclick="history.back()">qui</a> per tornare indietro!<%
End if
End sub