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,
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?


<%@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>&nbsp;</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">&nbsp;</td>
    </tr>
    <tr>
      <td>&nbsp;</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!
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.

Reply to this topic