hjælp til smart upload asp
hey..jeg har et problem ang upload af billeder, den siger at siden ikke kan vises, nogen der kan hjælpe mig lidt med at finde fejlen..
her er min side:
<%@ Language="VBScript" %>
<% Option Explicit %>
<!--#INCLUDE file="../INC_CONFIG.ASP"-->
<!--#INCLUDE file="../DBCONN.ASP"-->
<!--#INCLUDE file="../INC_LNG.ASP"-->
<%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>ASPScriptz Usermanager Plus</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:#000000;
}
A
{
COLOR: #0011CC;
}
A:HOVER
{
COLOR: #336699
}
A:VISITED
{
COLOR: #2b8fbd
}
A:VISITED:HOVER
{
COLOR: #2b8fbd
}
.INPUT
{
COLOR: #000000;
FONT: 11px Helvetica;
BACKGROUND-COLOR: #336699;
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=""java script: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=""java script: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=""java script: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="java script: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="java script:window.close()"><%=UMP_MSG_WINCLOSE%></A>
</CENTER>
<%END IF%>
