Bob,
I found what I was looking for....thought I would share, thanks!
Dim strOldDocName, strIncremental, GetFileName, fullFileName
strOldDocName = softwareManufacturer + " " + softwareProduct + " " +
softwareVersion
set OBJcmd = Server.CreateObject("Adodb.command")
Set OBJcmd.ActiveConnection = oConn
OBJcmd.CommandText = "MY SELECT STATEMENT;"
Set rs = OBJcmd.execute
fullFileName = rs.Fields("URL")
Dim text, found, arrText, newDoc
text = fullfilename
arrText = Split(text,"/")
For each item in arrText
if InStr(item,".doc") > 0 then
newDoc=replace(item,".doc","")
end if
next
strIncremental = newDoc + "1"
If NOT rs.EOF THEN
GetFileName = strIncremental
Else
GetFileName = strOldDocName
End If
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!