Pure ASP Upload 3 Support Product Page
Solved
Microsoft VBScript runtime error '800a000d' Type mismatch: 'MM_IIF'
Reported 28 Jan 2010 09:41:58
1
has this problem
28 Jan 2010 09:41:58 Conor lawlor posted:
I have installed an Update Record Behaviour and PU3 in a page and I'm getting the following:Microsoft VBScript runtime error '800a000d'
Type mismatch: 'MM_IIF'
/phocus/CustomerPDFUpload2.asp, line 61
I'm trying to upload a PDF and insert the filename in the database.
I've done this before with no problems, but am stumped by this error.
Any ideas?
Replies
Replied 28 Jan 2010 10:01:50
28 Jan 2010 10:01:50 Miroslav Zografski replied:
Hello Conor,
try to set first the PAU and then the Update Record Behavior.
If that does not help provide your page code here or at my email:
Regards,
try to set first the PAU and then the Update Record Behavior.
If that does not help provide your page code here or at my email:
Regards,
Replied 29 Jan 2010 17:35:01
29 Jan 2010 17:35:01 Conor lawlor replied:
I have tried that, and I am having some success - the file is now uploading. The problem is that nothing is being written to the database. I need the file name to be recorded in the PDFfile column in the database.
Here's my code - Can you take a look?
Here's my code - Can you take a look?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/connBotanicDates.asp" -->
<!--#include file="../ScriptLibrary/incPU3Class.asp" -->
<!--#include file="../ScriptLibrary/incPU3Utils.asp" -->
<
%'*** Pure ASP File Upload 3.0.15
' Process form form1
Dim pau, DMX_uploadAction, UploadRequest, UploadQueryString, pau_thePath, pau_nameConflict, pau_saveWidth, pau_saveHeight
Set pau = new PureUpload
pau.ScriptLibrary = "../ScriptLibrary"
pau.ConflictHandling = "over"
pau.StoreType = "file"
pau.ProgressTemplate = "circle.htm"
pau.ProgressWidth = 500
pau.ProgressHeight = 150
pau.UploadFolder = """../Images/ProductImages"""
pau.ProcessUpload
pau.SaveAll
if pau.Done then
SetUploadFormRequest "upload_org_pdfFile",pau.Fields("pdf").FileName
end if
%>
<
%Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (UploadQueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(UploadQueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<
%If (CStr(UploadFormRequest("MM_update")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_connBotanicDates_STRING
MM_editCmd.CommandText = "UPDATE CustomersDetails SET PDFfile = ?, FirstNote = ? WHERE JobRef = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, UploadFormRequest("pdf")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 203, 1, 1073741823, UploadFormRequest("upload_org_pdfFile")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 200, 1, 255, UploadFormRequest("MM_recordId")) ' adVarChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "success.htm"
If (UploadQueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<
%Dim rsPDF__MMColParam
rsPDF__MMColParam = "1"
If (Request.QueryString("JobRef") <> "") Then
rsPDF__MMColParam = Request.QueryString("JobRef")
End If
%>
<
%Dim rsPDF
Dim rsPDF_cmd
Dim rsPDF_numRows
Set rsPDF_cmd = Server.CreateObject ("ADODB.Command")
rsPDF_cmd.ActiveConnection = MM_connBotanicDates_STRING
rsPDF_cmd.CommandText = "SELECT * FROM CustomersDetails WHERE JobRef = ?"
rsPDF_cmd.Prepared = true
rsPDF_cmd.Parameters.Append rsPDF_cmd.CreateParameter("param1", 200, 1, 255, rsPDF__MMColParam) ' adVarChar
Set rsPDF = rsPDF_cmd.Execute
rsPDF_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<script type="text/javascript"><%=pau.generateScriptCode()%></script>
<script src="../ScriptLibrary/incPU3.js" type="text/javascript"></script>
<link href="Phocus.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form action="<%=MM_editAction%>" method="POST" enctype="multipart/form-data" name="form1" id="form1" onSubmit="<%=pau.submitCode()%>;return document.MM_returnValue">
<table width="420" border="0" cellspacing="8" cellpadding="0">
<tr>
<td colspan="2" class="BlueTitle">JobRef: <%=(rsPDF.Fields.Item("JobRef").Value)%></td>
</tr>
<tr>
<td>Locate the file you want to upload.</td>
<td> </td>
</tr>
<tr>
<td width="302"><input name="pdfFile" type="file" id="pdf" onchange="<%=pau.validateCode()%>;return document.MM_returnValue" value="<%= pau.Fields("pdf").FileName %>" /></td>
<td width="94"> </td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="button" id="button" value="Upload" /></td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1" />
<input type="hidden" name="MM_recordId" value="<%= rsPDF.Fields.Item("JobRef").Value %>" />
<input type="hidden" name="upload_org_pdfFile" value="<%= pau.Fields("pdf").FileName %>" />
</form>
</body>
</html>
<
%rsPDF.Close()
Set rsPDF = Nothing
%> Replied 01 Feb 2010 14:24:55
01 Feb 2010 14:24:55 Conor lawlor replied:
I'm trying to get this to work on a PC running Vista and Dreamweaver CS3.
Is the solution to turn on my old PC, bring in the file to Dreamweaver MX and use my old Pure ASP Upload 2, which is working fine!
Is the solution to turn on my old PC, bring in the file to Dreamweaver MX and use my old Pure ASP Upload 2, which is working fine!