Please start any new threads on our new
site at https://forums.sqlteam.com. We've got lots of great SQL Server
experts to answer whatever question you can come up with.
| Author |
Topic |
|
AskSQLTeam
Ask SQLTeam Question
0 Posts |
 Posted - 2001-03-29 : 07:31:29
|
Bob writes "How can I rewrite the code below to return the indentity of the record posted.
Set objProject= Server.CreateObject("ADODB.Recordset")
objProject.Open "Projects" , objDC, 1, 3, 2
Set objStages= Server.CreateObject("ADODB.Recordset")
objStages.Open "Stages" , objDC, 2, 2
IF len(strline(j))=0 THEN J=J-1
For i = 1 To j
TempLotNum=strLine(i)
objProject.addnew
objProject("sitename")=request.form("sitename")
objProject("contractor")=request.form("contractor")
objProject("LotNum")=TempLotNum
IF request.form("datecalledin")<>"" THEN
objProject("datecalledin")=request.form("datecalledin")
END IF
IF request.form("whocalledin")<>"" THEN
objProject("whocalledin")=request.form("whocalledin")
END IF
objProject("sitenumber")=request.form("sitenumber")
FOR m = 1 TO 30
IF request.form("HR"&m&"C1")="Basement Duct Installed" AND request.form("HR"&m&"C2")<>"" THEN
objProject("DuctIn")=date
END IF
NEXT
FOR n = 1 TO 30
IF request.form("HR"&n&"C1")="Single Vent Furnace gas piping ONLY" AND request.form("HR"&n&"C2")<>"" THEN
objProject("GasToFurnace")=date
END IF
NEXT
objProject.update
tempProjectID=objProject("ProjectID")
" |
|
|
|
|
|
@@identity