pure asp upload

[Elliott]

Hi Glenn,
The name of the product is Pure ASP Upload 2.1

Cost: $59
URL: [url]http://www.dmxzone.com/ShowDetail.asp?NewsId=1622[/url]

For convenience you may want to log in with my details:
Login: o0NEO0o
Password: zfxewk

Click 'Purchase' and then the button 'no I want the extension only'

Cheers

Tom

[Elliott]

Oops!!
;-(

"Elliott" <telliott@bezier.co.uk> wrote in message
news:bfr62q$i8c$1@forums.macromedia.com...

> Hi Glenn,
> The name of the product is Pure ASP Upload 2.1
>
> Cost: $59
> URL: [url]http://www.dmxzone.com/ShowDetail.asp?NewsId=1622[/url]
>
> For convenience you may want to log in with my details:
> Login: o0NEO0o
> Password: zfxewk
>
> Click 'Purchase' and then the button 'no I want the extension only'
>
> Cheers
>
> Tom
>
>

[Martha Graham]

Not a good idea to let another user log in with your username and password
and purchase an extension from us!
Please email us at [email]info@dmxzone.com[/email] for further assistence.

Martha Graham
DMXzone.com

"Elliott" <telliott@bezier.co.uk> schreef in bericht
news:bfr64b$iac$1@forums.macromedia.com...

> Oops!!
> ;-(
>
> "Elliott" <telliott@bezier.co.uk> wrote in message
> news:bfr62q$i8c$1@forums.macromedia.com...

> > Hi Glenn,
> > The name of the product is Pure ASP Upload 2.1
> >
> > Cost: $59
> > URL: [url]http://www.dmxzone.com/ShowDetail.asp?NewsId=1622[/url]
> >
> > For convenience you may want to log in with my details:
> > Login: o0NEO0o
> > Password: zfxewk
> >
> > Click 'Purchase' and then the button 'no I want the extension only'
> >
> > Cheers
> >
> > Tom
> >
> >

>
>

[r.kisoenpersad]

hi,

I;am using PURE asp upload and is working fine

in a update form i can see the file what i have uploaded.
but now I to view the file after uploading.
how can I do that?
please advise
gr.kisoen

[Chris In Madison]

It depends on where the file was uploaded to. If it was uploaded to a
directory in your web site, you can get to it from:

[url]http://www.mysite.com/myuploaddirectory/myfile.jpg[/url]

If it was uploaded to a place outside of your web site, then you'll either
need to map a virtual directory to your site for that directory, or usesome
sort of streaming component to stream the file out to your user.

Best regards,
Chris

[Alexandru COSTIN]

Do you save the file name in the database somewhere?

Alexandru

r.kisoenpersad wrote:

> hi,
>
> I;am using PURE asp upload and is working fine
>
> in a update form i can see the file what i have uploaded.
> but now I to view the file after uploading.
> how can I do that?
> please advise
> gr.kisoen
>
>

[r.kisoenpersad]

yes, the file name is save in a table
so you can track per record a file that you have uploaden
but how can you view the file?

gr. kisoen



"Alexandru COSTIN" <acostin@interaktonline.com> wrote in message
news:cvdbdi$pl8$1@forums.macromedia.com...

> Do you save the file name in the database somewhere?
>
> Alexandru
>
> r.kisoenpersad wrote:

>> hi,
>>
>> I;am using PURE asp upload and is working fine
>>
>> in a update form i can see the file what i have uploaded.
>> but now I to view the file after uploading.
>> how can I do that?
>> please advise
>> gr.kisoen

[Alexandru COSTIN]

Hi,
The best approach would be to:
a) create a recordset with the image you want to show
b) create an empty image in the page <img src="">
c) drag from the Recordset bindings the {rs.fileName} into the src attribute
d) eventually change it manually by adding the folder

You should get something like this

<img src="img/<%=(Recordset1.Fields.Item("imageName").Value)%> ">

Alexandru

r.kisoenpersad wrote:

> yes, the file name is save in a table
> so you can track per record a file that you have uploaden
> but how can you view the file?
>
> gr. kisoen
>
>
>
> "Alexandru COSTIN" <acostin@interaktonline.com> wrote in message
> news:cvdbdi$pl8$1@forums.macromedia.com...
>

>>Do you save the file name in the database somewhere?
>>
>>Alexandru
>>
>>r.kisoenpersad wrote:
>>

