<% LANGUACE="VBSCRIPT" %>
<%

On Error Resume Next

id_1 = Request("id")
anno_2 = Request("anno_2")
giorno_1 = Request("giorno")
mese_1 = Request("mese")
anno_1 = Request("anno")
protocollo_1 = Request("protocollo")
tipo_prt_1 = Request("tipo_prt")
num_prt_1 = Request("num_prt")
oggetto_1 = Request("oggetto")
tipo_int_1 = Request("tipo_int")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("P_EDILIZIE.mdb")

Squery="select id From MS1 Where id = '"&id_1&"'"
Set SR = Conn.Execute(Squery)

If Not SR.EOF Then
Session("okeydokey") = True
Set SR = Nothing
Conn.Close

response.Redirect "2.asp?errore=1&oggetto_2="&oggetto_1&"&protocollo _2="&protocollo_1&"&num_prt_2="&num_prt_1&"&id_2=" &id_1&"&tipo_prt_2="&tipo_prt_1&"&tipo_int_2="&tip o_int_1&"&giorno_2="&giorno_1&"&mese_2="&mese_1&"& anno_3="&anno_1&""

else
Response.Write "Mi dispiace ID gia usato..."
End If


SQL = "insert into MS1 (id, anno, data_prt, protocollo, tipo_prt, num_prt, oggetto, tipo_int) values ('"&id_1&"', '"&anno_2&"', '"&giorno_1&" "&mese_1&" "&anno_1&"', '"&protocollo_1&"', '"&tipo_prt_1&"', '"&num_prt_1&"', '"&oggetto_1&"', '"&tipo_int_1&"')"
Set RS = Conn.Execute(SQL)


If protocollo_1 = "" or id_1 = "" or tipo_prt_1 = "" or num_prt_1 = "" or tipo_int_1 = "" or giorno_1 = "" or mese_1 = "" or anno_1 = ""then

conn.Execute(SQL)
response.Redirect "2.asp?errore=1&oggetto_2="&oggetto_1&"&protocollo _2="&protocollo_1&"&num_prt_2="&num_prt_1&"&id_2=" &id_1&"&tipo_prt_2="&tipo_prt_1&"&tipo_int_2="&tip o_int_1&"&giorno_2="&giorno_1&"&mese_2="&mese_1&"& anno_3="&anno_1&""
conn.close
set conn = nothing

else

conn.Execute(SQL)
response.Redirect "2A.asp"
conn.close
set conn = nothing

end if

%>