ได้เงื่อนไขที่1 แล้วคือถ้าเป็นกรุงเทพให้ใช้แขวง เขต ไม่ใช้คำว่าจังหวัด
2ถ้าเป็นต่างจังหวัดให้แสดงตำบล อำเภอ จังหวัด
แต่เงื่อนไขที่3 ถ้าช่องไหนไม่มีค่าไม่ต้องโชว์คำนำหน้า ข้อนี้ต้องเพิ่มโค๊ดยังไงค่ะ
และมีปัญหาว่า เวาลกรอกข้อมูลช่องของ หมู่ กับ ถนน จะให้มันโชว์ยังไงโดยที่เป็นทั้งสองเงื่อนไข ข้อ1และ2 และถ้าไม่กรอกก็ไม่ต้องมีคำนำหน้า
ผู้รู้ช่วยแก้ไขโค๊ดให้ทีค่ะ ไม่แน่ใจว่าโค๊ดผิดหรือเปล่าค่ะ
<%
Dim a,b,c,d,e,f,g,h
a=request.form("address")
b=request.form("moo")
c=request.form("road")
d=request.form("tumbon")
e=request.form("aumper")
f=request.form("jungwad")
g=request.form("code")
response.Write(a&" ")
if f=0 then
response.write(" ")
elseif f=2 then
response.write("ถนน"&c&" "&"แขวง"&d&" "&"เขต"&e&h&" ")
else
response.write("ตำบล"&d&" "&"อำเภอ"&e&" "&"จังหวัด"&h&" ")
end if
Select Case f
Case 1
response.write("กระบี่")
Case 2
response.write("กรุงเทพ")
Case 3
response.write("เชียงใหม่")
Case 4
response.write("ราชบุรี")
Case Else
End Select
If f=0 Then ' ในกรณี ไม่ได้ระบุค่า....
Response.Write("")
ElseIf f=2 Then ' ในกรณี เป้นกรุเทพ
Response.Write("ที่อยู่ "& a &" หมู่ "& b &" ถนน "& c &" แขวง "& d &" เขต "& e &" จังหวัด กรุงเทพมหานคร" & " รหัสไปรณ๊ย์ "& g)
Else ' ในกรณี ที่เป็นแบบอื่นให้เป็นต่างจังหวัดให้หมด
Response.Write("ที่อยู่ "& a &" หมู่ "& b &" ถนน "& c &" ตำบล "& d &" อำเภอ "& e &" จังหวัด "& f & " รหัสไปรณ๊ย์ "& g)
End If
Load balance : Server 00