>>>hi,
>>>
>>>I;am using PURE asp upload and is working fine
>>>
>>>in a update form i can see the file what i have uploaded.
>>>but now I to view the file after uploading.
>>>how can I do that?
>>>please advise
>>>gr.kisoen

>
>
>

[Atmosfera]

hi there, I've a problem with this extension and I don?t have a clue of what's
happening, I've an ASP document with the add record behavior, also I've the
Pure ASP Upload extension working with a file field, this document works fine
in my local machine, but when I upload the file to the server this is what I
got:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'LBound'

/multimax/admin/agregafresnillo.asp, line 127

the line 127 is this:


For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

and I don't what's going on, the entire code in my documents is this:


Can someone help me please?



<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/CinemaxSite.asp" -->
<!--#include file="../ScriptLibrary/incPureUpload.asp" -->
<%
'*** Pure ASP File Upload -----------------------------------------------------
' Copyright (c) 2001-2002 George Petrov, [url]www.UDzone.com[/url]
' Process the upload
' Version: 2.0.9
'------------------------------------------------------------------------------
'*** File Upload to: """../cartelera""", Extensions: "GIF,JPG,JPEG,BMP,PNG",
Form: nuevacartelera, Redirect: "", "file", "", "over", "true", "", "" , "",
"", "", "", "600", "", "", ""

Dim GP_redirectPage, RequestBin, UploadQueryString, GP_uploadAction,
UploadRequest
PureUploadSetup

If (CStr(Request.QueryString("GP_upload")) <> "") Then
on error resume next
Dim reqPureUploadVersion, foundPureUploadVersion
reqPureUploadVersion = 2.09
foundPureUploadVersion = getPureUploadVersion()
if err or reqPureUploadVersion > foundPureUploadVersion then
Response.Write "<b>You don't have latest version of
ScriptLibrary/incPureUpload.asp uploaded on the server.</b><br>"
Response.Write "This library is required for the current page. It is fully
backwards compatible so old pages will work as well.<br>"
Response.End
end if
on error goto 0
GP_redirectPage = ""
Server.ScriptTimeout = 600

RequestBin = Request.BinaryRead(Request.TotalBytes)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin, """../cartelera""", "file", "", "over"

If (GP_redirectPage <> "" and not (CStr(UploadFormRequest("MM_insert")) <>
"" or CStr(UploadFormRequest("MM_update")) <> "")) Then
If (InStr(1, GP_redirectPage, "?", vbTextCompare) = 0 And
UploadQueryString <> "") Then
GP_redirectPage = GP_redirectPage & "?" & UploadQueryString
End If
Response.Redirect(GP_redirectPage)
end if
else
if UploadQueryString <> "" then
UploadQueryString = UploadQueryString & "&GP_upload=true"
else
UploadQueryString = "GP_upload=true"
end if
end if
' End Pure Upload
'------------------------------------------------------------------------------
%>
<%
' *** Edit Operations: (Modified for File Upload) 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 & "?" & Server.HTMLEncode(UploadQueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: (Modified for File Upload) set variables

If (CStr(UploadFormRequest("MM_insert")) = "nuevacartelera") Then

MM_editConnection = MM_CinemaxSite_STRING
MM_editTable = "Fresnillo"
MM_editRedirectUrl = "checkdata.asp"
MM_fieldsStr =
"NombreSpanish2|value|NombreEnglish2|value|Clasifi cacion2|value|Pais2|value|Fech
aRelease2|value|Director2|value|Reparto2|value|Sit ioOficial2|value|SalasExhibici
on2|value|Horarios2|value|Imagen2|value|textarea|v alue"
MM_columnsStr =
"NombreSpanish|',none,''|NombreEnglish|',none,''|C lasificacion|',none,''|Pais|',
none,''|FechaRelease|',none,''|Director|',none,''| Reparto|',none,''|SitioOficial
|',none,''|SalasExhibicion|',none,''|Horarios|',no ne,''|Imagen|',none,''|Sinopsi
s|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
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
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert
statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
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_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ")
values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
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 Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_CinemaxSite_STRING
Recordset1.Source = "SELECT * FROM Fresnillo"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language="JavaScript">
<!--

