Invio mail da scheda annunci

il 30 marzo 2014 alle 12:09

3 messaggi dal 30 marzo 2014

Buongiorno a tutti e complimenti per il lavoro che fate...
E' pochissimo tempo che mi dedico ad asp, essendo da sempre orientato su php avrei quindi necessità di un vostro aiutino. Ho per le mani un sito di un agenzia immobiliare, nella pagina di visualizzazione delle varie schede dovrei aggiungere una "richiesta info" (form precompilato con dettagli)oppure invio mail di tutta scheda. Qualcuno gentilmente mi darebbe una dritta? Vi ringrazio.
Paolo

Rispondi Quoting

leotermo

il 30 marzo 2014 alle 20:48

22 messaggi dal 30 settembre 2013

ciao paolo,
puoi farlo in php.
In passato ho risolto con uno script semplice.
Dipende se il tuo provider ti da la possibilità di usare asp e php insieme.
comunque ho questo in asp gia pronto... provalo.
Spero di esserti stato di aiuto

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%


DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo 
  
invioA =  "info@tuosito.it"
    
invioDa =  "info@tuosito.it"

nomeDominio         = Request.ServerVariables("HTTP_HOST")
indirizzoIp          = Request.ServerVariables("REMOTE_ADDR") 
'questo ti serve per sapere da quale pagina arriva la richiesta di informazioni
modulo            = Request.ServerVariables("HTTP_REFERER")


  '*rilevo i campi del form
  
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

  '* creo gli oggetti cdosys sul server e li gestisco
  
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.tuosito.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .TextBody = "richiesta informazioni per l'immobile " & modulo & " da utente con indirizzo IP " & indirizzoIp & ""  & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.aspx');
</script>

Rispondi Quoting

stralis66

il 31 marzo 2014 alle 00:00

3 messaggi dal 30 marzo 2014

leotermo intanto ti ringrazio per la risposta. Avevo letto qualcosa in merito a cdosys. Comunque ho inserito il codice nella pagina "scheda,asp" ma nella posizione dove dovrei vedere la richiesta di invio info mi appare :"An error occurred on the server when processing the URL. Please contact the system administrator.
If you are the system administrator please click here to find out more about this error."
Questo perché probabilmente sono in locale.Appena potrò hostarlo su server win ti faccio sapere.
Intanto grazie ancora. Ciao

Paolo

Rispondi Quoting

leotermo

il 31 marzo 2014 alle 11:45

22 messaggi dal 30 settembre 2013

Ciao,
in locale non funziona.
E' testato - lo sto ancora utilizzando su un vecchio sito pubblicato su Aruba - funziona di sicuro.
Ma questo è il file che riceve le informazioni dal forms della pagina "scheda". Devi creare 3 pagine: una con il codice che ti ho scritto, una che ringrazia o che dice "email inviata" e la pagina "scheda" che contiene i forms con le textbox.
Sei sicuro che il tutto lo vuoi fare in asp? Ci sono tante soluzioni più evolute!

Modificato da leotermo il 31 marzo 2014 11.51 -

Rispondi Quoting

MdmSoft

il 31 marzo 2014 alle 13:22

10 messaggi dal 15 giugno 2011
www.mdmsoft.it

Ciao Paolo,
ti suggerisco due link dove trovi i metodi per inviare email.

Versione ASP.NET
http://www.mdmsoft.it/code-snippets/post/a-simple-c-sharp-method-to-send-emails-in-html-format.aspx

Versione PHP
http://www.mdmsoft.it/code-snippets/post/send-html-email-with-php.aspx

Il codice è abbastanza semplice, puoi modificarlo per le tue esigenze.

Rispondi Quoting

stralis66

il 31 marzo 2014 alle 21:20

3 messaggi dal 30 marzo 2014

