Sub FrmModArticolo
id = GetHttpVariable("id",1)
if id>0 then
q = " Select * from Articoli where idArticolo="&id 
Set rs = Conn.Execute(q)
if not rs.Eof then
titolo = rs("Titolo")
autore = rs("autore")
emailAutore = rs("emailAutore")
FileXsl = rs("FileXsl")
breve = rs("breve")
testo = rs("testo")
NomeFile = rs("NomeFile")
%>
<a href="articoli.asp">Torna all'elenco degli articoli</a> - <a href="xml.asp?id=<%= id %>" target="_blank">Vedi XML</a><br>
<table border="0" cellpadding="0" cellspacing="0">
<tr><td colspan="2"><b>Modifica 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="5">
<input type="Hidden" name="id" value="<%=id%>">
<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" value="<%=NomeFile%>"></td></tr>
<tr><td><i>File Xsl:</i></td><td><input type="text" name="FileXsl" size="25" maxlength="255" value="<%=FileXsl%>"></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="<%=titolo%>" maxlength="255" size="50"></td></tr>
<tr><td><i>Autore:</i></td><td><input type="text" name="autore" value="<%=autore%>" maxlength="255" size="25"></td></tr>
<tr><td><i>Email Autore:</i></td><td><input type="text" name="emailAutore" value="<%=emailAutore%>" 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)"><%=breve%></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"><%=testo%></textarea></td></tr>
</table>
</td></tr>
<tr><td colspan="2"><input type="submit" value="Salva"></td></tr>
</form>
<%
else
response.redirect "articoli.asp"
End if
Else
response.redirect "articoli.asp"
End if
End Sub

Sub ModArticolo
titolo = replace(getHttpVariable("titolo",2),"'","''")
FileXsl = replace(getHttpVariable("FileXsl",2),"'","''")
breve = replace(getHttpVariable("breve",2),"'","''")
testo = replace(getHttpVariable("testo",2),"'","''")
NomeFile = replace(getHttpVariable("NomeFile",2),"'","''")
autore = replace(getHttpVariable("autore",2),"'","''")
emailAutore = replace(getHttpVariable("emailAutore",2),"'","''")
id = getHttpVariable("id",1)
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
response.write "ID:"&id
if id>0 then
UpdateSQL "articoli","titolo='"&titolo&"',FileXsl='"&FileXsl&"',Breve='"&breve&"',testo='"&testo&"',NomeFile='"&nomeFile&"',autore='"& autore &"',emailAutore='"&emailAutore&"'"," idArticolo="&id
response.redirect("articoli.asp?a=3&id="&id)
Else
response.redirect("articoli.asp")
End if
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