Asp Problem Upload

ASP Free Forums Sponsor:

April 19th, 2008, 12:26 AM

Adonius

Registered User

Join Date: Apr 2008

Posts: 10

Time spent in forums: 2 h 19 m 9 sec
Reputation Power: 0

Other - Asp Problem Upload

I get the following problem with an upload script that i received online:

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'USERNAME'

/upload.asp, line 7

Here is the whole script:

<%@ Language="VBScript" %>
<% Option Explicit %>



<%DIM SHOW
USERNAME = REQUEST.COOKIES(USERMANSITENAME&"USER")
SET SHOW=SERVER.CREATEOBJECT("ADODB.RECORDSET")
SHOW.OPEN "SELECT PICTURE,ISPICTURE FROM USERS WHERE USERNAME = '"&USERNAME&"'", DBCONN, 3, 3%>
<HTML>
<HEAD>
<TITLE>UNLIMITED</TITLE>
<STYLE>
BODY
{
SCROLLBAR-HIGHLIGHT-COLOR:#D8C2AD;
SCROLLBAR-TRACK-COLOR:#FAFCED;
SCROLLBAR-SHADOW-COLOR:#000000;
SCROLLBAR-FACE-COLOR:#D8C2AD;
SCROLLBAR-3DLIGHT-COLOR:#000000;
SCROLLBAR-ARROW-COLOR:#FFFDDD;
SCROLLBAR-DARKSHADOW-COLOR:#000000;
}

.FONT
{
COLOR: #000080; Helvetica
}

A
{
COLOR: #0011CC;
}

A:HOVER
{
COLOR: #0000FF
}

A:VISITED
{
COLOR: #2D3DAD
}

A:VISITED:HOVER
{
COLOR: #0000FF
}

.INPUT
{
COLOR: 000080;
FONT: 10px Helvetica;
BACKGROUND-COLOR: AA89C2;
BORDER-RIGHT: 1px solid;
BORDER-LEFT: 1px solid;
BORDER-TOP: 1px solid;
BORDER-BOTTOM: 1px solid

}

</STYLE>
</HEAD>

<BODY BGCOLOR="#CCBBAA" TOPMARGIN="0" LEFTMARGIN="0">

<%
UPS = REQUEST.QUERYSTRING("UP")%>
<%IF UPS = "UP" THEN
SET PIC_UPLOAD = SERVER.CREATEOBJECT("aspSmartUpload.SmartUpload")
PIC_UPLOAD.UPLOAD
For each file In PIC_UPLOAD.Files
IF NOT FILE.IsMissing Then
IF File.Size > 153000 THEN
RESPONSE.WRITE "<CENTER><H2 CLASS=""FONT"">"&UMP_MSG_ANERROROCCURED&"</H2><FONT SIZE=""2"" CLASS=""FONT"">"&UMP_MSG_UPLOADFILESIZE&"<BR><A HREF=""javascript:history.back()"">"&UMP_MSG_GOBACK&"</A></FONT></CENTER>"
ELSEIF FILE.FileExt <> "jpg" THEN
RESPONSE.WRITE "<CENTER><H2 CLASS=""FONT"">"&UMP_MSG_ANERROROCCURED&"</H2><FONT SIZE=""2"" CLASS=""FONT"">"&UMP_MSG_FILEEXT&"<BR><A HREF=""javascript:history.back()"">"&UMP_MSG_GOBACK&"</A></FONT></CENTER>"
ELSE
File.SaveAs(USERMANUPLOADPATH & USERNAME&"."&File.FileExt)
SHOW.UPDATE
SHOW("PICTURE") = USERNAME&"."&File.FileExt
SHOW("ISPICTURE") = "True"
SHOW.UPDATE
RESPONSE.REDIRECT("UPLOAD.ASP?UP=TRUE")
END IF
ELSE
RESPONSE.WRITE "<CENTER><H2 CLASS=""FONT"">"&UMP_MSG_ANERROROCCURED&"</H2><FONT SIZE=""2"" CLASS=""FONT"">"&UMP_MSG_NOTSELECTFILE&"<BR><A HREF=""javascript:history.back()"">"&UMP_MSG_GOBACK&"</A></FONT></CENTER>"
End IF
NEXT
%>
<%ELSEIF UPS = "TRUE" THEN%>
<CENTER><FONT SIZE="2" CLASS="FONT"><%=UMP_MSG_UPLOADPICSUCESS%><BR><IMG SRC="<%=USERMANUPLOADPATH%><%=SHOW("PICTURE")%>"><BR><A HREF="javascript:window.close()"><%=UMP_MSG_WINCLOSE%></A></FONT></CENTER>
<%ELSE%>
<center>
<H2 CLASS="FONT"><%=UMP_UploadYourPicture%> </H2><FONT SIZE="2" CLASS="FONT"><%=UMP_MSG_PICWARN%>
<FORM ACTION="UPLOAD.ASP?UP=UP" METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE" CLASS="INPUT" SIZE="45">
<INPUT TYPE="SUBMIT" VALUE="<%=UMP_UploadYourPicture%>" CLASS="INPUT"></form>
<A HREF="javascript:window.close()"><%=UMP_MSG_WINCLOSE%></A>
</CENTER>
<%END IF%>

Please help me
need this file to work for a school project!

