Recuperare i campi tramite l'upload di Baol

**bibuz** · 23-09-2008, 16:28

Ciao ragazzi risolto il problema dell'invio con 3 allegati.

Ora però mi si è presentato il problema del recupero dei valori del form e della loro scrittura nel corpo della mail.
So che con con l'upload di Baol nn si utilizza il Request.form ma oUpload.form e perciò ho usato quest'ultimo merodo, ma mi restituisce errore.
Questo è il form:

codice:

<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
      <table width="500" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td colspan="3" align="left" class="moduli">Benvenuto Sig.: <%=(rsUtenti.Fields.Item("nome").Value)%><%=(rsUtenti.Fields.Item("cognome").Value)%></td>
        </tr>
        <tr>
          <td colspan="3" align="center"><span class="moduli">[img]immagini/null.gif[/img]</span></td>
        </tr>
        <tr>
          <td colspan="3" align="center" class="titoli">Modulo richiesta nuovo punto vendita Bose </td>
        </tr>
        <tr>
          <td colspan="3"><span class="moduli">[img]immagini/null.gif[/img]</span></td>
        </tr>
        <tr>
          <td colspan="3" align="left" class="moduli">Ragione Sociale
            <label></label></td>
          </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
          </tr>
        <tr>
          <td colspan="3" align="left" class="moduli"><input name="ragioneSociale" type="text" class="moduli" id="ragioneSociale" size="40" /></td>
          </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" align="left" class="moduli">Sede Legale via/Piazza</td>
          </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" align="left" class="moduli"><input name="sedeLegale" type="text" class="moduli" id="sedeLegale" size="40" /></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" class="moduli"><table width="500" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="94" align="left">CAP</td>
              <td width="287" align="left">Citt&agrave;</td>
              <td width="119" align="left">Provincia</td>
            </tr>
            <tr>
              <td colspan="3">[img]immagini/null.gif[/img]</td>
              </tr>
            <tr>
              <td align="left"><label>
                <input name="cap" type="text" class="moduli" id="cap" size="10" />
              </label></td>
              <td align="left"><input name="citta" type="text" class="moduli" id="citta" size="42" /></td>
              <td align="left"><input name="provincia" type="text" class="moduli" id="provincia" size="5" /></td>
            </tr>
            <tr>
              <td colspan="3">[img]immagini/null.gif[/img]</td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">Telefono:</td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" align="left" class="moduli"><input name="telefono" type="text" class="moduli" id="telefono" size="40" /></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td colspan="3" class="moduli"><table width="500" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="241" align="left">Partita IVA / Codice Fiscale </td>
              <td width="259" align="left">Rappresentata dal Sig. </td>
              </tr>
            <tr>
              <td colspan="2">[img]immagini/null.gif[/img]</td>
            </tr>
            <tr>
              <td align="left"><label>
                <input name="partitaIva" type="text" class="moduli" id="partitaIva" size="35" />
              </label></td>
              <td align="left"><input name="sig" type="text" class="moduli" id="sig" size="42" /></td>
              </tr>
            <tr>
              <td colspan="2">[img]immagini/null.gif[/img]</td>
            </tr>
          </table></td>
        </tr>
        <tr align="left">
          <td colspan="3" class="moduli">URL del sito web (Se esistente) </td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr align="left">
          <td colspan="3" class="moduli"><input name="urlweb" type="text" class="moduli" id="urlweb" size="42" /></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr align="left">
          <td colspan="3" class="moduli">Indirizzo e-mail </td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr align="left">
          <td colspan="3" class="moduli"><input name="email" type="text" class="moduli" id="email" size="42" /></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr align="left">
          <td colspan="3" class="moduli">Data:</td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr align="left">
          <td colspan="3" class="moduli"><input name="data" type="text" class="moduli" id="data" size="20" /> 
            Formato: gg/mm/aaaa </td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        
        <tr>
          <td colspan="3" align="center" class="moduli">Foto del negozio </td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>

        <tr>
          <td width="100" align="right" class="moduli">Foto 1:</td>
          <td width="20" class="moduli"></td>
          <td width="380" class="moduli"><input name="file1" type="file" class="moduli" size="35" /></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td align="right" class="moduli">Foto 2:</td>
          <td class="moduli"></td>
          <td class="moduli"><input name="file1" type="file" class="moduli" size="35" /></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]</td>
        </tr>
        <tr>
          <td align="right" class="moduli">Foto 3:</td>
          <td class="moduli"></td>
          <td class="moduli"><input name="file1" type="file" class="moduli" size="35" /></td>
        </tr>
        <tr>
          <td colspan="3" class="moduli">[img]immagini/null.gif[/img]
            <input name="agente" type="hidden" id="agente" value="<%=(rsUtenti.Fields.Item("id").Value)%>" /></td>
        </tr>
        <tr>
          <td class="moduli"></td>
          <td class="moduli"></td>
          <td class="moduli"><label>
            <input name="Submit" type="reset" class="moduli" value="Ripristina" />
          
          <input name="Submit2" type="submit" class="moduli" value="Invia" />
          </label></td>
        </tr>
      </table>
        
      <input type="hidden" name="MM_insert" value="form1">
    </form>

