<%@language="Vbscript" %>
<%
dim email
if request.form("sub")="invia" then
set email=server.createobject=("cdonts.newmail")
email.from=request("tuaemail")
email.to="email@prova.it"

email.object=request("oggetto")
email.body=request("messaggio")






email.send

set email=nothing
else
%>
<html>


<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>email</title>
</head>

<body>

<form method="POST" action="email.asp">
< <input type="text" name="tuaemail" size="20">
<<input type="text" name="oggetto" size="20">
<textarea rows="2" name="messaggio" cols="20"></textarea>
<input type="submit" value="Invia" name="sub"></p>






</form>

</body>

</html>
<% end if %>