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> </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?
Any thoughts?