Hent seneste ID

Jeg har et VBS på en server, som skal lægge billeder uploadet til serveren via FTP på plads.

Serveren kører Win2000 Server og der er en SQL Server 2000 på maskinen.

Mine data kommer ind i tabellen, men jeg kan ikke hente min uid ud, den vil jeg ellers omdøbe thumbnailen til.

Her er min kode, håber at der er en som kan hjælpe, jeg har prøvet alle muligheder tror jeg.

strSQL = "SELECT cid, company FROM db_clients ORDER BY company ASC;"
set objConn = wscript.CreateObject("ADODB.connection")
set rs = wscript.createobject("ADODB.Recordset")

AccessConnect = "Provider=sqloledb; Data Source=192.168.1.2; Initial Catalog=dbrw; User Id=sa; Password=pswd;"
objConn.mode = 3
objConn.Open AccessConnect
set objRS2 = objConn.Execute(strSQL)

rs.open "SELECT TOP 1 * FROM db_images", objConn, 3, 3, 1
   
do while not objRS2.EOF
getimages objRS2("cid"), objRS2("company")

objRS2.movenext
loop
rs.close
set rs = nothing
set objRS2 = nothing
    objConn.Close
    set objConn = nothing




Function getimages(cid, strcompany)
strFolderpath = strBasepath & strCompany & "\"
strOrgpath = strOrgfilepath & strCompany & "\"
Set objFileSys = wscript.CreateObject("scripting.filesystemobject")
If not objFileSys.FolderExists(strFolderPath) then
    objFileSys.CreateFolder(strFolderPath)
end if
If not objFileSys.FolderExists(strorgPath) then
    objFileSys.CreateFolder(strorgPath)
end if
Set objRootFolder = objFileSys.GetFolder(strFolderPath)



for each objFile in objRootFolder.Files
   
    rs.addnew
        rs("owner") = cid
        rs("orgname") = objfile.name
        rs("orgsize") = objfile.size
    rs.update
        imgId = rs("uid")

   

    makeThumbs objFile, imgId
    objFileSys.CopyFile objFile, strorgpath & imageid, true
next


   
    set objFileSys = Nothing

End function