<%
title1=Request( "title" )
if len(title1)> 0  then
title1=Replace(Replace(title1,CHR( 34 ), "`" ), "'","`")
	end if
name1=Request.Form("name")
email1=Request("email")
city1=Request("city")
message1=Request("comment")
	if len(message1)>0 then
message1=Replace(Replace(message1,CHR(34),"`"),"'" , "`" )
end if
sql= "insert into _GuestBook (title,name,email,city,message) values ('"+title1+"', '"+name1+"', '"+email1+"', '"+city1+"', '"+message1+"')" 
con.execute(sql)
%>