Fejl ???

Tænker du på det her:

Fejlen er:
Du mangler at skrive et password!

Klik på din browsers tilbage knap, ret fejlen og prøv igen :-)
Mener du at Hot Or Not er skyld i denne fejl, så kan du skrive til os på postmaster@coolornot.dk


--------------------------------------------------------------------------------

0

???

Det er lidt svært at sige uden at se noget kode ...

Det her er Signup_save.asp :

<!--#include file="inc_settings.asp" -->
<%

    On Error Resume Next

    Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload")
    Upload.MaxFileSize = MaxFileSize
    Upload.AllowedFilesList = "jpg,jpeg,png"
    Upload.Upload
    If Err <> 0 Then
        If Err = -2147220494 Then intErrorCode = 20
        If Err = -2147220399 Then intErrorCode = 21
        Err.Clear
    End If



    If Not Upload.Files("filename").IsMissing And intErrorCode = 0 Then
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open "DRIVER=mysql; SERVER=" & sql_Server & "; DATABASE=" & sql_DB & "; UID=" & sql_UID & "; PWD=" & sql_PWD

        strFilename = Upload.Files("filename").FileName

        strPass = DeMessSQL(Trim(Upload.Form("pass")))
        strEmail = DeMessSQL(Trim(Upload.Form("email")))
        strName = DeMessSQL(Trim(Upload.Form("fullname")))
        strCity = DeMessSQL(Trim(Upload.Form("homecity")))
        strCountry = DeMessSQL(Trim(Upload.Form("homecountry")))
        strText = DeMessSQL(Trim(Upload.Form("teaser")))
        strGender = DeMessSQL(Trim(Upload.Form("gender")))
'-----------------------------------------------------------------her
     
If strGender = "" Or Not IsNumeric(strGender) Then intErrorCode = 3
If strEmail = "" Or Not IsEmail(strEmail) Then intErrorCode = 2
If strPass = "" Then intErrorCode = 1

      'Set Rs = Conn.Execute("SELECT * FROM persons where email = '" & strEmail & "'")
      'if Rs.eof or Rs.BOF then  intErrorCode = 4           

'------------------------------------------------------------------------til her
      ' If intErrorCode = null Then
            strSQL = "INSERT INTO persons (password,email,name,city,country,text,gender,picturefile,datetime,shown) VALUES ("
            strSQL = strSQL & "'" & strPass & "',"
            strSQL = strSQL & "'" & strEmail & "',"
            strSQL = strSQL & "'" & strName & "',"
            strSQL = strSQL & "'" & strCity & "',"
            strSQL = strSQL & "'" & strCountry & "',"
            strSQL = strSQL & "'" & strText & "',"
            strSQL = strSQL & strGender & ","
            strSQL = strSQL & "'" & strFilename & "',"
            strSQL = strSQL & "now(),0);"

            Conn.Execute strSQL
            Set Rs = Conn.Execute("SELECT id FROM persons ORDER BY id DESC")
            strPID = Rs(0)

            strMail = strEMVO
            strMail = Replace(strMail, "#navn", strName)
            strMail = Replace(strMail, "#pid", strPID)

            Upload.Files("filename").SaveAs Server.MapPath("pictures/" & strPID & "_" & strFilename)
            If Err = 0 Then
                ResizeIImage Server.MapPath("pictures/" & strPID & "_" & strFilename), 615
                Conn.Execute "INSERT INTO hits (pid) VALUES (" & strPID & ");"
                SendMail strEmail, "Registrering på Hot Or Not", strMail
          Else
          strSQL = "INSERT INTO persons (password,email,name,city,country,text,gender,picturefile,datetime,shown) VALUES ("
            strSQL = strSQL & "'" & strPass & "',"
            strSQL = strSQL & "'" & strEmail & "',"
            strSQL = strSQL & "'" & strName & "',"
            strSQL = strSQL & "'" & strCity & "',"
            strSQL = strSQL & "'" & strCountry & "',"
            strSQL = strSQL & "'" & strText & "',"
            strSQL = strSQL & strGender & ","
            strSQL = strSQL & "'" & strFilename & "',"
            strSQL = strSQL & "now(),0);"
        Conn.Execute strSQL

              ' Conn.Execute "DELETE FROM persons WHERE id=" & strPID
              ' intErrorCode = 30
          End If
      '  End If
    ElseIf intErrorCode = 0 Then
        intErrorCode = 40
    End If
