1.
<%
2.
Dim
Conn,strSQL,objExec,RepairID
3.
Set
Conn = Server.Createobject(
"ADODB.Connection"
)
4.
Set
objExec = Server.CreateObject(
"ADODB.Recordset"
)
5.
Conn.Open
"Driver={SQL Server};Server=localhost;Database=Service;UID=sa;PWD=p@ssw0rd;"
6.
strSQL =
" SELECT TOP 1 RepairID FROM Repair ORDER BY RepairID DESC "
7.
objExec.Open strSQL,Conn
8.
%>