[asp+mysql]Probleem met uploadscript

[siggy]

Ik heb inmiddels een uploadscript online ergens gevonden waarmee je files kunt uploaden zonder al te veel poeha.
Nou is mijn probleem ook niet het uploaden maar het in de tabel zetten van die file, dit werkt ook meegegeven maar het lukt me niet om die succesvol aan te passen

code:

<%@ Language=VBScript %>
<!-- #include file="upload.asp" -->
<%


' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader

' This starts the upload process
Uploader.Upload()


Response.Write "<b>Thank you for your upload " & Uploader.Form("fullname") & "</b><br>"

' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
    Response.Write "File(s) not uploaded."
Else
    ' Loop through the uploaded files
    For Each File In Uploader.Files.Items
        
        ' Check where the user wants to save the file
        If Uploader.Form("saveto") = "disk" Then
    
            ' Save the file
            File.SaveToDisk "h:\test\"
    
        ElseIf Uploader.Form("saveto") = "database" Then
            
            ' Open the table you are saving the file to
            myDSN = "DRIVER={MySQL};"
            myDSN = myDSN & "bfm" 

            set cn = server.createobject("ADODB.connection")
            set db = server.createobject("ADODB.connection")
            cn.open myDSN

            strsql = "use bfastmotors"
            db.open strsql, cn

            'Set RS = Server.CreateObject("ADODB.Recordset")
            'strsql = "select * from news"
            'RS.Open strsql, cn
            'RS.AddNew ' create a new record
            
            'RS("bericht_plaatje_klein_naam")    = File.FileName
            'RS("bericht_plaatje_klein_filesize")     = File.FileSize
            'RS("bericht_plaatje_klein_type") = File.ContentType
        
            ' Save the file to the database
            'File.SaveToDatabase RS("bericht_plaatje_klein")
            
            ' Commit the changes and close
            'RS.Update
            'RS.Close
        End If
        
        ' Output the file details to the browser
        Response.Write "File Uploaded: " & File.FileName & "<br>"
        Response.Write "Size: " & File.FileSize & " bytes<br>"
        Response.Write "Type: " & File.ContentType & "<br><br>"
    Next
End If

%>

zodra ik ook maar een sql statement uitvoer krijg ik een http 500 error terwijl er kwa syntax niks fout aan is. Ik heb mooi de connectie gemaakt met de database en wil dan met "use bfastmotors" de juiste database aanroepen waarbij ik dus die http 500 krijg en geen enkele relevante info wat ie nou precies fout doet.

Daarna moet die file dus in een blob veld in de tabel news waardoor ik dus eerst die tabel moet selecteren en in een recordset pleur. Dat toevoegen van een record laat ik even achterwege omdat ik het bestand in een bestaand record wil invoegen.
Maar zover komt ie dus al niet eens, ik zit me hier al sinds vanochtend op blind te staren en heb al heel wat topics gelezen maar kom er nog steeds niet uit

[gorgi_19]

Zet je "Show Friendly HTTP-errors" eens uit. Je krijgt dan een foutmelding die waarschijnlijk iets meerzeggender is dan een standaard 500 melding. .:)

[siggy]

Dat heb ik ook alleen als ik kijk naar 'aangepaste foutmeldingen' staat daar bij 500 standaard en heb geen flauw idee waar ik de complexe foutmelding vandana moet halen.

[gorgi_19]

siggy schreef op 10 november 2002 @ 15:07:
Dat heb ik ook alleen als ik kijk naar 'aangepaste foutmeldingen' staat daar bij 500 standaard en heb geen flauw idee waar ik de complexe foutmelding vandana moet halen.

In je Internet Explorer:
Tools > Advanced > "Show Friendly HTTP Errors" onder het kopje "browsing" uitzetten.

[siggy]

gorgi_19 schreef op 10 November 2002 @ 15:08:
[...]

In je Internet Explorer:
Tools > Advanced > "Show Friendly HTTP Errors" onder het kopje "browsing" uitzetten.

thnx, ik zat de hele tijd te kijken bij mij iis config

nu kan ik verder, dank u

[siggy]

"[Microsoft][ODBC-stuurprogrammabeheer] De naam van de gegevensbron is niet gevonden en er is geen standaardstuurprogramma opgegeven "

erg leuk, dit is de code die daarvoor moet zorgen die op alle andere pagina's wel werkt:

code:

myDSN = "DRIVER={MySQL};"
myDSN = myDSN & "bfm" 

set cn = server.createobject("ADODB.connection")
cn.open myDSN

[gorgi_19]

Het kan aan mij liggen, maar ik heb het idee dat ik een stukje van je Connectionstring mis..

Zie voor een compleet voorbeeld (met Server, UserID, etc.):
http://www.yournamewebhosting.com/website.htm

onderaan.

[siggy]

Voor php wel jah, daar moet je een paswoord en username meegeven maar dit is dus met een myodbc link die goed ingesteld staat die wel op andere pagina's werkt en op deze niet en dat is gewoon stom en onlogisch. Ik kan je de complete code zien van de pagina's waar die het wel op doet.