%>
<html>
<head>
    <titleHot Or Not</title>
    <meta http-equiv="pragma" content="nocache">
    <link rel="stylesheet" type="text/css" href="hotornot.css">
</head>
<body>
<center>
    <table border="0" cellpadding="4" cellspacing="0" width="613">
        <tr><td>
            <!--#include file="inc_menu.asp" -->
<%    If intErrorCode > 0 Then %>
            Der opstod en fejl under tilmelding af din profil.<br>
            Fejlen er:
            <p>
            <font color="#ff0000"><b>
<%
        Select Case intErrorCode
            Case 1: Response.Write "Du mangler at skrive et password!"
            Case 2: Response.Write "Du mangler at skrive din email adresse, eller den indtastede email adresse er ikke gyldig!"
            Case 3: Response.Write "Du mangler at vælge om du er Mand eller Kvinde!"
            Case 4: Response.Write "Den indtastede email adresse er allerede brugt af en anden bruger!"
            Case 20: Response.Write "Forkert filtype! Der kan kun uploades JPG (*.jpg; *.jpeg) og  PNG (*.png) filer!"
            Case 21: Response.Write "Billedet fylder for meget! Max størrelse er: &tilde;" & (MaxFileSize \ 1024) & " KB"
            Case 30: Response.Write "Der opstod en fejl under upload af dit billede og din profil er derfor ikke blevet oprettet. Dette skyldes højst sandsynligt en systemfejl!"
            Case 40: Response.Write "Du valgte ikke noget billede!"
        End Select
%>
            </font></b>
            <p>
            Klik på din browsers tilbage knap, ret fejlen og prøv igen :-)<br>
            Mener du at Hot Or Not er skyld i denne fejl, så kan du skrive til os på <a href="mailto:postmaster@coolornot.dk">postmaster@coolornot.dk</a>
<%    Else %>
            <b>Du er nu oprettet på Hot or Not :-)</b>
            <p>
            Det direkte link til din profil er: <a href="<%=BaseAddress%>default1.asp?pid=<%=strPID%>"><%=BaseAddress%>default1.asp?pid=<%=strPID%></a>
            <p>
            Du vil i løbet af få minutter modtage en velkomst email :-)
<%    End If %>
            <hr>
           
        </td></tr>
    </table>
</center>
</body>

Er der installeret ASPSmartUpload på det web-hotel du bruger??


HEr bruger du ASPSmartUpload:
Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload")

Det kunne typde på at ASPSmartUpload ikke var tilgængelig på serveren. For at teste dette kan du udkomentere linien On Error Resume Next som vist nedenfor:


<!--#include file="inc_settings.asp" -->
<%

'    On Error Resume Next

    Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload")


Hvis du ikke har mulighed for at bruge ASPSmartUpload vil der komme en fejl i linien, Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload"). Noget med serveren ikke kender den String som er i CreateObject.

Hmm, du siger noget. Men fairhost.dk siger at de understøtter ASPSmartupload, så er spørgsmålet bare om de nu gør det.

Ligner det da at den ikke understøtter ASPSmartupload ?

Jeg kender ikke fairhost.dk og kan ikke lige umiddelbart se hvad deres ASP har af kompunenter. Der er to meget bruger upload komponenter og det er ASPSmartUpload og ASPUpload. De fletes web-hoteller understytter en af de to. Men hvis du har prøvet som jeg skrev og du ikke får en fejl i linien:
    Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload")

Så understytters ASPSmartUpload højst sansynligt og så virker det lidt underlidt du får den fejl "Du mangler at skrive et password!"

lukker....fejl er der stadigvæk :-/