Questo è l'upolad:

codice:

<%
Dim form, subject, allegato1, allegato2, allegato3
%>
<%
Dim oUpload 
Set oUpload = new cUpload
oUpload.SetPath "upload\"
oUpload.Load
if oUpload.Count=0 then
	allegato1 = ""
	allegato2 = ""
	allegato3 = ""
Else
	While Not oUpload.EOF
		oUpload.Save()
		Select Case lCase(oUpload.Files("InputName"))
		Case "file1"
                allegato1 = oUpload.GetFileName()
		Case "file2"		
				allegato2 = oUpload.GetFileName()
		Case "file3"		
				allegato3 = oUpload.GetFileName()
		End Select
		oUpload.MoveNext
	Wend
End if



call Main()



Sub Main()
If Len(oUpload.Form("subject")) = 0 then
no_sub()
else 
manda_posta(form)
ecco_fatto(nome)
end if
Set oUpload=Nothing 
End sub

Sub manda_posta(form)
Dim subject, testo
Dim objMail, objMailConfig
subject = oUpload.Form("Richiesta nuovo punto vendita Bose")
mittente = oUpload.Form("mittente")
ragioneSociale = oUpload.Form("ragioneSociale")
sedeLegale = oUpload.Form("sedeLegale")
cap = oUpload.Form("cap")
citta = oUpload.Form("citta")
provincia = oUpload.Form("provincia")
telefono = oUpload.Form("telefono")
partitaIva = oUpload.Form("partitaIva")
sig = oUpload.Form("sig")
urlweb = oUpload.Form("urlweb")
email = oUpload.Form("email")
data = oUpload.Form("data")
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")

' Proprietà di invio
with objMailConfig
  ' SMTP mail server
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.eurnetcity.net"
  ' SMTP port
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  ' CDO port
  .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  ' Timeout
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Fields.Update
end with

Set objMail.Configuration = objMailConfig

objMail.From = "pippo@mail.it"
objMail.To = "pippo@mail.it"
objMail.cc = oUpload.Form("destinatario")
objMail.Subject = subject
objMail.TextBody = "Ragione Sociale:" & Trim(oUpload.Form("ragioneSociale")) & vbcrlf & "Sede Legale - via/Piazza:" & Trim(oUpload.Form("sedeLegale")) & vbcrlf & "CAP:" & Trim(oUpload.Form("cap")) & vbcrlf &  "Città:" & Trim(oUpload.Form("citta")) & vbcrlf & "Provincia:" & Trim(oUpload.Form("provincia")) & vbcrlf & "Telefono:" & Trim(oUpload.Form("telefono")) & vbcrlf & "Partita IVA / Codie Fiscale:" & Trim(oUpload.Form("partitaIva")) & vbcrlf & "Rappresentata dal Sig:" & Trim(oUpload.Form("sig")) & vbcrlf & "URL del sito Web:" & Trim(oUpload.Form("urlWeb")) & vbcrlf & "Indirizzo e-mail:" & Trim(oUpload.Form("email")) & vbcrlf & "Data:" & Trim(oUpload.Form("data"))
If Len(allegato1) <> 0 then
objMail.AddAttachment Server.MapPath("upload\" & allegato1)
end if
If Len(allegato2) <> 0 then
objMail.AddAttachment Server.MapPath("upload\" & allegato2)
end if
If Len(allegato3) <> 0 then
objMail.AddAttachment Server.MapPath("upload\" & allegato3)
end if
objMail.Fields("urn:schemas:httpmail:importance").Value = 0
objMail.Fields.update() 
objMail.Send
Set objMail = Nothing
end sub

%>

L'errore che mi restituisce è il seguente:

Request object error 'ASP 0206 : 80004005'
Cannot call BinaryRead
/testModuli/upload.asp, line 275
Cannot call BinaryRead after using Request.Form collection.

L'unico dubbio che ho è la sintassi utilizzata nella variabile testo in particolar modo nn so se è corretto il termine "trim".

:master:

Discussione: Recuperare i campi tramite l'upload di Baol

Strumenti discussione

Ricerca discussione

Visualizza

Visualizzazione discussione

Recuperare i campi tramite l'upload di Baol

Permessi di invio