Sub doError(varvalue,varname) 'เป็นฟังชั่นย่อย ที่ใช้หากไม่กรอกข้อมูลลงไปจะไม่ทำงาน
If Trim(varvalue) = "" Then ' >> คือถ้า varvalue มีค่า เป็นค่าว่าง ให้เขียนว่า
Response.Write "กรุณาป้อน <b>" & varname &"</b> ด้วยครับ<br>"
' กรุณาป้อนvarname ซึ่งตัวอย่างเป็น ชื่อ นะครับ
Response.End
End If
End Sub