<%response.buffer = true%>
<!--#include file="setup.asp" -->
<%
	nick = request.form("nick")
	email = request.form("email")
	city = request.form("city")
	homepage = request.form("homepage")
	if homepage="http://" then homepage=" "
	message = request.form("message")
	
	' insert the new message
	Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.open "Entries", conn, 3, 3
    rs.AddNew

    rs("nick") = nick
    rs("email") = email
    rs("city") = city
    rs("home") = homepage
    rs("message") = message
    rs("date") = Day(date()) & " " & MonthName(Month(Date())) & " " & Year(date()) 
	rs("time") = time()
    rs("ip") = request.servervariables("REMOTE_ADDR")
	rs("stato")=1

    rs.Update
    rs.Close
	Set rs = nothing
	call writeCookies(nick,email,city,home)

	sub writeCookies(nick,email,city,home)
		' write cookies
		response.cookies(society).expires = now()+30
		response.cookies(society)("nick") = nick
		response.cookies(society)("email") = email
		response.cookies(society)("city") = city
		response.cookies(society)("home") = home
	end sub

response.redirect ("thanks.asp") ' redirect to thank's page

%>