Fejl ved upload

Hvis du bruger Internet Explorer, så kan få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

Funktioner -> Internetindstillinger -> Avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

Nu fik jeg denne fejl -

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'USERNAME'

/asp/profil/UPLOAD.ASP, line 7

Den siger at "username" ikke indeholder noget, er du sikker på at du har lagt noget der i?

øhh lagt noget i == USERNAME er en tabel i db med feldtet USERNAME der ér udfyldt
- Den skulle vist hente en cookie som den ligger ved logind, men jeg har lige set at det gør den ikke - altså den ligger ikke en cookie ved log ind!! Kun hvis man ber den om at huske ens logind informationer som brugernavn og password -

Du får lige logind siden


/// Logind siden ser således ud
<%@ Language="VBScript" %>
<% Option Explicit %>
<!--#INCLUDE FILE="INC_CONFIG.ASP"-->
<!--#INCLUDE FILE="DBCONN.ASP"-->
<!--#INCLUDE FILE="INC_LNG.ASP"-->
<%IF REQUEST.QUERYSTRING("ACT") = "LOGIN PROCESS" THEN%>

<%DIM LOGINUSERNAME,LOGINPASSWORD,SAVEUP


LOGINUSERNAME    =    LCASE(REQUEST.FORM("USERNAME"))
LOGINPASSWORD    =    REQUEST.FORM("PASSWORD")
LOGINPASSWORD    =    PASSENC(LOGINPASSWORD)
SAVEUP        =    REQUEST.FORM("SAVEUP")


IF LOGINUSERNAME = "" AND LOGINPASSWORD = "" THEN
LOGINERROR("NOUP")

ELSEIF LOGINUSERNAME = "" THEN
LOGINERROR("NOU")

ELSEIF LOGINPASSWORD = "" THEN
LOGINERROR("NOP")

ELSE

DIM RSLOGINUSER,RSADDLOGIN
SQL = "SELECT USERNAME,PASSWORD,TOTALLOGINS,DTLASTLOGIN,IPLASTLOGIN FROM USERS WHERE USERNAME = '" & LOGINUSERNAME & "'"
SET RSLOGINUSER = SERVER.CREATEOBJECT("ADODB.RECORDSET")
RSLOGINUSER.OPEN SQL, DBCONN, 3,3
 
    IF NOT RSLOGINUSER.EOF THEN
      IF LOGINPASSWORD = RSLOGINUSER("PASSWORD") THEN
          RESPONSE.COOKIES(USERMANSITENAME&"LOGIN")        =  "TRUE"
          RESPONSE.COOKIES(USERMANSITENAME&"USER")        =  LOGINUSERNAME
          RESPONSE.COOKIES(USERMANSITENAME&"LOGINDT")        =  RSLOGINUSER("DTLASTLOGIN")
          RESPONSE.COOKIES(USERMANSITENAME&"LOGINIP")        =  RSLOGINUSER("IPLASTLOGIN")
        IF SAVEUP = "U" THEN
            RESPONSE.COOKIES(USERMANSITENAME&"LOGINSAVE")        =    "TRUE"
            RESPONSE.COOKIES(USERMANSITENAME&"LOGINSAVE").EXPIRES    =    DATE + 7
                RESPONSE.COOKIES(USERMANSITENAME&"LOGIN").EXPIRES    =    DATE + 7
                RESPONSE.COOKIES(USERMANSITENAME&"USER2")        =    LOGINUSERNAME
                RESPONSE.COOKIES(USERMANSITENAME&"USER2").EXPIRES    =    DATE + 7
            RESPONSE.COOKIES(USERMANSITENAME&"USERLEVEL").EXPIRES    =    DATE + 7
          RESPONSE.COOKIES(USERMANSITENAME&"USER").EXPIRES    =    DATE + 7 
        ELSEIF SAVEUP = "UP" THEN
            RESPONSE.COOKIES(USERMANSITENAME&"LOGINSAVE")        =    "TRUE"
            RESPONSE.COOKIES(USERMANSITENAME&"LOGINSAVE").EXPIRES    =    DATE + 7
                RESPONSE.COOKIES(USERMANSITENAME&"LOGIN").EXPIRES    =    DATE + 7
                RESPONSE.COOKIES(USERMANSITENAME&"USER2")        =    LOGINUSERNAME
                RESPONSE.COOKIES(USERMANSITENAME&"USER2").EXPIRES    =    DATE + 7
            RESPONSE.COOKIES(USERMANSITENAME&"USERLEVEL").EXPIRES    =    DATE + 7
            RESPONSE.COOKIES(USERMANSITENAME&"PASSWORD2")        =    LOGINPASSWORD
            RESPONSE.COOKIES(USERMANSITENAME&"PASSWORD2").EXPIRES    =    DATE + 7
          RESPONSE.COOKIES(USERMANSITENAME&"USER").EXPIRES    =    DATE + 7
                RESPONSE.COOKIES(USERMANSITENAME&"LOGINDT").EXPIRES    =    DATE + 7
                RESPONSE.COOKIES(USERMANSITENAME&"LOGINIP").EXPIRES    =    DATE + 7
        ELSEIF SAVEUP = "NO" THEN
            RESPONSE.COOKIES(USERMANSITENAME&"LOGINSAVE")        =    ""
                RESPONSE.COOKIES(USERMANSITENAME&"USER2")        =    ""
            RESPONSE.COOKIES(USERMANSITENAME&"PASSWORD")        =    ""
            RESPONSE.COOKIES(USERMANSITENAME&"PASSWORD2")        =    ""
        END IF
      SET RSADDLOGIN = Server.CreateObject("ADODB.Recordset")
      RSADDLOGIN.OPEN "USERS WHERE USERNAME = '" & LOGINUSERNAME & "'", DBCONN, 3, 3
      RSADDLOGIN.UPDATE
      RSADDLOGIN("TOTALLOGINS")    =    RSLOGINUSER("TOTALLOGINS")+1
      RSADDLOGIN("IPLASTLOGIN")    =    REQUEST.SERVERVARIABLES("REMOTE_ADDR")
      RSADDLOGIN("DTLASTLOGIN")    =    NOW()
      RSADDLOGIN.UPDATE
      RSADDLOGIN.CLOSE
      SET RSADDLOGIN = NOTHING
    IF REQUEST.QUERYSTRING("REF") = "" THEN
        RESPONSE.REDIRECT("DEFAULT.ASP")
    ELSE
        RESPONSE.REDIRECT REQUEST.QUERYSTRING("REF")
    END IF
      ELSE
      LOGINERROR("WP")
      END IF
    ELSE
    LOGINERROR("WU")
    END IF
