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!
Replied 19 Sep 2024 22:16:40
19 Sep 2024 22:16:40 User replied:
Hello everyone, tell me what to do if Windows stops activating and I don’t want to buy a new key?
Replied 19 Sep 2024 22:18:30
19 Sep 2024 22:18:30 User replied:
I recently encountered this myself when Windows activation suddenly stopped working, and I didn't want to pay for a new key. I found the solution on the https://kms-full.com/ website. It turned out to be a very convenient and simple way to activate the system via KMS. I installed it, activated it, and now the system works without unnecessary reminders. The main thing is that it's safe, although at first I had my doubts.