<%
'讀取各字段的數據
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

'插入到數據庫
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
	Server.MapPath("lyb.mdb"))
SQL = "INSERT INTO lyb(姓名,email,主題,內容) VALUES('" &_
	Name & "','" &Email & "','" & Subject & "','" & Memo & "')"
'Response.Write(SQL)
conn.Execute(SQL)
conn.close()
Response.Redirect("display.asp")
%>