function
checkFileUpload(form,extensions,requireUpload,size Limit,minWidth,minHeight,maxWi
dth,maxHeight,saveWidth,saveHeight) { //v2.09
document.MM_returnValue = true;
for (var i = 0; i<form.elements.length; i++) {
field = form.elements[i];
if (field.type.toUpperCase() != 'FILE') continue;

checkOneFileUpload(field,extensions,requireUpload, sizeLimit,minWidth,minHeight,m
axWidth,maxHeight,saveWidth,saveHeight);
} }

function
checkOneFileUpload(field,extensions,requireUpload, sizeLimit,minWidth,minHeight,m
axWidth,maxHeight,saveWidth,saveHeight) { //v2.09
document.MM_returnValue = true;
if (extensions != '') var re = new RegExp("\.(" +
extensions.replace(/,/gi,"|").replace(/\s/gi,"") + ")$","i");
if (field.value == '') {
if (requireUpload) {alert('File is required!');document.MM_returnValue =
false;field.focus();return;}
} else {
if(extensions != '' && !re.test(field.value)) {
alert('This file type is not allowed for uploading.\nOnly the
following file extensions are allowed: ' + extensions + '.\nPlease select
another file and try again.');
document.MM_returnValue = false;field.focus();return;
}
document.PU_uploadForm = field.form;
re = new RegExp(".(gif|jpg|png|bmp|jpeg)$","i");
if(re.test(field.value) && (sizeLimit != '' || minWidth != '' || minHeight
!= '' || maxWidth != '' || maxHeight != '' || saveWidth != '' || saveHeight !=
'')) {

checkImageDimensions(field,sizeLimit,minWidth,minH eight,maxWidth,maxHeight,saveW
idth,saveHeight);
} }
}

function showImageDimensions(fieldImg) { //v2.09
var isNS6 = (!document.all && document.getElementById ? true : false);
var img = (fieldImg && !isNS6 ? fieldImg : this);
if (img.width > 0 && img.height > 0) {
if ((img.minWidth != '' && img.minWidth > img.width) || (img.minHeight != ''
&& img.minHeight > img.height)) {
alert('Uploaded Image is too small!\nShould be at least ' + img.minWidth +
' x ' + img.minHeight); return;}
if ((img.maxWidth != '' && img.width > img.maxWidth) || (img.maxHeight != ''
&& img.height > img.maxHeight)) {
alert('Uploaded Image is too big!\nShould be max ' + img.maxWidth + ' x '
+ img.maxHeight); return;}
if (img.sizeLimit != '' && img.fileSize > img.sizeLimit) {
alert('Uploaded Image File Size is too big!\nShould be max ' +
(img.sizeLimit/1024) + ' KBytes'); return;}
if (img.saveWidth != '') document.PU_uploadForm[img.saveWidth].value =
img.width;
if (img.saveHeight != '') document.PU_uploadForm[img.saveHeight].value =
img.height;
document.MM_returnValue = true;
} }

function checkImageDimensions(field,sizeL,minW,minH,maxW,ma xH,saveW,saveH) {
//v2.09
if (!documen

[Les Matthews]

There was a bug in a previous version that caused this error.
Are you using the latest version (2.1.9.1)?

"Atmosfera" <webforumsuser@macromedia.com> wrote in message
news:d5djqg$2g9$1@forums.macromedia.com...

> hi there, I've a problem with this extension and I don?t have a clue of
> what's
> happening, I've an ASP document with the add record behavior, also I've
> the
> Pure ASP Upload extension working with a file field, this document works
> fine
> in my local machine, but when I upload the file to the server this is what
> I
> got:
>
> Microsoft VBScript runtime error '800a000d'
>
> Type mismatch: 'LBound'
>
> /multimax/admin/agregafresnillo.asp, line 127
>
> the line 127 is this:
>
>
> For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
>
> and I don't what's going on, the entire code in my documents is this:
>
>
> Can someone help me please?
>
>
>
> <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
> <!--#include file="../Connections/CinemaxSite.asp" -->
> <!--#include file="../ScriptLibrary/incPureUpload.asp" -->
> <%
> '*** Pure ASP File
> Upload -----------------------------------------------------
> ' Copyright (c) 2001-2002 George Petrov, [url]www.UDzone.com[/url]
> ' Process the upload
> ' Version: 2.0.9
> '------------------------------------------------------------------------------
> '*** File Upload to: """../cartelera""", Extensions:
> "GIF,JPG,JPEG,BMP,PNG",
> Form: nuevacartelera, Redirect: "", "file", "", "over", "true", "", "" ,
> "",
> "", "", "", "600", "", "", ""
>
> Dim GP_redirectPage, RequestBin, UploadQueryString, GP_uploadAction,
> UploadRequest
> PureUploadSetup
>
> If (CStr(Request.QueryString("GP_upload")) <> "") Then
> on error resume next
> Dim reqPureUploadVersion, foundPureUploadVersion
> reqPureUploadVersion = 2.09
> foundPureUploadVersion = getPureUploadVersion()
> if err or reqPureUploadVersion > foundPureUploadVersion then
> Response.Write "<b>You don't have latest version of
> ScriptLibrary/incPureUpload.asp uploaded on the server.</b><br>"
> Response.Write "This library is required for the current page. It is
> fully
> backwards compatible so old pages will work as well.<br>"
> Response.End
> end if
> on error goto 0
> GP_redirectPage = ""
> Server.ScriptTimeout = 600
>
> RequestBin = Request.BinaryRead(Request.TotalBytes)
> Set UploadRequest = CreateObject("Scripting.Dictionary")
> BuildUploadRequest RequestBin, """../cartelera""", "file", "", "over"
>
> If (GP_redirectPage <> "" and not (CStr(UploadFormRequest("MM_insert"))
> <>
> "" or CStr(UploadFormRequest("MM_update")) <> "")) Then
> If (InStr(1, GP_redirectPage, "?", vbTextCompare) = 0 And
> UploadQueryString <> "") Then
> GP_redirectPage = GP_redirectPage & "?" & UploadQueryString
> End If
> Response.Redirect(GP_redirectPage)
> end if
> else
> if UploadQueryString <> "" then
> UploadQueryString = UploadQueryString & "&GP_upload=true"
> else
> UploadQueryString = "GP_upload=true"
> end if
> end if
> ' End Pure Upload
> '------------------------------------------------------------------------------
> %>
> <%
> ' *** Edit Operations: (Modified for File Upload) 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 & "?" &
> Server.HTMLEncode(UploadQueryString)
> End If
>
> ' boolean to abort record edit
> MM_abortEdit = false
>
> ' query string to execute
> MM_editQuery = ""
> %>
> <%
> ' *** Insert Record: (Modified for File Upload) set variables
>
> If (CStr(UploadFormRequest("MM_insert")) = "nuevacartelera") Then
>
> MM_editConnection = MM_CinemaxSite_STRING
> MM_editTable = "Fresnillo"
> MM_editRedirectUrl = "checkdata.asp"
> MM_fieldsStr =
> "NombreSpanish2|value|NombreEnglish2|value|Clasifi cacion2|value|Pais2|value|Fech
> aRelease2|value|Director2|value|Reparto2|value|Sit ioOficial2|value|SalasExhibici
> on2|value|Horarios2|value|Imagen2|value|textarea|v alue"
> MM_columnsStr =
> "NombreSpanish|',none,''|NombreEnglish|',none,''|C lasificacion|',none,''|Pais|',
> none,''|FechaRelease|',none,''|Director|',none,''| Reparto|',none,''|SitioOficial
> |',none,''|SalasExhibicion|',none,''|Horarios|',no ne,''|Imagen|',none,''|Sinopsi
> s|',none,''"
>
> ' create the MM_fields and MM_columns arrays
> MM_fields = Split(MM_fieldsStr, "|")
> 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
> %>
> <%
> ' *** Insert Record: (Modified for File Upload) construct a sql insert
> statement and execute it
>
> Dim MM_tableValues
> Dim MM_dbValues
>
> If (CStr(UploadFormRequest("MM_insert")) <> "") Then
>
> ' create the sql insert statement
> MM_tableValues = ""
> MM_dbValues = ""
> 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_tableValues = MM_tableValues & ","
> MM_dbValues = MM_dbValues & ","
> End If
> MM_tableValues = MM_tableValues & MM_columns(MM_i)
> MM_dbValues = MM_dbValues & MM_formVal
> Next
> MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues &
> ")
> values (" & MM_dbValues & ")"
>
> If (Not MM_abortEdit) Then
> ' execute the insert
> 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 Recordset1
> Dim Recordset1_numRows
>
> Set Recordset1 = Server.CreateObject("ADODB.Recordset")
> Recordset1.ActiveConnection = MM_CinemaxSite_STRING
> Recordset1.Source = "SELECT * FROM Fresnillo"
> Recordset1.CursorType = 0
> Recordset1.CursorLocation = 2
> Recordset1.LockType = 1
> Recordset1.Open()
>
> Recordset1_numRows = 0
> %>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
> "http://www.w3.org/TR/html4/loose.dtd">
> <html>
> <head>
> <script language="JavaScript">
> <!--
>
> function
> checkFileUpload(form,extensions,requireUpload,size Limit,minWidth,minHeight,maxWi
> dth,maxHeight,saveWidth,saveHeight) { //v2.09
> document.MM_returnValue = true;
> for (var i = 0; i<form.elements.length; i++) {
> field = form.elements[i];
> if (field.type.toUpperCase() != 'FILE') continue;
>
> checkOneFileUpload(field,extensions,requireUpload, sizeLimit,minWidth,minHeight,m
> axWidth,maxHeight,saveWidth,saveHeight);
> } }
>
> function
> checkOneFileUpload(field,extensions,requireUpload, sizeLimit,minWidth,minHeight,m
> axWidth,maxHeight,saveWidth,saveHeight) { //v2.09
> document.MM_returnValue = true;
> if (extensions != '') var re = new RegExp("\.(" +
> extensions.replace(/,/gi,"|").replace(/\s/gi,"") + ")$","i");
> if (field.value == '') {
> if (requireUpload) {alert('File is
> required!');document.MM_returnValue =
> false;field.focus();return;}
> } else {
> if(extensions != '' && !re.test(field.value)) {
> alert('This file type is not allowed for uploading.\nOnly the
> following file extensions are allowed: ' + extensions + '.\nPlease select
> another file and try again.');
> document.MM_returnValue = false;field.focus();return;
> }
> document.PU_uploadForm = field.form;
> re = new RegExp(".(gif|jpg|png|bmp|jpeg)$","i");
> if(re.test(field.value) && (sizeLimit != '' || minWidth != '' ||
> minHeight
> != '' || maxWidth != '' || maxHeight != '' || saveWidth != '' ||
> saveHeight !=
> '')) {
>
> checkImageDimensions(field,sizeLimit,minWidth,minH eight,maxWidth,maxHeight,saveW
> idth,saveHeight);
> } }
> }
>
> function showImageDimensions(fieldImg) { //v2.09
> var isNS6 = (!document.all && document.getElementById ? true : false);
> var img = (fieldImg && !isNS6 ? fieldImg : this);
> if (img.width > 0 && img.height > 0) {
> if ((img.minWidth != '' && img.minWidth > img.width) || (img.minHeight
> != ''
> && img.minHeight > img.height)) {
> alert('Uploaded Image is too small!\nShould be at least ' +
> img.minWidth +
> ' x ' + img.minHeight); return;}
> if ((img.maxWidth != '' && img.width > img.maxWidth) || (img.maxHeight
> != ''
> && img.height > img.maxHeight)) {
> alert('Uploaded Image is too big!\nShould be max ' + img.maxWidth + '
> x '
> + img.maxHeight); return;}
> if (img.sizeLimit != '' && img.fileSize > img.sizeLimit) {
> alert('Uploaded Image File Size is too big!\nShould be max ' +
> (img.sizeLimit/1024) + ' KBytes'); return;}
> if (img.saveWidth != '') document.PU_uploadForm[img.saveWidth].value =
> img.width;
> if (img.saveHeight != '') document.PU_uploadForm[img.saveHeight].value =
> img.height;
> document.MM_returnValue = true;
> } }
>
> function checkImageDimensions(field,sizeL,minW,minH,maxW,ma xH,saveW,saveH)
> {
> //v2.09
> if (!documen

[Atmosfera]

mmmm, nope, I'm using version 2.0.9, this is a common bug since what version?

Thanks a lot!!

[Atmosfera]

thanks!!!!!

[Les Matthews]

I assume the update fixed the problem.
Glad to have helped.

"Atmosfera" <webforumsuser@macromedia.com> wrote in message
news:d5dssq$f2n$1@forums.macromedia.com...

> thanks!!!!!

[Atmosfera]

Thanks a lot Les, I just updated and it's working fine now, you can view that
under [url]http://w167.tecnofin.com.mx/multimax/[/url]

BTW, can you help me with this:?


[url]http://www.macromedia.com/cfusion/webforums/forum/messageview.cfm?catid=263&thre[/url]
adid=998640&enterthread=y&loc=en_us

Thanks in advance!!