Salve ragazzi, devo modificare un sito che già consente l'invio di una mail al webmster.
Non ho mai programmato in asp e non so dove mettere le mani
A quanto ho capito leggendo il forum, esistono diverse possibilità per creare la mail, e il mio sito usa CDONTS.
Per ora sono riuscita a fare solo la (banale) modifica di far aprire la finestra "Sfoglia" ma già non riesco a capire come fare l'upload sul server (aruba nel mio caso).
Qualcuno può indicarmi degli esempi che vadano bene nel mio contesto?
O devo modificare tutto e passare a CDOSYS?!?
Vi ringrazio tantissimo dell'aiuto!!!!
Queste le due pagine asp (c'è anche inserito CAPTCHA per evitare lo spam):
invio.asp
<html>
<head>
<title>contatti</title>
<style>
body {scrollbar-face-color: #A77F48;
scrollbar-shadow-color: #50422E;
scrollbar-highlight-color: #EBCEA4;
scrollbar-3dlight-color: #50422E;
scrollbar-darkshadow-color: #330000;
scrollbar-track-color: #D7AD74;
scrollbar-arrow-color: #EBCEA4}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body background="legno8.jpg">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="90%">
<tr>
<td width="100%" background="legno8.jpg" valign="baseline">
<form name="form1" method="post" action="mail.asp">
<p align="center">[img]titolo_contatti.gif[/img]</p>
<table width="574" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="247"><font face="Comic Sans MS" color="#663300" size="2"><font size="3">Inserisci
il tuo nome:</font></font></td>
<td width="327"> <font face="Verdana" size="1">
<input type="text" name="nome" size="30">
</font> </td>
</tr>
<tr>
<td width="247"><font face="Comic Sans MS" size="2" color="#663300"><font size="3">Inserisci
il tuo indirizzo e-mail:</font></font></td>
<td width="327"> <font face="Verdana" size="1">
<input type="text" name="email" size="30">
</font> </td>
</tr>
<tr>
<td colspan="2"><font face="Comic Sans MS" size="2" color="#663300"><font size="3">
Inserisci
una immagine (formato gif o jpg, max 600x400 e 100 k):</font></font></td>
</tr>
<tr>
<td width="247" valign="top"><font face="Verdana" size="2" color="#663300"><font face="Comic Sans MS" size="3">
<input name="imm" type="file" size="40" accept="image/gif,image/jpeg" />
</font></font></td>
<td width="327">
<font face="Verdana" size="1">
<input name="upload" type="submit" value="Carica immagine" />
</font></p>
</p>
</td>
</tr>
<tr>
<td width="247" valign="top"><font face="Verdana" size="2" color="#663300"><font face="Comic Sans MS" size="3">Inserisci
il testo:</font></font></td>
<td width="327">
<font face="Verdana" size="1">
<textarea name="mex" rows="10" cols="50" wrap="VIRTUAL"></textarea>
</font></p>
</p>
</td>
</tr>
</table>
<font face="Verdana" size="1">
<input type="submit" name="Submit" value="Invia al webmaster">
<input type="reset" name="reset" value="Cancella">
</font> </p>
</form>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
mail.asp
<%
Set link = CreateObject("CDONTS.Newmail")
link.From = request.form("email")
link.To = "webmaster@snupi.net"
link.Subject = "Webmaster, c'è un'email dal sito www.snupi.net"
link.Body = request.form("mex")
link.Send
Set link = Nothing
%>
<html>
<head>
<title>inviata</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body background="legno8.jpg">
<p align="left"><font face="Comic Sans MS" size="4" color="#663300"><font face="Comic Sans MS">Caro
visitatore</font></font><font face="Comic Sans MS" size="4" color="#663300">
<%Response.Write(request.Form ("nome"))%>
<font face="Comic Sans MS"><font color="#663300">( indirizzo mail fornito:</font></font>
<%Response.Write(request.Form ("email"))%>
<font face="Comic Sans MS" color="#663300">)</font>
<font face="Comic Sans MS"><font color="#663300">Hai scritto questo messaggio
al Webmaster del sito www.snupi.net :</font></font>
</font></p>
<div align="left">
<table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="legno8.jpg" width="500">
<div align="left"><font face="Comic Sans MS" size="4" color="#663300">
<%Response.Write(request.Form ("mex"))%>
</font></div>
</td>
</tr>
</table>
</div>
<p align="center"></p>
</p>
</body>
</html>
<%
If blnCAPTCHAcodeCorrect = True Then
Response.Write("<font size=4 font face='Comic Sans MS' color=#663300> ")
Response.Write(" ...ed il codice di sicurezza inserito è corretto ")
Response.Write(" quindi il tuo messaggio è stato inviato!
")
Response.Write("Grazie!")
Response.Write(" </font>")
ElseIf blnCAPTCHAcodeCorrect = False Then
Response.Write("<font size=4 font face='Comic Sans MS' color=#663300> ")
Response.Write(" ...ma il codice di sicurezza da te inserito non e' valido, ")
Response.Write(" quindi il messaggio non e' stato inviato!
")
Response.Write(" Clicca sul tasto Contatti e riprova.")
Response.Write(" </font>")
End If
%>
Rispondi quotando
