<%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"> </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