Forums :: Asp Upload and Resize

DwZone Forum
Welcome to the DwZone-it Forum

FAQ

Memberlist

Usergroups

Asp Upload and Resize

DwZone Forum Index -> Asp Upload and Resize

Moderators: Administrators, Moderators

Mark all topics read

Hint: For improved responsiveness, use Internet Explorer 4 (or above) with Javascript enabled, choose 'Dynamic' from the View dropdown and hit 'Set Options' to save your changes.

	Search for
View Per page Messages Since

Messages 471 to 480 of 860 (Total: 366)

First | Prev | Next | Last

Subject

Author

Date

Re:ReferenceError: resizeManage is not defined

[email protected]

2:38 6 Feb 2008

Re:ReferenceError: resizeManage is not defined

gianluigi

10:06 6 Feb 2008

Re:ReferenceError: resizeManage is not defined

[email protected]

12:11 6 Feb 2008

Re:ReferenceError: resizeManage is not defined

gianluigi

12:18 6 Feb 2008

Re:ReferenceError: resizeManage is not defined

[email protected]

14:43 6 Feb 2008

Re:ReferenceError: resizeManage is not defined

[email protected]

3:13 7 Feb 2008

Hi
Here is the page code in case your require this.
Thank you
John.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
'*********************************
'* *
'* ONLY UPLOAD *
'* http://www.DwZone-it.com *
'* *
'*********************************
server.ScriptTimeout = 5400

Dim RG_Connection, RG_editColumn, RG_recordId, Form, editAction, editRedirectUrl, RG_Files, RG_formName, UploadType, ParamVal, ParamList, MaxFieldNumber, TmpVal, x, y, Key, ProgressBar, UploadStatus, NumFile
Dim RG_altVal, RG_columns, RG_Cong, RG_dbValues, RG_dbValuesTmp, RG_delim, RG_editCmd, RG_editQuery, RG_editQueryTmp, RG_emptyVal, RG_Ext, RG_Extensions, RG_fields, RG_FieldValueTmp, RG_FileDel, RG_FileExt, RG_formVal, RG_FS, RG_i, RG_L, RG_Len, RG_Max, RG_Name, RG_New, RG_newName, RG_Num, RG_Path, RG_Rec, RG_ret, RG_Save, RG_tableValues, RG_tableValuesTmp, RG_tst, RG_typeArray, RG_z, newFileName, newThumbName
Dim tmpField_Name(), tmpValue_Name(), tmpField_Size(), tmpValue_Size(), QtyRecord, TotalFileSize, valueToRedirectSend

Set Form = New ASPForm
UploadID = Form.NewUploadID
ProgressBar = "standardd"
TotalFileSize = ""
editRedirectUrl = "ThankYou.asp"
RG_Files = "ImagesUpload/;1;;;;0;;1;;;;0;;;;;1;;1;UserMyImage1@_@_@0@_@_@13@_@_@-1;400;400;80;-1;100;100;80;-1;_small;-1;1;0;;;80;0;_small;0@_@_@./@_@_@POST"
RG_formName = "form1"
UploadType="Upload"
UploadStatus = ""
valueToRedirectSend = "UserInformation"
NumFile = 0

if len(Request.QueryString("UploadID"))>0 then
Form.UploadID = Request.QueryString("UploadID")
end if

if (Request.QueryString <> "") Then
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?" & Request.QueryString & "&UploadID=" & UploadID
else
editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) & "?UploadID=" & UploadID
End If

Const fsCompletted = 0

If Form.State = fsCompletted Then
if Form.State = 0 then

Set ParamVal = CreateObject("Scripting.Dictionary")
tmp = split(RG_Files,"@_@_@")
ParamList = split(tmp(0),"|")
MaxFieldNumber = ubound(ParamList)
for x=0 to Ubound(ParamList)
TmpVal = Split(ParamList(x),";")
for y=0 to ubound(TmpVal)
Key = right("00" & cstr(x),3) & cstr(y)
ParamVal.add Key, TmpVal(y)
next
next
Form.Files.Save
response.write(getRedirect())
response.end
End If
ElseIf Form.State > 10 then
response.write "<br><Font Color=red>Some form error.<br>Error code: " & Form.State & "<br>Error List:<br>0 Form was successfully processed. <br>1 Request method is NOT post <br>2 Zero length request (there are no data in a source form) <br>3 Form is in a middle of process. <br>5 Initial form state <br>11 Boundary of multipart/form-data is not specified. <br>12 Unknown source form (Content-type must be multipart/form-data) <br>15 Client was disconnected before upload was completted.<br>16 Unexpected error from Request.BinaryRead method (ASP error).<br></Font><br>"
End If

function GetFolderName(str): GetFolderName = Ris : end function

function myGetFileName(str): myGetFileName = Ris : end function
%>

<!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>Over 50 The place for over50 people to find friends and opportunities</title>
<meta name="description" content="If you are over 50 then this is the website for over50 people to find friends and opportunities. Make your mark and make things happen for you and all of us. Life begins again over 50!" />

<script type="text/javascript" src="p7pm/p7popmenu.js"></script>
<style type="text/css" media="screen">

</style>
</head>

<body onload="P7_initPM(1,0,1,-20,10)">

<table width="780" border="0" align="center">
<tr>
<td colspan="2"></td>
</tr>
<tr>

</tr>

<tr>
<td width="357" valign="top">

<p> </p>
<p><a href="test.asp"><strong>TEST</strong></a></p>
<p> </p></td>
<td width="419" valign="top"> </td>
</tr><form enctype="multipart/form-data" onsubmit="return ProgressBar()" id="form1" name="form1" method="post" action="<%=editAction%>">
<tr>
<td colspan="2" valign="top">
<label>
<input type="text" name="UserInformation" id="UserInformation" />
</label> </td>
</tr>
<tr>
<td valign="top">
<label>
<input name="UserMyImage1" type="file" id="UserMyImage1" onchange="dwz_setEvent(this,'change')" onclick="dwz_setEvent(this,'click')" />
</label>
<p>
<label>
<input type="submit" name="button" id="button" value="Submit" />
</label>
</p>
<p> </p></td>
<td valign="top"> </td>
</tr></form>
</table>

</body>
</html>