Thanks Ray,
As the session is set within the code for the DA Insert behaviour I'm guessing it would look something like this?
<%
' WA Application Builder Insert
if (Request.ServerVariables("Request_Method") = "POST") then
WA_connection = MM_portvaleSQL_STRING
WA_table = "dbo.auction"
WA_sessionName = "var_auctionid"
WA_redirectURL = "review.asp"
WA_keepQueryString = false
WA_indexField = "auctionid"
WA_fieldNamesStr = "auctionname|auctiontext|auctionstartprice|auctionstartdate|auctionenddate|auctionenabled"
WA_fieldValuesStr = "" & cStr(WA_DFP_UploadObj.Form("itemname")) & "" & "|" & "" & cStr(WA_DFP_UploadObj.Form("description")) & "" & "|" & "" & cStr(WA_DFP_UploadObj.Form("reserve")) & "" & "|" & "" & cStr( Session("var_startdate") ) & "" & "|" & "" & cStr( Session("var_enddate") ) & "" & "|" & "False"
WA_columnTypesStr = "',none,''|',none,''|',none,''|',none,NULL|',none,NULL|',none,''"
WA_comparisonStr = " LIKE | LIKE | LIKE | = | = | LIKE "
WA_fieldNames = Split(WA_fieldNamesStr,"|")
WA_fieldValues = Split(WA_fieldValuesStr,"|")
WA_columns = Split(WA_columnTypesStr,"|")
WA_comparisions = Split(WA_comparisonStr, "|")
insertParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = WA_connection
MM_editCmd.CommandText = "INSERT INTO " & WA_table & " (" & insertParamsObj(1) & ") VALUES (" & insertParamsObj(2) & ")"
MM_editCmd.Execute()
MM_editCmd.ActiveConnection.Close()
obj = WA_AB_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, WA_comparisions)
sqlstr = "SELECT " & WA_indexField & " FROM " & WA_table & " WHERE " & obj & " ORDER BY " & WA_indexField & " DESC"
set WA_AppBuilderRecordset = Server.CreateObject("ADODB.Recordset")
WA_AppBuilderRecordset.ActiveConnection = WA_connection
WA_AppBuilderRecordset.Source = sqlstr
WA_AppBuilderRecordset.CursorType = 0
WA_AppBuilderRecordset.CursorLocation = 2
WA_AppBuilderRecordset.LockType = 1
WA_AppBuilderRecordset.Open()
if (NOT WA_AppBuilderRecordset.EOF) then Session(WA_sessionName) = WA_AppBuilderRecordset.Fields.Item(WA_indexField).Value
Response.Write(Session("var_auctionid"))
Response.End
WA_AppBuilderRecordset.Close()
if (WA_redirectURL <> "") then
if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
if (inStr(WA_redirectURL,"?") > 0) then
WA_redirectURL = WA_redirectURL & "&"
else
WA_redirectURL = WA_redirectURL & "?"
end if
WA_redirectURL = WA_redirectURL & Request.QueryString
end if
Response.Redirect(WA_redirectURL)
end if
end if
%>
In which case the page is returned blank and no value is written to screen.
Best Regards,
Ian
