codice:
Sub Salva(s as Object, e as EventArgs)
connetti()
dim strsql as string
dim rs as OleDbDataReader
dim cmdInsert as OleDbCommand
strsql="Insert Into Minute (id_paese, citta, descrizione_citta, dal, al, alloggio, descrizione_alloggio, mezzo, partenza, arrivo, link_1, link_2, durata, prezzo, allegato_1, allegato_2 ) values("
strsql=strsql & " '" & paese.selectedItem.value & "'"
strsql=strsql & ", '" & replace(citta.text, "'", "''") & "'"
strsql=strsql & ", '" & replace(descrizione_citta.text, "'", "''") & "'"
strsql=strsql & ", #" & convertidata(dal.text) & "#"
strsql=strsql & ", #" & convertidata(al.text) & "#"
strsql=strsql & ", '" & replace(alloggio.text, "'", "''") & "'"
strsql=strsql & ", '" & replace(descrizione_alloggio.text, "'", "''") & "'"
strsql=strsql & ", '" & mezzo.SelectedItem.value & "'"
strsql=strsql & ", '" & replace(partenza.text, "'", "''") & "'"
strsql=strsql & ", '" & replace(arrivo.text, "'", "''") & "'"
strsql=strsql & ", '" & replace(link1.text, "'", "''") & "'"
strsql=strsql & ", '" & replace(link2.text, "'", "''") & "'"
strsql=strsql & ", '" & replace(durata.text, "'", "''") & "'"
strsql=strsql & ", " & replace(prezzo.text, "'", "''")
strsql=strsql & ", '" & replace(allegato1, "'", "''") & "'"
strsql=strsql & ", '" & replace(allegato2, "'", "''") & "'"
strsql=strsql & ")"
response.Write(strsql)
conn.close()
response.End()
cmdInsert=new OleDbCommand(strsql, conn)
cmdInsert.ExecuteNonQuery()
conn.close()
end sub