Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it L'avatar di Lino80
    Registrato dal
    Oct 2005
    Messaggi
    1,560

    inserimento If se selezionato quel det. name=""

    Ciao a tutti,

    da un form tipo:

    codice:
    <form method="post" action="inserisci.asp"> <td><p class="style"><input name="valore" type="radio" value="<%=valore1%>">valore1 <input name="valore" type="radio" value="<%=valore2%>">valore2 <input name="valore" type="radio" value="<%=valore3%>">valore3</td> </form>
    dovrei fare un modo che selezionando ad es. "valore1" mi seleziona nel codice con il quale invio l'email tramite la pagina inserisci.asp:

    o questo
    .AddAttachment server.mappath("/public/valore1.txt")
    o
    .AddAttachment server.mappath("/public/valore2.txt")
    o
    .AddAttachment server.mappath("/public/valore3.txt")

    codice pagina inserisci.asp


    codice:
    <% 
    Dim valore1, valore2, valore3
    valore1 = Replace(Request.Form("valore1"), "'", "''")
    	valore2 = Replace(Request.Form("valore2"), "'", "''")
    	valore3 = Replace(Request.Form("valore3"), "'", "''")
    Dim iMsg, iConf, Flds  
    'Crea l'oggetto email 
    Set iMsg = CreateObject("CDO.Message") 
    'Crea l'oggetto configurazione Set iConf = CreateObject("CDO.Configuration") 'Impostazione delle configurazioni per l'invio remoto 
    Set Flds = iConf.Fields Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True  
    'Spedizione: mittente, destinatario, oggetto, messaggio 
    mittente = "mittente@tuodominio.xx" 
    destinatario = "mittente@suodominio.zz" 
    oggetto = "Prova email" 
    messaggio = "Invio con CDOSYS"  With iMsg  
    
    'Assegnazione delle configurazioni Set .Configuration = iConf  .From = mittente .To = destinatario .Subject = oggetto  
    'Formato HTML .HTMLBody = messaggio 
    'Formato testo (scegliere) .TextBody = messaggio  
    'Invio di una pagina web .CreateMHTMLBody "http://www.novacomitalia.com/home/"  
    
    'Invio con allegato 
    .AddAttachment server.mappath("/public/test.txt")  
    
    'Invia l'email 
    .Send()  end with  
    set Flds = Nothing 
    set iConf = Nothing 
    set iMsg = Nothing 
    %>
    cosa manca per fare ciò?

    grazie

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    valore = Request.Form("valore")
    ...
    ...
    ...

    .AddAttachment server.mappath("/public/"& valore &".txt")


    Roby

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.