ASP CDO Comment ajouter une vérification conditionnelle (si) pour ignorer une zone de texte vide et des pauses de ligne
-
21-12-2019 - |
Question
J'utilise l'ASP classique pour l'utilisateur pour remplir un formulaire en ligne qui soumet ensuite un email.
sur le formulaire Il y a quelques zones de texte d'entrée qui seront probablement vides. Dans ma sortie de messagerie, j'ai énuméré:
boîte1: réponse
Box2: Réponse
Box3: "vide"
Box4: "vide"
Le paragraphe suivant de l'e-mail commence ici ...
Je veux que le code ignore les cases3 & 4 et la ligne se casse et passez directement jusqu'au paragraphe suivant.
boîte1: réponse
BOX2: Réponse
Le paragraphe suivant de l'e-mail commence ici ...
J'ai ajouté mon code ci-dessous. Veuillez regarder le "OS1" où j'ai ajouté la vérification conditionnelle. Je suis conscient que c'est désordonné mais je suis novice chez ASP.
S'il s'agit d'une réponse facile, peut-être que quelqu'un pourrait également répondre à la manière dont je peux déplacer la section HTMLBOge sur la ligne ci-dessous afin que je puisse la mettre plus facile à lire, car il est tout sur une ligne. Si j'essaie de passer à la ligne suivante et d'entrer du texte du corps, le formulaire ne fonctionne pas à fonctionner.
<!--
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 &"                 <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>"
%>
La solution
ne l'a pas testé mais cela devrait faire le tour
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 & "                 <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
Autres conseils
Comment vérifier "rien" dans la demande.Forme d'une autre manière:
if Len(Request.Form("os1") > 0) Then
ou
if Not IsEmpty(Request.Form("os1")) Then