if InStr(6,Percorso,"")=0 then
oggetto=Request("oggetto")
dat=Request.Form("dat")
autore=Request.Form("autore")
posta= Request.Form("posta")
messaggio=Request.Form("messaggio")
percorso="no file allegato"
Response.write oggetto &"del giorno"& dat
SET CN= SERVER.CREATEOBJECT("ADODB.CONNECTION")
PERC=SERVER.MAPPATH("guest.mdb")
CN.OPEN("PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE="&PERC)
SET RSTINSERISCI= SERVER.CREATEOBJECT("ADODB.RECORDSET")
SET RSTINSERISCI=CN.EXECUTE ("INSERT INTO tab_guest (oggetto, dat, autore, posta, messaggio, percorso) VALUES ('"& oggetto &"', #"& dat &"#, '"& autore &"', '"& posta &"', '"& messaggio &"', '"& percorso &"')")
CN.CLOSE
SET CN=NOTHING
questo è script non recupera nessun dato dal form in quanto il response.write non stampa niente.
Il comando del form è:
<form name="form" enctype="multipart/form-data" method="post" action="control.asp" onsubmit="return controllo()">
<table align="center">
<tr>
<td> <b>Oggetto:</b> </td>
<td bgcolor="#E9E9E9">
<input type="text" name="oggetto" size="70" maxlenght="120">
</td>
</tr>
<tr>
<td height="2"> <b>Data:</b></td>
<td bgcolor="#E9E9E9" height="2">
<input type="text" name="dat" size="10" value="<%= date %>" disabled>
<input type="hidden" name="dat" value="<%= now %>">
</td>
</tr>
<tr>
<td> <b>Da:</b></td>
<td bgcolor="#E9E9E9">
<input type="text" name="autore" size="30" maxlenght="30">
</td>
</tr>
<tr>
<td> <b>Email:</b></td>
<td bgcolor="#E9E9E9">
<input type="text" name="posta" size="30">
</td>
</tr>
<tr>
<td> <b>Messaggio:</b></td>
<td bgcolor="#E9E9E9" bordercolor="#FFFFFF">
<textarea name="messaggio" wrap="VIRTUAL" cols="70" rows="7"></textarea>
</td>
</tr>
<tr>
<td><b>Allegato</b></td>
<td bgcolor="#E9E9E9"><input type="file" name="Percorso"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#E9E9E9"><div align="center">
<input type="submit" name="Submit" value="Invia Messaggio">
</div>
</td>
</tr>
</table>
</form>
ciao