END IF

%>


<%ELSEIF REQUEST.COOKIES(USERMANSITENAME&"LOGIN") = "TRUE" THEN%>

<CENTER>
    <TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
      <TR>
        <TD ALIGN="CENTER" BGCOLOR="#AA89C2">
          <FONT SIZE="2" CLASS="FONT"><b><%=UMP_MSG_ALREADYLOGGEDIN%> </b></FONT>
        </TD>
      </TR>
      <TR>
        <TD ALIGN="CENTER">
          <font SIZE="2" CLASS="FONT"><%=UMP_MSG_YOULOGGEDINAS%> " <%=REQUEST.COOKIES(USERMANSITENAME&"USER")%> "<BR><A HREF="logout.asp"><%=UMP_MSG_CLICKTOLOGOUTANDLOGIN%></a></CENTER></font>
        </TD>
      </TR>
    </TABLE>
</CENTER>


<%ELSE%>
<CENTER>



<FORM ACTION="?ACT=LOGIN PROCESS&REF=<%=REQUEST.QUERYSTRING("REF")%>" METHOD="POST">
    <TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
      <TR>
        <TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
          <FONT SIZE="2" CLASS="FONT"><b><%=UMP_REGISTREDMEMBERSLOGINHERE%></b> </FONT>
        </TD>
      </TR>
      <TR>
        <TD WIDTH="50%">
          <FONT SIZE="2" CLASS="FONT"><%=UMP_USERNAME%> </FONT>
        </TD>
        <TD WIDTH="50%">
          <INPUT TYPE="TEXT" NAME="USERNAME" MAXLENGTH="20" CLASS="INPUT" SIZE="30" <%IF REQUEST.COOKIES(USERMANSITENAME&"LOGINSAVE")  = "TRUE" OR REQUEST.COOKIES(USERMANSITENAME&"LOGINSAVE") = "TRUEP" THEN%> VALUE="<%=REQUEST.COOKIES(USERMANSITENAME&"USER2")%>"<%END IF%>>
        </TD>
      </TR>
      <TR>
        <TD WIDTH="50%">
          <FONT SIZE="2" CLASS="FONT"><%=UMP_Password%> </FONT>
        </TD>
        <TD WIDTH="50%">
          <INPUT TYPE="PASSWORD" NAME="PASSWORD" MAXLENGTH="20" CLASS="INPUT" SIZE="30" <%IF REQUEST.COOKIES(USERMANSITENAME&"LOGINSAVE")  = "TRUEP" THEN%> VALUE="<%=PASSDEC(REQUEST.COOKIES(USERMANSITENAME&"PASSWORD2"))%>"<%END IF%>>
        </TD>
      </TR>
      <TR>
        <TD ALIGN="CENTER" COLSPAN="2">
          <FONT SIZE="2" CLASS="FONT"> <INPUT TYPE="RADIO" NAME="SAVEUP" VALUE="UP"<%IF REQUEST.COOKIES(USERMANSITENAME&"LOGINSAVE")  = "TRUEP" THEN%> CHECKED<%END IF%>> <%=UMP_Saveusernamepassword%> <INPUT TYPE="RADIO" NAME="SAVEUP" VALUE="U" <%IF REQUEST.COOKIES(USERMANSITENAME&"LOGINSAVE")  = "TRUE" THEN%> CHECKED <%END IF%> > <%=UMP_SaveOnlyusername%> <INPUT TYPE="RADIO" NAME="SAVEUP" VALUE="NO" <%IF REQUEST.COOKIES(USERMANSITENAME&"LOGINSAVE")  <> "TRUE" AND REQUEST.COOKIES(USERMANSITENAME&"LOGINSAVE") <> "TRUEP" THEN%> CHECKED<%END IF%>> <%=UMP_SaveNoting%></FONT>
        </TD>
      </TR>
      <TR>
        <TD ALIGN="CENTER" COLSPAN="2">
          <FONT SIZE="2" CLASS="FONT"><A HREF="FORGOTPASSWORD.ASP"><%=UMP_FORGOTYOURPASSWORD%></A> &nbsp;&nbsp;&nbsp;&nbsp; <A HREF="REGISTER.ASP"><%=UMP_NEWUSERSREGISTERHERE%></A></FONT>
        </TD>
      </TR>
      <TR>
        <TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
          <INPUT TYPE="SUBMIT" VALUE="<%=UMP_LOGINHERE%>" CLASS="INPUT"> <INPUT TYPE="RESET" VALUE="<%=UMP_RESETFORM%>" CLASS="INPUT">
        </TD>
      </TR>
    </TABLE>

