ASP CDO Come aggiungere un controllo condizionale (se) per ignorare una casella di testo vuota e interruzioni di riga

StackOverflow https://stackoverflow.com//questions/21021282

  •  21-12-2019
  •  | 
  •  

Domanda

Sto usando Classic ASP per l'utente per compilare un modulo online che quindi invia un'e-mail.

Sul modulo ci sono alcune caselle di testo in ingresso che probabilmente saranno vuote. Nella mia uscita e-mail ho elencato:

Box1: Risposta

Box2: Risposta

Box3: "Blank"

Box4: "Blank"

Il prossimo paragrafo della posta inizia qui ...

Voglio che il codice ignorasse il Box3 & 4 e la linea si interrompe e si sposta direttamente fino al paragrafo successivo.

Box1: Risposta

Box2: Risposta

Il prossimo paragrafo della posta inizia qui ...

Ho aggiunto il mio codice qui sotto. Si prega di guardare il "OS1" dove ho aggiunto il controllo condizionale. Sono consapevole che è disordinato ma sono un principiante presso ASP.

Se questa è una risposta facile, forse qualcuno potrebbe anche rispondere come posso spostare la sezione htmlbody sulla riga qui sotto in modo che possa licenziarlo più facile da leggere perché è tutto su una riga. Se provo a passare alla riga successiva e inserire il testo del corpo, il modulo non funziona. 

<!-- 
METADATA 
TYPE="typelib" 
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"  
NAME="CDO for Windows 2000 Library" 
-->  

<%
semaila = request.form("first name")
semailb = request.form("surname")
broker = request.form("broker name")
cust = request.form("cust name")
sapp = request.form("app number")
' Checks that the form value os1 is not empty, then appends the form value plus linebreaks,
' otherwise it is left empty.
If request.form("os1") <> "" Then
os1 = request.form("os1") + "<br><br>"
Else
os1 = "";
End If
os2 = request.form("os2")
os3 = request.form("os3")
os4 = request.form("os4")
os5 = request.form("os5")
os6 = request.form("os6")
os7 = request.form("os7")
sadded = request.form("added")



Set cdoConfig = CreateObject("CDO.Configuration")  

With cdoConfig.Fields  
    .Item(cdoSendUsingMethod) = cdoSendUsingPort  
    .Item(cdoSMTPServer) = "00.000.00.000"  
    .Update  

End With 

With cdoMessage 

' Checks that the form value os1 is not empty, then appends the form value plus line     breaks,
' otherwise it is left empty.
If request.form("os1") <> "" Then
os1 = request.form("os1") + "<br><br>"
Else
os1 = "";
End If

Set cdoMessage = CreateObject("CDO.Message")  

With cdoMessage 
    Set .Configuration = cdoConfig 
    .From = "name@example.com"
    .To = "name@example.com" 
    .Subject = QueryType 
    .HTMLBody = "<HTML><head><title></title></head><body><body bgcolor=""white"" TEXT=""black"" ALINK=""black"" VLINK=""black""> <font face=""ariel""> Dear "& broker &", <br><Br>We have today reviewed the mortgage application you submitted to us for your client in the name of: <br><br> <b> Name:</b> "& cust &" &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp <b>Application Number:</b> "& sapp &" <br><br> In order for us to process your application further we need to be in receipt of the following outstanding items and would be grateful if you could arrange to forward these at your earliest convenience. <br><br> "& os1 & " <br><br> "& os2 & " <br><br> "& os3 & " <br><br> "& os4 & " <br><Br> "& os5 & " <br><br> "& os6 & " <br><br> "& os7 & " <br><Br> Other outstanding items that we have chased today....(The rest of the email will follow..) </font></body></HTML>" 
    .Send 

End With 


Set cdoMessage = Nothing  
Set cdoConfig = Nothing  






Response.write "<HTML><head><title></title></head><body><body bgcolor=""#161712"" TEXT=""white"" ALINK=""white"" VLINK=""white""><center><br><br><Br><Br><Br><br><br><br><Br><br><Br><br>Your request has been submitted....<br><br><br><a href = ""javascript:window.close();""> Click here to close window </a> </center></body></HTML>"

%>
.

È stato utile?

Soluzione

non lo ha testato ma dovrebbe fare il trucco 

dim os1 : os1 = request.form("os1") & ""
dim os2 : os2 = request.form("os2") & ""
dim os3 : os3 = request.form("os3") & ""
dim os4 : os4 = request.form("os4") & ""
dim os5 : os5 = request.form("os5") & ""
dim os6 : os6 = request.form("os6") & ""
dim os7 : os7 = request.form("os7") & ""

With cdoMessage 
    Set .Configuration = cdoConfig 
    .From = "name@example.com"
    .To = "name@example.com" 
    .Subject = QueryType 
    .HTMLBody = "<HTML><head><title></title></head><body><body bgcolor=""white"" TEXT=""black"" ALINK=""black"" VLINK=""black""> <font face=""ariel""> Dear " &_
                broker & ", <br><Br>We have today reviewed the mortgage application you submitted to us for your client in the name of: <br><br> <b> Name:</b> " &_
                cust & " &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp <b>Application Number:</b> " & sapp &_
                " <br><br> In order for us to process your application further we need to be in receipt of the following outstanding items and would be grateful " &_
                "if you could arrange to forward these at your earliest convenience. <br><br> " &_
                iif(os1<>"", os1 & "<br><br>", "") &_
                iif(os2<>"", os2 & "<br><br>", "") &_
                iif(os3<>"", os3 & "<br><br>", "") &_
                iif(os4<>"", os4 & "<br><br>", "") &_
                iif(os5<>"", os5 & "<br><br>", "") &_
                iif(os6<>"", os6 & "<br><br>", "") &_
                iif(os7<>"", os7 & "<br><br>", "") &_
                " <br><Br> Other outstanding items that we have chased today....(The rest of the email will follow..) </font></body></HTML>" 
    .Send 

End With 


function iif(i, j, k)
    if i then iif = j else iif = k
end function
.

Altri suggerimenti

Come controllare "Niente" in richiesta. Form in altri modi: 

if Len(Request.Form("os1") > 0) Then
.

o 

if Not IsEmpty(Request.Form("os1")) Then
.

Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top