如何使用 VBScript 連接到 SQL Server，執行插入操作，並返回新插入記錄的自動編號 ID。

<%
Dim conn, sql, applicationID
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;User ID=your_username;Password=your_password;"

sql = "INSERT INTO overtime_application (employee_id, date_of_overtime, start_time, end_time, total_hours, reason) VALUES (123, '2024-05-25', '18:00', '20:00', 2.00, 'Project deadline');"

conn.Execute sql

Set rs = conn.Execute("SELECT @@IDENTITY AS ID;")
applicationID = rs("ID")

Response.Write "Success! Application ID: " & applicationID
Response.Write "<br>資料已送出完成. ( <a href='javascript:window.close();'>關閉視窗</a> )"

conn.Close
Set conn = Nothing
%>