<%
' 讀取各輸入框的數據
Name = Request("Name")
Email = Request("Email")
Subject = Request("Subject")
Memo = Request("Memo")
' 檢查各輸入框是否輸入有數據
If Name = "" Or Email = "" Or Subject = "" Or Memo = "" Then
   Response.Write "輸入框不能為空白!"
   Response.End '不再處理以下的程序
End If
' 第一行包含“姓名”與“Email”
Line1 = "留言人：" & Name
Line1 = Line1 & String(5, "　")    ' 插入5個漢字空格
Email = "<A HREF=mailto:" & Email & ">" & Email & "</A>"
Line1 = Line1 & "Email