Grazie a tutti e due per l'aiuto. IL sito in questione non è fatto da me ma l'azienda che lo curava è fallita ed il cliente (mio amico) mi ha chiesto di metterci mano. Tutta la parte che gestiva gli annunci faceva parte di un software di cui erano presenti solo i puntamenti alle varie pagine. Vi posto il codice della pagina, vorrei inserire il form giusto nel div sotto contatti...che ne dite?
Grazie ancora per l'aiuto.
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<%
ID=request("Id")
Dim OBJdbConnection, RS, SQL, FlagVuoto
FlagVuoto=0
SQL = "SELECT * FROM residenziale where id = " & ID
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("immobili.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, OBJdbConnection
%>
<head>
<title>Residenziale</title>
<link rel="STYLESHEET" type="text/css" href="style.css">
<style type="text/css">
body {
background-image: url(images/fondo2.jpg);
}
</style>
<script src="js/preferiti.js" type="text/javascript"></script>
<script src="js/stampa.js" type="text/javascript"></script>
<script src="js/hover.js" type="text/javascript"></script>
<script src="js/autosize.js" type="text/javascript"></script>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>

<body onLoad="goforit()">


<table style="width: 730px;" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="top">
<td style="width: 200px;">
<td align="right" valign="bottom"> </td>
</tr>
<tr>
<td colspan="3"><hr size="1" color="#C0C0C0" noshade></td>
</tr>
<tr>
<td colspan="2"><div align="center"></div></td>
<td></td>
</tr>
</table>



<br style="line-height: 20px;">



<table style="width: 730px;" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" bgcolor="#C3C3C3"><img src="images/blank.gif" width="1" height="6" hspace="0" vspace="0" border="0"></td>
</tr>
<tr>
<td height="100%" style="width: 440px;">

<div style="padding: 1px 10px 0px 40px; border: #A4A4A4 1px solid; border-bottom: 0px; border-right: 0px;">
<table width="85%" border="0" cellspacing="0" cellpadding="0">
<tr valign="middle">
<td class="text2"><span class="titolo">Affitto</span></td>
<td align="right" class="text2"><b>
<%If rs("giudizio")=1 Then%>
(nostro giudizio *)
<%ElseIf rs("giudizio")=2 Then%>
(nostro giudizio **)
<%ElseIf rs("giudizio")=3 Then%>
(nostro giudizio ***)
<%ElseIf rs("giudizio")=4 Then%>
(nostro giudizio ****)
<%ElseIf rs("giudizio")=5 Then%>
(nostro giudizio *****)
<%End If%>
</b></td>
</tr>
</table></div>

<div id="divCont3" class="text">

<table width="100%" border="0" cellspacing="2" cellpadding="2" style="direction: ltr;">
<tr valign="top">
<td colspan="2">
<%If rs("foto1")<>"" Then%>
<img src="schede/<%=rs("foto1")%>" width="250" height="200" border="1" style="border: 1px solid #F3B79B;">
<%Else%>
<img src="schede/blank_img_big.jpg" width="250" height="200" border="1" style="border: 1px solid #F3B79B;">
<%End If%>
</td>
</tr>
<tr valign="middle">
<td class="text2" style="padding-top: 15px;">
<%If rs("foto2")<>"" Then%>
<a href="javascript:void(0)" onclick="popImmagine('schede/<%=rs("foto2")%>','#FF6825')" class="photo"><img src="images/blank.gif" width="9" height="9" border="0"></a>
<%End If
If rs("foto3")<>"" Then%>
<a href="javascript:void(0)" onclick="popImmagine('schede/<%=rs("foto3")%>','#FF6825')" class="photo"><img src="images/blank.gif" width="9" height="9" border="0"></a>
<%End If
If rs("foto4")<>"" Then%>
<a href="javascript:void(0)" onclick="popImmagine('schede/<%=rs("foto4")%>','#FF6825')" class="photo"><img src="images/blank.gif" width="9" height="9" border="0"></a>
<%End If
If rs("foto5")<>"" Then%>
<a href="javascript:void(0)" onclick="popImmagine('schede/<%=rs("foto5")%>','#FF6825')" class="photo"><img src="images/blank.gif" width="9" height="9" border="0"></a>
<%End If
If rs("foto6")<>"" Then%>
<a href="javascript:void(0)" onclick="popImmagine('schede/<%=rs("foto6")%>','#FF6825')" class="photo"><img src="images/blank.gif" width="9" height="9" border="0"></a>
<%End If%>
  <b>altre fotografie</b></td>
<td align="right" class="text2" style="padding-top: 15px;"><b>agenzia di riferimento</b> <a href="#visita"><img src="images/ico_visita.gif" border="0" hspace="3" vspace="0" align="absmiddle" WIDTH="25" HEIGHT="23"></a></td>
</tr>
</table>

<br clear="All">
</div>

</td>
<td style="width: 290px;">
<div style="padding: 7px 10px 7px 20px; border: #A4A4A4 1px solid; border-bottom: 0px;"><img src="images/schedatecnica.gif" border="0" WIDTH="93" HEIGHT="10"></div>
<div id="divCont2" align="justify" class="text">



<div class="list4">Zona</div>
<div class="list3"><%=rs("comune")%>, <%=rs("zona")%></div>
<br style="line-height: 10px;">

<div class="list4">Quartiere</div>
<div class="list3"><%=rs("quartiere")%></div>
<br style="line-height: 10px;">

<div class="list4">Tipologia</div>
<div class="list3"><%=rs("tipologia")%></div>
<br style="line-height: 10px;">

<div class="list4">Superfici indicative</div>
<div class="list3">
<%=rs("mq_int")%> Mq. commerciali<br>
<%=rs("mq_est")%> Mq. esterni</div>
<br style="line-height: 10px;">

<div class="list4">Numero camere letto </div>
<div class="list3"><%=rs("camere")%></div>
<br style="line-height: 10px;">

<div class="list4">Disponibile da </div>
<div class="list3"><%=rs("disponibile")%></div>
<br style="line-height: 10px;">

<div class="list4">Canone mensile indicativo </div>
<div class="list3">. <%=rs("canone")%></div>
<br style="line-height: 10px;">

<table border="0" cellspacing="0" cellpadding="2">
<%If rs("vuoto")="1" then%>
<tr><td>vuoto </td></tr>
<%End If%>
<%If rs("arredato")="1" then%>
<tr><td>arredato </td></tr>
<%End If%>
<%If rs("semiarredato")="1" then%>
<tr><td>semiarredato </td></tr>
<%End If%>
<%If rs("cucina")="1" then%>
<tr><td>cucina arredata </td></tr>
<%End If%>
<%If rs("ascensore")="1" then%>
<tr><td>ascensore </td></tr>
<%End If%>
<%If rs("portineria")="1" then%>
<tr><td>portineria </td></tr>
<%End If%>
<%If rs("auto")="1" then%>
<tr><td>posti auto </td></tr>
<%End If%>
<%If rs("terrazzo")="1" then%>
<tr><td>terrazzo </td></tr>
<%End If%>
<%If rs("giardino_cond")="1" then%>
<tr><td>giardino condominiale </td></tr>
<%End If%>
<%If rs("giardino")="1" then%>
<tr><td>giardino privato </td></tr>
<%End If%>
<%If rs("riscaldamento")="1" then%>
<tr><td>riscaldamento autonomo </td></tr>
<%End If%>
<%If rs("allarme")="1" then%>
<tr><td>impianto allarme </td></tr>
<%End If%>
<%If rs("tvsat")="1" then%>
<tr><td>impianto TV Sat </td></tr>
<%End If%>
<%If rs("aria")="1" then%>
<tr><td>aria condizionata </td></tr>
<%End If%>
<%If rs("idromassaggio")="1" then%>
<tr><td>idromassaggio </td></tr>
<%End If%>
<%If rs("tapparelle")="1" then%>
<tr><td>tapparelle elettriche </td></tr>
<%End If%>
<%If rs("porta")="1" then%>
<tr><td>porta blindata </td></tr>
<%End If%>
<%If rs("lavanderia")="1" then%>
<tr><td>lavanderia </td></tr>
<%End If%>
<%If rs("illuminazione")="1" then%>
<tr><td>impianto di illuminazione </td></tr>
<%End If%>
<%If rs("trattativa_ris")="1" then%>
<tr><td>trattative riservate </td></tr>
<%End If%>
<%If rs("intrattativa")="1" then%>
<tr><td>in trattativa</td></tr>
<%End If%>
</table><br>
<br style="line-height: 5px;">

<div style="padding: 10px 10px 10px 10px; border: #FF6825 1px solid;">
<div class="list4">Numero di riferimento</div>
<div class="list3"><%=rs("riferimento")%></div>
<br style="line-height: 10px;">

<a name="visita"><div class="list4">Agente responsabile</div></a>
<div class="list3"><%=rs("agente")%></div>
<br style="line-height: 10px;">

<div class="list4">Contatto telefonico</div>
<div class="list3"><%=rs("contatto")%></div>
<br style="line-height: 10px;">
</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align="justify" class="text" style="padding: 5px 10px 5px 10px; border: #A4A4A4 1px solid; border-top: 0px;">

<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr valign="middle">
<td><a href="javascript:preferiti()" class="0"><img src="images/ico_salva.gif" hspace="3" vspace="0" border="0" align="absmiddle" WIDTH="18" HEIGHT="16"> aggiungi preferiti</a>   <a href="javascript:history.go(-1)" class="0"><img src="images/ico_back.gif" hspace="3" vspace="0" border="0" align="absmiddle" WIDTH="18" HEIGHT="16"> indietro</a></td>
<td align="right"><a href="javascript:stampa()" class="0">stampa questa pagina <img src="images/ico_stampa.gif" hspace="3" vspace="0" border="0" align="absmiddle" WIDTH="18" HEIGHT="16"></a></td>
</tr>
</table>
</div>
</td>
</tr>
</table>



<table style="width: 730px;" border="0" cellspacing="0" cellpadding="0" align="center">
<tr valign="top">
<td class="ora"><div style="width: 430px; margin-top:100px;"><img src="images/mark_p.gif" hspace="10" vspace="2" border="0" align="left" WIDTH="30" HEIGHT="30">Le informazioni contenute in questo sito sono da considerarsi puramente indicative e non hanno nessun titolo ne presupposto contrattuale.</div></td>

<td align="right" style="padding-top: 15px;">


<div align="left" class="text" style="padding: 5px 10px 5px 10px; border: #A4A4A4 1px solid; border-bottom: 0px; width: 165;"><img src="images/legenda.gif" hspace="0" vspace="0" border="0" WIDTH="52" HEIGHT="10"></div>
<div align="left" class="text" style="padding: 5px 10px 5px 10px; border: #A4A4A4 1px solid; width: 165;">

<table>
<tr valign="top">
<td align="right" class="list4">*</td>
<td class="list4">necessita di lavori </td></tr>
<tr valign="top">
<td align="right" class="list4">**</td>
<td class="list4">qualche lavoro da fare </td></tr>
<tr valign="top">
<td align="right" class="list4">***</td>
<td class="list4">condizioni normali </td></tr>
<tr valign="top">
<td align="right" class="list4">****</td>
<td class="list4">ottimo </td></tr>
<tr valign="top">
<td align="right" class="list4">*****</td>
<td class="list4">lusso</td></tr>
</table>

</div>


</td>
</tr>
</table>

</body>
</html>

Rispondi Quoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.

Community

Corsi e consulenza

In primo piano

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7

I più letti di oggi

In evidenza

Misc

Utilizziamo i cookie per analisi, contenuti personalizzati e pubblicità.

.NET Conference Italia 2024 - Milano

.NET Conference Italia 2023 - Milano e Online

Le novità di .NET 7 e C# 11

Le novità in ASP.NET Core e Blazor con .NET 7