</FORM>

    <FONT SIZE="2" COLOR="#5566FF">*COOKIES MUST BE ENABLED</FONT>
</CENTER>
<%END IF%>
<!--#INCLUDE FILE="INC_FOOTER.ASP"-->





<%
Function PASSENC(STRING)
        Dim PASSE, NEWPASS, ENCPASS
        For NEWPASS = 1 To LEN( STRING )
        PASSE = MID( STRING, NEWPASS )
                ENCPASS = ENCPASS & CHR( Asc( PASSE ) + 100 )
        Next
        PASSENC = ENCPASS
End Function

%>


<%
Function PASSDEC(STRING)
        Dim PASSD, NEWPASSD, DECPASS
        For NEWPASSD = 1 To LEN( STRING )
        PASSD = MID( STRING, NEWPASSD )
                DECPASS = DECPASS & CHR( Asc( PASSD ) - 100 )
        Next
        PASSDEC = DECPASS
End Function

%>



<%FUNCTION LOGINERROR(CALLTYPE)%>
<center>
    <TABLE WIDTH="475" HEIGHT="15" BGCOLOR="#CCBBCD" CELLSPACING="1" CELLPADDING="2" BORDER BORDERCOLOR="000080">
      <TR>
        <TD ALIGN="CENTER" BGCOLOR="#AA89C2" COLSPAN="2">
          <FONT SIZE="2" CLASS="FONT"><b><%=UMP_LOGINERROR%></b> </FONT>
        </TD>
      </TR>
      <TR>
        <TD>
          <FONT SIZE="2" CLASS="FONT"><CENTER><B><%=UMP_MSG_ERRORSOCCURED%> </B><BR>
<%
IF CALLTYPE = "NOUP" THEN

RESPONSE.WRITE "<LI>"&UMP_MSG_NOTPROVIDEDUSERNAMEPASS

ELSEIF CALLTYPE = "NOU" THEN

RESPONSE.WRITE "<LI>"&UMP_MSG_NOTPROVIDEDANYUSERNAME

ELSEIF CALLTYPE = "NOP" THEN

RESPONSE.WRITE "<LI>"&UMP_NOTPROVIDEDANYPASSWORD

ELSEIF CALLTYPE = "WU" THEN

RESPONSE.WRITE "<LI>"&UMP_MSG_PROVIDEDWRONGUSERNAME

ELSEIF CALLTYPE = "WP" THEN

RESPONSE.WRITE "<LI>"&UMP_MSG_PROVIDEDWRONGPASS

END IF
%>
          </FONT><BR>
          <A HREF="java script:history.back()"><%=UMP_MSG_GOBACK%></a></CENTER>
        </TD>
      </TR>
    </TABLE>
</center>
<%
END FUNCTION
%>

fejlen kommer på upload.asp siden. Når du har Option Explicit i toppen af din kode:

<% Option Explicit %>



Skal du dim'me/definere dine variable, lige som du har DIM SHOW skal du dim'me username, og ups. Så dene:

<%DIM SHOW


skal udvides til dette og måske flere navne:

<%DIM SHOW, USERNAME, UPS, PIC_UPLOAD, file

eagleeye - Du er bare total hardcore - ;-) - det virker nu
MANGE TAK - svar udbedes

Ok så kommer det lige svar ;-)