<%
If Request("url") <> "" and Request("titolo") <> "" and Request("descrizione") <> "" Then
	Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
	Set Rs = Conn.execute ("SELECT url FROM tabella WHERE url = '"&Request("url")&"'")
	If Rs.EOF Then
		Conn.execute ("INSERT INTO tabella (categoria,url,titolo,title,descrizione,mail) VALUES ('"&Request("categoria")&"','"&Request("url")&"','"&apici(Request("titolo"))&"', '"&apici(Request("title"))&"','"&apici(Request("descrizione"))&"', '"&Request("mail")&"')")
		Conn.execute ("INSERT INTO siti (categoria,url,titolo,title,descrizione,mail) VALUES ('"&Request("categoria")&"','"&Request("url")&"','"&apici(Request("titolo"))&"', '"&apici(Request("title"))&"','"&apici(Request("descrizione"))&"', '"&Request("mail")&"')")
		Rs.Close
		Set Rs = Nothing
		Conn.Close
		Set Conn = Nothing
		Response.Redirect("codice.asp?categoria="&Request("categoria")&"")
	Else
	    Rs.Close
		Set Rs = Nothing
		Conn.Close
		Set Conn = Nothing
		Response.Redirect("iscrizione.asp?aa=dd&categoria="&Request("categoria")&"")
	End If
Else
Response.Redirect("iscrizione.asp?aa=cc&categoria="&Request("categoria")&"")
End If
function apici(testo)
	apici = replace(testo,"'","''")
end function
%>