Forums

DREAMWEAVER

This topic is locked

Please help Error in Pure ASP File Upload 2.1.7

Ishfaak Aha

Posted 07 Apr 2008 14:18:38

has voted

Vote

07 Apr 2008 14:18:38 Ishfaak Aha posted:

Hello please help me cause I have to deliver this project this week I have been trying so much, the Image upload when register goes to the DB Access.

I need to let the User upload in the modify page. heres the complete code. If update records without the image it writes to the DB, when attach an Image it dosent. please help!!!!!!!!.

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
myfoldername/ScriptLibrary/incPUAddOn.asp, line 79




<%
'****************************************************************************************
'** Copyright Notice
'****************************************************************************************
%>

<%
'*** Pure ASP File Upload 2.1.7
Dim GP_uploadAction,UploadQueryString
PureUploadSetup
If (CStr(Request.QueryString("GP_upload"

) <> ""

Then
Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight
pau_thePath = """logos"""
pau_Extensions = "GIF,JPG,JPEG,BMP,PNG"
pau_Form = "NEW"
pau_Redirect = ""
pau_storeType = "file"
pau_sizeLimit = ""
pau_nameConflict = "uniq"
pau_requireUpload = "false"
pau_minWidth = ""
pau_minHeight = ""
pau_maxWidth = ""
pau_maxHeight = ""
pau_saveWidth = ""
pau_saveHeight = ""
pau_timeout = "600"
pau_progressBar = ""
pau_progressWidth = "300"
pau_progressHeight = "100"

Dim RequestBin, UploadRequest
CheckPureUploadVersion 2.17
ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout
end if
%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"

)
If (UploadQueryString <> ""

Then
MM_editAction = MM_editAction & "?" & UploadQueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(UploadFormRequest("MM_update"

) = "NEW" And CStr(UploadFormRequest("MM_recordId"

) <> ""

Then

MM_editConnection = HMJ_connIAWM_STRING
MM_editTable = "USERS"
MM_editColumn = "U_ID"
MM_recordId = "" + UploadFormRequest("MM_recordId"

MM_columns = Split(MM_columnsStr, "|"

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> ""

Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> ""

Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If

End If
%>
<%
' *** Delete Old Files Before Update Record 1.6.0
If (CStr(UploadFormRequest("MM_update"

) <> "" And CStr(UploadFormRequest("MM_recordId"

) <> ""

Then
Dim DOF_path, DOF_suffix
DOF_path = "images"
DOF_suffix = "_small"
DeleteFileBeforeUpdate DOF_path,MM_fieldsStr,MM_columnsStr,MM_editConnection,MM_editTable,MM_editColumn,MM_recordId,DOF_suffix
end if
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(UploadFormRequest("MM_update"

) <> "" And CStr(UploadFormRequest("MM_recordId"

) <> ""

Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),","

MM_delim = MM_typeArray(0)
If (MM_delim = "none"

Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none"

Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none"

Then MM_emptyVal = ""
If (MM_formVal = ""

Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> ""

Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'"

Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''"

& "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where U_ID = '" & Session("MM_Username"

& "'"

If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command"

MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> ""

Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
Dim rsProfile__MMColParam
rsProfile__MMColParam = "1"
If (Session("MM_Username"

<> ""

Then
rsProfile__MMColParam = Session("MM_Username"

End If
%>
<%
Dim rsProfile
Dim rsProfile_numRows

Set rsProfile = Server.CreateObject("ADODB.Recordset"

rsProfile.ActiveConnection = HMJ_connIAWM_STRING
rsProfile.Source = "SELECT * FROM USERS WHERE U_ID = '" + Replace(rsProfile__MMColParam, "'", "''"

+ "'"
rsProfile.CursorType = 0
rsProfile.CursorLocation = 2
rsProfile.LockType = 1
rsProfile.Open()

rsProfile_numRows = 0
%>
<link href="assets/classified.css" rel="stylesheet" type="text/css">

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"

)>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
if (val) { nm=val.name; if ((val=val.value)!=""

{
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
<script language="javascript" src="ScriptLibrary/incPureUpload.js"></script>
<table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>
<td align="left" valign="middle"> </td>
</tr>
<tr>
<td align="center" valign="middle"><form ACTION="<%=MM_editAction%>" METHOD="post" enctype="multipart/form-data" name="NEW" onSubmit="checkFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','');return document.MM_returnValue">

<table border="0" cellpadding="0" cellspacing="1" bgcolor="#F8F8F8">

<tr>
<td align="left" valign="top" bgcolor="#FFFFFF">
<div align="center">
<table cellpadding="3" cellspacing="5" bgcolor="#FFFFFF">
<tr valign="baseline">
<td align="right" nowrap class="textBold">Your ID:</td>
<td class="text"><%=(rsProfile.Fields.Item("U_ID"

.Value)%>
</td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">PASSWORD:</td>
<td> <input name="U_PASSWORD" type="password" class="form" value="<%=(rsProfile.Fields.Item("U_PASSWORD"

.Value)%>" size="20" maxlength="10">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">COMPANY NAME</td>
<td>
<input name="U_COMPANYNAME" type="text" class="form" value="<%=(rsProfile.Fields.Item("U_COMPANYNAME"

.Value)%>" size="50"><span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma"> *</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold"> </td>
<td class="textGray">Leave the image Logo field blank if you're keeping the original Logo</td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">COMPANY LOGO</td>
<td><input name="U_IMAGE" type="file" class="form" onChange="checkOneFileUpload(this,'GIF,JPG,JPEG,BMP,PNG',false,'','','','','','','')" size="35"> </td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">FIRST NAME:</td>
<td> <input name="U_FIRST" type="text" class="form" value="<%=(rsProfile.Fields.Item("U_FIRST"

.Value)%>" size="50">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">LAST NAME:</td>
<td> <input name="U_LAST" type="text" class="form" value="<%=(rsProfile.Fields.Item("U_LAST"

.Value)%>" size="50">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">POSITION</td>
<td>
<input name="U_POSITION" type="text" class="form" value="<%=(rsProfile.Fields.Item("U_POSITION"

.Value)%>" size="50" maxlength="50">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold" valign="top">COMPANY DESCRIPTION</td>
<td>
<textarea name="U_COMPDESCRIPTION" cols="56" rows="8" class="form"><%=(rsProfile.Fields.Item("U_COMPDESCRIPTION"

.Value)%></textarea>
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold"><b>EMAIL</b></td>
<td>
<input name="U_REGEMAIL" type="text" class="form" value="<%=(rsProfile.Fields.Item("U_REGEMAIL"

.Value)%>" size="50" maxlength="50">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold"><b>CONTACT
PERSON:</b></td>
<td>
<input name="U_CONTACTPERSON" type="text" class="form" value="<%=(rsProfile.Fields.Item("U_CONTACTPERSON"

.Value)%>" size="50">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold" valign="top">ADDRESS1:</td>
<td>
<textarea name="U_ADDRESS" cols="56" rows="8" class="form"><%=(rsProfile.Fields.Item("U_ADDRESS"

.Value)%></textarea>
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">ADDRESS2:</td>
<td>
<input type="text" name="U_ADDRESS2" class="form" value="<%=(rsProfile.Fields.Item("U_ADDRESS2"

.Value)%>" size="60">
<span lang="EN-GB" style="font-size: 8.0pt; color: #999999; font-family: Tahoma">(Optional)</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">ADDRESS3:</td>
<td>
<input type="text" name="U_ADDRESS3" class="form" value="<%=(rsProfile.Fields.Item("U_ADDRESS3"

.Value)%>" size="60">
<span lang="EN-GB" style="font-size: 8.0pt; color: #999999; font-family: Tahoma">(Optional)</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">COUNTRY:</td>
<td>
<span lang="EN-GB" style="font-size: 8.0pt; color: #000000; font-family: Tahoma">
<% =(rsProfile.Fields.Item("U_CITY"

.Value) %></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">
<span style="text-transform: uppercase">E-mail for
Applicant to be sent</span>:</td>
<td> <input type="text" name="U_EMAIL" class="form" value="<%=(rsProfile.Fields.Item("U_EMAIL"

.Value)%>" size="40">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">WEB:</td>
<td>
<input name="U_LINK" type="text" class="form" value="<%=(rsProfile.Fields.Item("U_LINK"

.Value)%>" size="60">
<span lang="EN-GB" style="font-size: 8.0pt; color: #999999; font-family: Tahoma">(Optional)</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold"> </td>
<td bgcolor="#F9F9F9"> <span style="font-size:7.5pt;font-family:Tahoma"> If your company do not have a web, Call our sponsor
<a target="_blank" href="www.beyondmediadesign.com/">
BYND MEDIA DESIGN</a> to erect a Web for you, <b><br>
t:</b> +960 3344 657.</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">STATE/PROVINCE:</td>
<td> <input type="text" name="U_STATE" class="form" value="<%=(rsProfile.Fields.Item("U_STATE"

.Value)%>" size="15">
<span lang="EN-GB" style="font-size: 8.0pt; color: #999999; font-family: Tahoma">(Optional)</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">ZIP/POSTAL:</td>
<td> <input type="text" name="U_ZIP" class="form" value="<%=(rsProfile.Fields.Item("U_ZIP"

.Value)%>" size="10">
<span lang="EN-GB" style="font-size: 8.0pt; color: #999999; font-family: Tahoma">(Optional)</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">PHONE:</td>
<td class="textGray"> <input type="text" name="U_PHONE" class="form" value="<%=(rsProfile.Fields.Item("U_PHONE"

.Value)%>" size="15" maxlength="15">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td align="right" nowrap class="textBold">FAX:</td>
<td class="textGray"> <input type="text" name="U_FAX" class="form" value="<%=(rsProfile.Fields.Item("U_FAX"

.Value)%>" size="15" maxlength="15">
<span lang="EN-GB" style="font-size: 8.0pt; color: #FF7040; font-family: Tahoma">*</span></td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td> <input name="register" type="submit" class="form" id="register" onClick="MM_validateForm('U_ID','','R','U_COMPANYNAME','','R','U_FIRST','','R','U_LAST','','R','U_POSITION','','R','U_COMPDESCRIPTION','','R','U_REGEMAIL','','R','U_CONTACTPERSON','','R','U_ADDRESS','','R','U_CITY','','R','U_STATE','','R','U_ZIP','','R','U_PHONE','','R','U_FAX','','R','U_EMAIL','','RisEmail','U_PASSWORD','','R');return document.MM_returnValue" value="Save">
</td>
</tr>
</table></div>
</td>
</tr>
</table>

<input type="hidden" name="MM_update" value="NEW">
<input type="hidden" name="MM_recordId" value="1">
</form></td>
</tr>
<tr>
<td align="right" valign="middle" class="text"></td>
</tr>
</table>

<%
rsProfile.Close()
Set rsProfile = Nothing
%>

Hello

Reply to this topic

Latest Extensions

App Connect Summernote File Upload Upload different files in Summernote Editor
App Connect Summernote Simple, yet powerful and modern WYSIWYG Editor
Bootstrap 4 Dynamic Table Generator 2 Automatically generate dynamic data tables
Bootstrap 4 Dynamic Form Generator 2 Auto generate perfect Bootstrap 4 dynamic forms in seconds
App Connect Bootstrap 4 Dynamic Paging Generator Auto generate awesome dynamic Bootstrap 4 paging in seconds
App Connect Event Calendar The most powerful full-sized event calendar for Dreamweaver
DMXzone App Connect Next generation client side framework for data-driven web sites and apps
DMXzone Database Custom Query Create advanced, complex custom SQL queries with ease

Latest Videos

Using App Connect Autocomplete Learn how to add autocomplete functionality on your page, using the App Connect Autocomplete
Creating Custom SQL Queries Learn how to create custom SQL Queries with DMXzone Database Custom Query
Restricting Access to Your Pages Learn how to restrict access to your pages, using DMXzone Security Provider 2
Adding Log Out Functionality with DMXzone Security Provider 2 Learn how to add log out functionality to your page with DMXzone Security Provider 2
Creating a Log In Page with DMXzone Security Provider 2 Learn how to create a log in page with DMXzone Security Provider 2
Setting Up Site Security Settings Learn how to setup your site security, using DMXzone Security Provider 2
Generating an Update Record Form Learn how to create an update record form, using the Bootstrap 4 Dynamic Form Generator 2
Generating an Insert Record Form Learn how to create an insert record form, using the Bootstrap 4 Dynamic Form Generator 2