<%@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 %>
Rispondi quotando
