ASP CDO空のテキストボックスと改行を無視するための条件付きチェック(IF)を追加する方法
-
21-12-2019 - |
質問
ユーザーがオンラインで入力してEメールを送信するための古典的なASPを使用しています。
フォームの入力テキストボックスがいくつか空白になる可能性があります。私の電子メール出力で私はリストされています:
box1:答え
BOX2:答え
BOX3:「空白」
BOX4:「空白」
メールの次の段落はここから始まります...
コードにBox3&4を無視し、回線が壊れて、次の段落にまっすぐ下に移動します。
box1:答え
Box2:答え
メールの次の段落はここから始まります...
私は以下のコードを追加しました。条件付きチェックを追加した「OS1」を見てください。私はそれが厄介であることを知っていますが、私はASPの初心者です。
これが簡単な答えである場合、誰かがHTMLボディセクションを以下の行に移動できるように答えることができるかもしれません。次の行に移動してボディテキストを入力しようとすると、フォームは機能しません。
<!--
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>"
%>
. 解決
テストしていませんが、それはトリック
をするべきです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
. 他のヒント
要求の「何もない」をチェックする方法他の方法で:
if Len(Request.Form("os1") > 0) Then
.
または
if Not IsEmpty(Request.Form("os1")) Then
. 所属していません StackOverflow