1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Dim sq As String
sq = "INSERT INTO dticket VALUES ('','" & objsubject & "','" & objcategory & "','" & objheader & "','" & MonMail.Importance & "','" & objsender & "','" & objsendermail & "','','" & objreceipt & "','" & objreceivedate & "'','" & objsavedate & "','','','" & objBody & "','','','','O','','','','','',''," & domain & ",'')"
Set r = c.Execute(sq)
r.Close
Dim get_id_req As String
Dim dticket_id As String
get_id_req = "select dticket_id from dticket order by dticket_id DESC limit 0,1"
'get_id_req = "select last_insert_id()"
Set r = c.Execute(get_id_req)
If Not r.EOF Then
dticket_id = r.Fields(0)
Else
dticket_id = ""
End If
r.Close |
Partager