Pure ASP Upload 3 Support Product Page

Using DW 11.0 and Pure ASP File Upload 3.1.1

Reported 12 Nov 2013 22:18:56
1
has this problem
12 Nov 2013 22:18:56 None Nothing posted:
I've used the extension many times before (on older versions of DW) without issues but now when I try to use Pure Asp Upload my fields do not update into the DB.

The file(s) will upload but nothing get's into the DB. I've followed the easy steps many times and still no luck. What am I missing?

Replies

Replied 12 Nov 2013 22:21:05
12 Nov 2013 22:21:05 None Nothing replied:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../../Connections/connGallery.asp" -->
<!--#include file="../../ScriptLibrary/incPU3Class.asp" -->
<!--#include file="../../ScriptLibrary/incPU3Utils.asp" -->
<
%'*** Pure ASP File Upload 3.1.1
' Process form formAdd
Dim pau, DMX_uploadAction, UploadRequest, UploadQueryString, pau_thePath, pau_nameConflict, pau_saveWidth, pau_saveHeight
Set pau = new PureUpload
pau.ScriptLibrary = "../../ScriptLibrary"
pau.ConflictHandling = "uniq"
pau.StoreType = "file"
pau.UploadFolder = """../../content/gallery"""
pau.ProcessUpload
pau.SaveAll
if pau.Done then Response.Redirect "default.asp"
%>
<
%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_insert")) = "formAdd") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_connGallery_STRING
    MM_editCmd.CommandText = "INSERT INTO GItems (ItemName, ItemInfo1, ItemThumb) VALUES (?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, UploadFormRequest("tfName")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 203, 1, 1073741823, UploadFormRequest("taInfo")) ' adLongVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, UploadFormRequest("ffFile1")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "default.asp"
    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
%>
<!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>
</head>

<body>
<form action="<%=MM_editAction%>" method="POST" enctype="multipart/form-data" name="formAdd" id="formAdd" onSubmit="<%=pau.submitCode()%>;return document.MM_returnValue">
  <p>&nbsp;  </p>
  <p>
    
    <input type="text" name="textfield" id="tfName" />
  </p>
  <p>
    <label for="taInfo"></label>
    <textarea name="taInfo" id="taInfo" cols="45" rows="5"></textarea>
  </p>
  <p>
<input name="ffFile1" type="file" id="ffFile1" onChange="<%=pau.validateCode()%>;return document.MM_returnValue" />
  </p>
  <p>
    <input type="submit" name="button" id="button" value="Submit" />
  </p>
  <input type="hidden" name="MM_insert" value="formAdd" />
</form>
</body>
</html>



Replied 13 Nov 2013 17:58:56
13 Nov 2013 17:58:56 None Nothing replied:
anybody?
Replied 14 Nov 2013 19:32:31
14 Nov 2013 19:32:31 None Nothing replied:
I really need this to work some time soon.

Any thoughts?

Reply to this topic