April 19th, 2008, 02:57 AM

micky

Couch Potato Wizard

Join Date: Jan 2005

Location: India

Posts: 12,685

Folding Points: 1480 Folding Title: Novice Folder

Time spent in forums: 5 Months 1 Week 5 Days 4 h 5 m 20 sec
Reputation Power: 2358

hi and welcome to the forum
as the error says, u need to define the variable USERNAME

u have this line in ur code <% Option Explicit %>, because of which u need to define all ur variables.
So just define it and the error will go

Also please use code tags while posting code here, select code and press #

Comments on this post

Adonius agrees: GOod answer

__________________
Laziness is my religion and Sunday is my God

Get the Mantra!

April 19th, 2008, 06:59 AM

Adonius

Registered User

Join Date: Apr 2008

Posts: 10

Time spent in forums: 2 h 19 m 9 sec
Reputation Power: 0

Many thanks

Thank you!

Is there any chance we can keep in contact
because I want to finish my school project ASAP and i have some problem with CODING

ANd i will want someone to pin point my problems

Code:

Thank you!

Quote:

Originally Posted by micky

Also please use code tags while posting code here, select code and press #

April 19th, 2008, 07:14 AM

Adonius

Registered User

Join Date: Apr 2008

Posts: 10

Time spent in forums: 2 h 19 m 9 sec
Reputation Power: 0

Help Needed

CAn someone be at my disposel for 1 day or some hours to help me pin point some coding problem in my school project site!!

Regards,
Adonius

April 19th, 2008, 07:17 AM

micky

Couch Potato Wizard

Join Date: Jan 2005

Location: India

Posts: 12,685

Time spent in forums: 5 Months 1 Week 5 Days 4 h 5 m 20 sec
Reputation Power: 2358

u can ask here only!!

April 19th, 2008, 07:22 AM

Adonius

Registered User

Join Date: Apr 2008

Posts: 10

Time spent in forums: 2 h 19 m 9 sec
Reputation Power: 0

ok then!
At which hour can i get you so we can brainstorm
I`m leaving here to go GYM
i`ll be back in about 3 a 4 hour maybe less

April 19th, 2008, 07:24 AM

Adonius

Registered User

Join Date: Apr 2008

Posts: 10

Time spent in forums: 2 h 19 m 9 sec
Reputation Power: 0

I`ll just post an reply when i`m back

Your a miracle i need a good help here so i can finish this school project i`m nealy finished here but i need to upload pics and more on it

April 19th, 2008, 09:47 AM

Adonius

Registered User

Join Date: Apr 2008

Posts: 10

Time spent in forums: 2 h 19 m 9 sec
Reputation Power: 0

Mickey

I`m back ready to start coding!

April 19th, 2008, 09:59 AM

Adonius

Registered User

Join Date: Apr 2008

Posts: 10

Time spent in forums: 2 h 19 m 9 sec
Reputation Power: 0

Defined variable

Have defined variable But still problem

Code:

Server object error 'ASP 0177 : 800401f3'

#10

April 21st, 2008, 01:52 AM

micky

Couch Potato Wizard

Join Date: Jan 2005

Location: India

Posts: 12,685

Time spent in forums: 5 Months 1 Week 5 Days 4 h 5 m 20 sec
Reputation Power: 2358

Quote:

Originally Posted by Adonius

Have defined variable But still problem

Code:

Server object error 'ASP 0177 : 800401f3'

u need to tell us the line of the error

#11

April 21st, 2008, 08:13 AM

Shadow Wizard

Moderator From Beyond

Join Date: Sep 2004

Location: Israel

Posts: 29,262

Folding Points: 587728 Folding Title: Super Ultimate Folder - Level 2

Time spent in forums: 3 Months 2 Weeks 2 Days 32 m 33 sec
Reputation Power: 2509

--thread moved to the classic ASP forum.

Viewing: ASP Free Forums > Programming > ASP Development > Other - Asp Problem Upload

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Create the Optimal Architecture for your Critical Applications
Warburton's the largest independently owned bakery in the UK faced a number of difficult challenges in providing the most robust yet efficient IT infrastructure for their organization's success. IBM's services combined with their xSeries servers created the perfect platform for their SAP environment with sufficient flexibility, and did so in very time effective fashion.

Five Best Practices for Deploying a Successful Service-Oriented Architecture
This white paper describes the benefits you can expect with SOA, and how IBM can help take your business there.

Gartner Magic Quadrant for Application Delivery Controllers
Gartner summarizes its view on Application Delivery Controllers, evaluates strengths and weaknesses of solutions, and provides Magic Quadrant reporting for a quick comparison across all vendors. Learn from Gartner how you can benefit from an all-in-one device like Citrix NetScaler that delivers the highest levels of availability, performance and security.

Knowledge is Power
What you don't know can hurt you, and is likely costing you money and increasing your security risks during an era of scarce resources. This white paper proposes six key strategies that enterprise security managers can use to improve their network defense posture.

Rationalizing the Multi-Tool Environment
The rationalized multi-tool approach is flexible, scalable and cost effective. It provides the necessary input to the IT service management business processes. It preserves prior investments in monitoring tools, empowers technologists to select the best tools with which to do their jobs, and enhances effective response to incidents.

More Free IT White Papers!