HOT OR NOT System

well så vidt jeg kan se har du brug for at lave en dsn ting...jeg lærte selv hvordan da jeg tog den guide som jeg fik af en venlig ekspert :)

se det her spørgmål

http://www.eksperten.dk/spm/174478
den første guide er bedst :)

Du mangler at lave en DSN (Data Source Name).

Gå ind i dit kontrol panel, og find ODBC manageren. Der kan du lave den.

Hvis det er sort snak for dig, er du allerede ude på for dybt vand.

- Rou

hvad har du kaldt din database? og hvad står der af databaseoplysninger i din inc_settings.asp?

Til Keyser/

Databasen hedder : hotornot

Her er koden ..håber ikke den fylder hele ekspertens db..:=)


<%
    ' Liste størrelser i personer
    Const ListSize = 25
    ' Hvor mange der skal have stemt på en, før brugeren kan komme på en Top liste.
    Const RatersBeforeTop = 20   
    ' Sitets base adresse. (SKAL ende på /)
    Const BaseAddress = "http://tdaugaard.place.nu/"
    ' Emailen på ejeren af sitet (en gyldig POP3 email)
    Const OwnerEmail = "hotornot@tdaugaard.dk"
    ' Ret til din egen SMTP server
    Const SMTPServer = "mail.data-doktorn.nu"
    ' Ret til dit site's navn
    Const SenderName = "Hot Or Not"
    ' Max billede størrelse i bytes
    Const MaxFileSize = 204800 ' 200 KB

    ' Din mySQL server
    Const sql_Server = "192.168.1.230"
    ' Dit brugernavn til mySQL'en
    Const sql_UID = "root"
    ' Dit password til mySQL'en
    Const sql_PWD = "root"
    ' mySQL database navnet
    Const sql_DB = "hotornot"

    ' Emailen der bliver sendt til en bruger når der bliver skrevet en kommentar. (EMOC=EMailOnComment)
    ' #navn bliver erstattet med brugerens navn.
    strEMOC = "Hej #navn," & vbCrLf
    strEMOC = strEMOC & "Du har modtaget en besked inde på Hot Or Not." & vbCrLf & vbCrLf
    strEMOC = strEMOC & "Klik dig ind på " & BaseAddress & "default.asp?mode=login for at læse den." & vbCrLf & vbCrLf
    strEMOC = strEMOC & "Med venlig hilsen, Hot Or Not."
   
    ' Emailen der bliver sendt når en person opretter sig i systemet. (EMVO=EMailVedOprettelse)
    ' #navn og #pid bliver erstattet med hhv. personens navn samt ProfileID.
    strEMVO = "Hej #navn," & vbCrLf
    strEMVO = strEMVO & "Du er nu oprettet på Hot Or Not." & vbCrLf & vbCrLf
    strEMVO = strEMVO & "Du kan se dit billede samt tekst på:" & vbCrLf & vbCrLf & "  " & BaseAddress & "default.asp?pid=#pid" & vbCrLf & vbCrLf
    strEMVO = strEMVO & "Du kan logge ind og rette din profil til hver en tid på" & vbCrLf & vbCrLf & "    " & BaseAddress & "default.asp?mode=login" & vbCrLf & vbCrLf
    strEMVO = strEMVO & "Mvh, Hot Or Not"

    ' Emailen der bliver sendt når der bliver rapporteret om et fake billede. (EMOF=EMailOnFake)
    ' #pid bliver erstattet med brugerens ProfileID.
    strEMOF = "Hejsa!" & vbCrLf & vbCrLf
    strEMOF = strEMOF & "En anmeldelse vedr. et fake billede er blevet sendt:" & vbCrLf & vbCrLf
    strEMOF = strEMOF & "-------------------------------" & vbCrLf
    strEMOF = strEMOF & "Billede ID: #pid" & vbCrLf & vbCrLf
   
    ' Forskellinge funktioner der bruges til diverse ting. RET IKKE I DEM!

    Function SendMail(strTo, strSubject, strMail)
        Set JMail = Server.CreateObject("JMail.SMTPMail")

        JMail.ServerAddress = SMTPServer
        JMail.SenderName = SenderName
        JMail.Sender = CStr(OwnerEmail)

        JMail.AddRecipient strTo
        JMail.Subject = strSubject
        JMail.Body = strMail
        JMail.Silent = True

        SendMail = JMail.Execute()
    End Function

    Function IsEmail(strEmail)
        Set objRegExpEMail = New RegExp

        objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)"
        objRegExpEMail.Global = False
        objRegExpEMail.IgnoreCase = True

        IsEmail = objRegExpEMail.Test(strEmail)

        Set objRegExpEMail = Nothing
    End Function

    Function DeMessSQL(strSource)
        DeMessSQL = Replace(strSource, "'", "''")
    End Function

    Function ResizeIImage(strImage, lngMaxWidth)
        Set Image = Server.CreateObject("AspImage.Image")

        Image.LoadImage strImage

        If Image.MaxX > lngMaxWidth Then
            intRatio = ((lngMaxWidth * 100) / Image.MaxX)
            intNewY = CInt(Image.MaxY * (intRatio / 100))
            Image.ResizeR lngMaxWidth, intNewY

            Select Case (LCase(Right(strImage, 3)) = "jpg")
                Case True
                    Image.ProgressiveJPEGEncoding = True
                    Image.ImageFormat = 1
                Case False
                    Image.ImageFormat = 3
            End Select

            Image.FileName = strImage
            Image.SaveImage
        End If

        Set Image = nothing   
    End Function
%>

jammen men hvis du bare følger den guide jeg postede så kan du helt bestemt se hvordan man gør...ellers kan du lige kontakte mig på min mail ymachalde@post.cybercity.dk
eller MSN Fr4gC@hotmail.dk

ymachalde/
Det er IKKE en access database som vi skal have fat på, men som der står...MySQL. Og så vidt jeg kan se er der ingen Mysql driver i system DNS i ODBC manageren.

kk jeg tror stadigvæk jeg må sove :/ min fejl

Keyser/ Kan du se nogen fejl eller noget som vi skal ændre?

Nej nej, du skal IKKE opsætte DSN, den fejl betyder at i ikke har installeret myODBC, den finder i på:

http://www.mysql.com/products/myodbc/index.html

Den skal installeres på webserveren.

Netsrac/ der skete ihvertfald noget...nu er fejle som følger:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[TCX][MyODBC]Access denied for user: 'root@skolewebserver' (Using password: YES)
/Hotornot/inc_system.asp, line 14

sikker på at brugernavn/password til databasen er "root"?

jep

lakse: Prøv at lade være med at skrive noget password til 'root' ...

så virker det ok..men så får jeg en fejl under indtastning ..."indtast password"
Selv om jeg har indtastet passwordet...

lukker