Lo script si articola in tre differenti includes, che posterò di seguito separate da una linea.

La prima include contiene il form di inserimento.
La seconda una confirm javascript di inserimento messaggio.
La terza l'inserimento fisico nel DB.

<table cellpadding="0" cellspacing="0" width="400" border="0">
<tr>
<td colspan="2">
<table width="100%" cellpadding="0" cellspacing="0">
<tr>

<td colspan="2" align="center">Inserisci voce menu</td>
</tr>
</table>
</td>
</tr>
<form name="menudata" action="?action=8" method="post">
<tr>
<td align="left">voce</td><td align="left"><input size="40" class="form" type="text" name="voce"></td>
</tr>
<tr>
<td align="left">link</td><td align="left"><input size="40" class="form" type="text" name="link"></td>
</tr>
<tr>
<td align="left">posizione</td><td align="left">
<input size="1" class="form" name="posizione" type="text">

</td>
</tr>
<tr><td>Sottovoce di:</td><td>
<select name="id_padre">
<option value="0">Niente</option>
<%SqlFindCat="select * from menu where id_padre=0"

Set rsFindCat = Server.CreateObject("ADODB.Recordset")
rsFindCat.Open SqlFindCat, conn, 3, 3 %>

<%if not rsFindCat.eof then
do while not rsFindCat.eof%>
<option value="<%=rsFindCat("id")%>"><%=rsFindCat("voce")% ></option>
<%
rsFindCat.movenext
loop
end if
%>
</select>
<%
rsFindCat.close
set rsFindCat=nothing
%>
</td>
</tr>
<tr>
<td align="left">Visibile?</td><td align="left">
<select name="visibile">
<option value="1">Sì</option>
<option value="0">No</option>
</select>
</td>
</tr> <tr>
<td colspan="2" align="center" valign="bottom" height="35">
<input type="submit" value="Inserisci"/>
</td>
</tr>

</form>
</table>


__________________________________________________ __________________________________


<%
voce=request("voce")
link=request("link")
posizione=request("posizione")
id_padre=request("id_padre")
visibile=request("visibile")
%>
<script language="javascript">
if (confirm("Sei sicuro di voler inserire questa voce menu?"))
{
document.location.href("?action=9&voce=<%=replace( voce,"''","'")%>&link=<%=replace(link,"''","'")%>& posizione=<%=posizione%>&visibile=<%=visibile%>&id _padre=<%=id_padre%>");
}
else
{
document.location.href("?action=1");
}
</script>


__________________________________________________ _________________________________

<%
voce=replace(request("voce"),"'","''")
link=replace(request("link"),"'","''")
visibile=request("visibile")
posizione=request("posizione")
id_padre=request("id_padre")

Addmenu="insert into menu (voce,link,visibile,posizione,id_padre) values ('" & voce & "','" & link & "'," & visibile & "," & posizione & "," & id_padre & ")"

'response.Write(addmenu)
'response.End()

conn.execute(Addmenu)

sql="select id from menu"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, conn, 3, 3

rs.movelast

id=rs("id")

rs.close
set rs=nothing

%>
<script language="javascript">
window.alert("Voce menu Inserita")
if (confirm("Vuoi associare un\'immagine a questa voce menu?"))
{
document.location.href("gest_menu.asp?action=10&id =<%=id%>&tabella=menu")
}
else
{
document.location.href("gest_menu.asp")
}
</script>
__________________________________________________ ___________

Successivamente, vi è un'operazione di upload immagine che non ci interessa particolarmente in questo caso.