<%
If request("ation")="post" Then
name=request("name3")
email=request("Email")
if name="" or email="" then
response.write ""
else
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from book where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("name")=name
rs("Comane")=request("company")
rs("address")=request("address")
rs("Somane")=request("Somane")
rs("Homepage")=request("homepage")
rs("Title")=request("Title")
rs("Phone")=request("tel")
rs("fax")=request("fax")
rs("email")=email
rs("content")=request("textarea")
rs("rebook")="MESSAGE BOOk"
rs("time")=Now()&"|||"&request("http")
rs.update
rs.close
response.write ""
set rs=nothing
conn.close
set conn=Nothing
End if
End if
%>