Ok i am now getting an error on the page.
-----------------------------------------------------------------------------
Request object error 'ASP 0208 : 80004005'
Cannot use generic Request collection
/admin/home_edit.asp, line 21
Cannot use the generic Request collection after calling BinaryRead.
-----------------------------------------------------------------------------
This is the code from the page
-----------------------------------------------------------------------------
<%
Dim rs_edit__MMColParam
rs_edit__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then (this is line 21)
rs_edit__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_edit
Dim rs_edit_cmd
Dim rs_edit_numRows
Set rs_edit_cmd = Server.CreateObject ("ADODB.Command")
rs_edit_cmd.ActiveConnection = MM_htusa_conn_STRING
rs_edit_cmd.CommandText = "SELECT * FROM tblPages WHERE ID = ?"
rs_edit_cmd.Prepared = true
rs_edit_cmd.Parameters.Append rs_edit_cmd.CreateParameter("param1", 5, 1, -1, rs_edit__MMColParam) ' adDouble
Set rs_edit = rs_edit_cmd.Execute
rs_edit_numRows = 0
%>
<%
WA_DFP_SetupUploadStatusStruct "WA_UploadResult1"
If(Request.ServerVariables("Request_Method") = "POST") Then
WA_DFP_UploadFile "WA_UploadResult1", "NewImage", "" & cStr(WA_DFP_UploadObj.Form("DefaultFileName")) & "", "images/", "[FileName]", "2", "[FileName]_[Increment]", "0", "true", "" & cStr((rs_edit.Fields.Item("pic1w").Value)) & "", "" & cStr((rs_edit.Fields.Item("pic1h").Value)) & ""
End If%>
<%
' WA Application Builder Update
if (Request.ServerVariables("Request_Method") = "POST") then
WA_connection = MM_htusa_conn_STRING
WA_table = "tblPages"
WA_redirectURL = "admin_home.asp"
WA_keepQueryString = false
WA_indexField = "ID"
WA_fieldNamesStr = "text1|text2|text3|pic1"
WA_fieldValuesStr = "" & cStr(WA_DFP_UploadObj.Form("TextFix1")) & "" & "|" & "" & cStr(WA_DFP_UploadObj.Form("TextFix2")) & "" & "|" & "" & cStr(WA_DFP_UploadObj.Form("TextFix3")) & "" & "|" & "" & cStr(WA_DFP_UploadStatus.Item("WA_UploadResult1").serverFileName) & ""
WA_columnTypesStr = "',none,''|',none,''|',none,''|',none,''"
WA_comparisonStr = "=|=|=|="
WA_fieldNames = Split(WA_fieldNamesStr,"|")
WA_fieldValues = Split(WA_fieldValuesStr,"|")
WA_columns = Split(WA_columnTypesStr,"|")
WA_comparisions = Split(WA_comparisonStr, "|")
WA_where_fieldValuesStr = "" & cStr((rs_edit.Fields.Item("ID").Value)) & ""
WA_where_columnTypesStr = "none,none,NULL"
WA_where_comparisonStr = "="
WA_where_fieldNames = Split(WA_indexField,"|")
WA_where_fieldValues = Split(WA_where_fieldValuesStr,"|")
WA_where_columns = Split(WA_where_columnTypesStr,"|")
WA_where_comparisions = Split(WA_where_comparisonStr, "|")
updateParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
WhereObj = WA_AB_generateWhereClause(WA_where_fieldNames, WA_where_columns, WA_where_fieldValues, WA_where_comparisions)
set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = WA_connection
MM_editCmd.CommandText = "UPDATE " & WA_table & " SET " & updateParamsObj(3) & " WHERE " & WhereObj & ""
MM_editCmd.Execute()
MM_editCmd.ActiveConnection.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
%>
-----------------------------------------------------------------------------
Getting a little frusterating.
