<%@ Language=VBScript %>
<%
Dim objNewMail
dim sMsgEMail
dim emailuser
dim respo
dim errorc
CRLF= chr(13) + chr(10)
if request("cmd")="send" then
if request("name")="" or request("address")="" or request("lib")="" or request("title")="" or request("author")="" or request("jtitle")="" or request("year")="" or request("pages")="" then
errorc = "***All required fields not filled
