Hvad er der galt med denne kode?

Mener du ikke du vil lave en

  update entabel set billede='etfilnavn' where bruger=7913

??

tja.. enten det, eller også skal where ikke være det...

strTabel = Request.Querystring("kat")
strSQL = "INSERT INTO "& strTabel &" (billede) VALUES ('"& strFileName &"')"

insert sætning acceptere ikke where, det skal være uden where.

Jeps det er som der skriver:

Insert (ny record i databasen):
strSQL = "INSERT INTO " & Request.Querystring("kat") & " (billede) VALUES('" & strFileName & "')"

Update (redigering af eksisterende record i databasen):
strSQL = "UPDATE " & Request.Querystring("kat") & " SET billede = '" & strFileName & "' WHERE bruger = " & Request.Form("bruger")

/ramnir

Den kommer med denne fejl:

Cannot use Request.Form collection after calling BinaryRead.

Når jeg bruger raimers eksempel

Nu ved jeg ikke hvilket eksempel du bruger (insert/update), men kan du ikke lave et Response.Write strSQL inden de forsøger at eksekvere det, så jeg kan se hvordan SQL statementet ser ud.

/ramnir

Jeg bruger opdate eksemplet

Jeg kan ikke komme til at skrive ud da det er i sql linien fejlen ligger.

denne fejl:

Request object error 'ASP 0207 : 80004005'

Cannot use Request.Form

/carsandguns/upload.asp, line 47

Cannot use Request.Form collection after calling BinaryRead.

fun22>> det er fordi, som der så fint står... at du ikke kan bruge request.form efter BinaryRead... jeg ved godt at man aldrig skal stole på det microsoft skriver, men nogen gange kan det altså spare en for noget bøvl

Løsning: skriv din kode om

ok det kan du sagtens sige men hvad betyder BinaryRead??

Din form tag skal se således ud:

<form method="POST" action="minfil.asp" enctype="multipart/form-data"></form>

Hvis du så fx. bruger ASP.Upload skal du hente ved hjælp af:

Upload.Form("form_navn")

der bliver ikke brugt noget komponent

--BinaryRead--
The BinaryRead method is used to read the raw data sent by the client as part of a POST request. This method is used for low-level access to this data, as opposed to, for example, using the Request.Form collection to view form data sent in a POST request. Once you have called BinaryRead, referring to any variable in the Request.Form collection will cause an error. Conversely, once you have referred to a variable in the Request.Form collection, calling BinaryWrite will cause an error. Remember, if you access a variable in the Request collection without specifying which subcollection it belongs to, the Request.Form collection may be searched, bringing this rule into force.


Så på et eller andet tidspunkt før din Request.Form kalder du BinaryRead og det er som der står ovenfor ikke lovligt.

/ramnir

nu får jeg en ny fejl:

No value given for one or more required parameters.

Kan du ikke lave en:

On Error Resume Next
Response.Write strSQL
If Err.Number <> 0 Then
  Response.Write Err.Description
End If


Og så prøve at vise mig hvad den skriver (husk at sætte On Error Resume Next ind før du kalder databasen).

/ramnir

aaarrgh glemte lige

On Error Resume Next
strSQL = ".........
Response.Write strSQL

DIT KALD TIL DATABASEN...

If Err.Number <> 0 Then
  Response.Write Err.Description
End If

/ramnir

Så kommer der til at stå her:
No value given for one or more required parameters.

men hvad med SQL statementet, skriver den ikke det ud?
Det er nok her der mangler et eller andet.

/ramnir

Det kan også skyldes at fejlen ligger tidligere i scriptet.
Kommer der slet ikke et linienummer på fejlmeddelelsen?

/ramnir

jo den siger der er fejl i denne linie:
Conn.Execute(strSQL)

Her er hele koden:

<%@ Language="VBScript" %>


<!-- #INCLUDE FILE="fileupload.inc" -->

<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>

<%
'*************************************
'**** Test af FileUpload funktion ****
'****                            ****
'**** Upload .gif eller .jpg      ****
'**** billede til mappen /upload  ****
'*************************************

    'Skal formen vises?
    If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
%>
<%
kat = Request.QueryString("kat")
%> 
<FORM ENCTYPE="multipart/form-data" ACTION="upload.asp?kat=<%=kat %>" METHOD="POST">
<P>Vælg et billede:<BR>
<INPUT NAME="fileupload" TYPE="file" size="20"><P>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
    Else
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload("billeder/bruger/", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)

        If intFileUpload = 0 Then
            Response.Write "Filen " & strFilename & " blev uploaded.<BR>"
            Response.Write "Det er en fil af typen " & strContentType & " og den fylder " & intFileTotalBytes & " bytes:<BR>"
            Response.Write "<IMG SRC=""billeder/bruger/" & strFilename & """><BR>"

On Error Resume Next
strSQL = "........."
Response.Write strSQL

            'Connection Open
            set Conn = Server.CreateObject("ADODB.Connection")
            Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db.mdb")

            strSQL = "UPDATE " & Request.Querystring("kat") & " SET billede = '" & strFileName & "' WHERE bruger = " & Session("username")
            Conn.Execute(strSQL)       
If Err.Number <> 0 Then
  Response.Write Err.Description
End If
        Else 
            Response.Write "Der opstod en fejl under upload!<BR>"
            Response.Write "Fejl nr: " & intFileUpload & "<BR>"
            Response.Write "Filnavn: " & strFilename & "<BR>"
            Response.Write "Filtype: " & strContentType & "<BR>"
            Response.Write "Filstørrelse: " & intFileTotalBytes & "<BR>"
        End If
    End If
%>
</BODY>
</HTML>

<%@ Language="VBScript" %>


<!-- #INCLUDE FILE="fileupload.inc" -->

<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>

<%
'*************************************
'**** Test af FileUpload funktion ****
'****                            ****
'**** Upload .gif eller .jpg      ****
'**** billede til mappen /upload  ****
'*************************************

    'Skal formen vises?
    If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
%>
<%
kat = Request.QueryString("kat")
%> 
<FORM ENCTYPE="multipart/form-data" ACTION="upload.asp?kat=<%=kat %>" METHOD="POST">
<P>Vælg et billede:<BR>
<INPUT NAME="fileupload" TYPE="file" size="20"><P>
<INPUT NAME="Action" TYPE="submit" VALUE="Upload">
</FORM>
<%
    Else
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload("billeder/bruger/", 20000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)

        If intFileUpload = 0 Then
            Response.Write "Filen " & strFilename & " blev uploaded.<BR>"
            Response.Write "Det er en fil af typen " & strContentType & " og den fylder " & intFileTotalBytes & " bytes:<BR>"
            Response.Write "<IMG SRC=""billeder/bruger/" & strFilename & """><BR>"

On Error Resume Next

            'Connection Open
            set Conn = Server.CreateObject("ADODB.Connection")
            Conn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db.mdb")

            strSQL = "UPDATE " & Request.Querystring("kat") & " SET billede = '" & strFileName & "' WHERE bruger = " & Session("username")
Response.Write "strSQL = " & strSQL

            Conn.Execute(strSQL)       
If Err.Number <> 0 Then
  Response.Write Err.Description
End If
        Else 
            Response.Write "Der opstod en fejl under upload!<BR>"
            Response.Write "Fejl nr: " & intFileUpload & "<BR>"
            Response.Write "Filnavn: " & strFilename & "<BR>"
            Response.Write "Filtype: " & strContentType & "<BR>"
            Response.Write "Filstørrelse: " & intFileTotalBytes & "<BR>"
        End If
    End If
%>
</BODY>
</HTML>



Jeg har flyttet Response.Write ned så den skriver SQL statementet ud lige før det bliver eksekveret. Ellers er der ikke ændret noget.
Fejlmeddelelsen siger at der mangler en required parameter, så måske dit SQL statement mangler et parameter eller du forsøger at opdatere en linie i databasen som ikke må være tom (se database opsætning).
Prøv at skrive hvad strSQL er når siden ser således ud.

/ramnir

prøv at brug

strSQL = "UPDATE "& kat &" SET billede = '"& strFileName &"' WHERE bruger = " & Session("username")

så skriver den det her:
strSQL = UPDATE SET billede = 'header.jpg' WHERE bruger = Syntax error in UPDATE statement.

Når jeg bruger den komplette kode som du kom med

^^Til ramnir

Hej fun22

Ok, her er der 2 ting der mangler.
Her er udskriften af sql statementet:

strSQL = UPDATE SET billede = 'header.jpg' WHERE bruger =

Her mangler et tabel navn efter UPDATE for før SET, det vil sige at din variabel Request.Querystring("kat") er tom. Din bruger er også tom, altså din Session("username"). Derfor får du fejlmeddelelsen:
Syntax error in UPDATE statement (pga den manglende tabel).

Du kalder altså 2 variabler som er tomme.

/ramnir

kæft hvor er jeg dum. Nu du siger det kan jeg jo godt se at der mangler et tabel navn. Prøver lige

Hvad betyder det her så:

strSQL = UPDATE msoftguns SET billede = 'header.jpg' WHERE bruger = admin No value given for one or more required parameters.

Du skal lige have ping'er (') uden om din bruger

..... WHERE bruger = 'admin'

Ellers virker det ihvertfald ikke.

/ramnir

strSQL = UPDATE msoftguns SET billede = 'header.jpg' WHERE bruger = 'adminSyntax error in string in query expression 'bruger = 'admin'.

Det ser mystisk ud.

Prøv at erstatte disse linier:
Response.Write "strSQL = " & strSQL
Conn.Execute(strSQL)       
If Err.Number <> 0 Then
  Response.Write Err.Description
End If

Med dette:
Response.Write "strSQL = " & strSQL & "<BR>"
Conn.Execute(strSQL)       
If Err.Number <> 0 Then
  Response.Write "<BR>ErrorMessage - " & Err.Description
End If

Jeg kan ikke lige finde ud af hvor fejlmeddelelsen begynder og slutter.

NB! Er du sikker på at der overhovedet er noget i din Session? (Session("username"))

/ramnir

du kan jo se at der står admin ud for brugernavnet

nu får jeg det her:

strSQL = UPDATE msoftguns SET billede = 'header.jpg' WHERE bruger = 'admin

ErrorMessage - Der er en syntaksfejl i strengen i forespørgselsudtrykket "bruger = 'admin".

Du mangler vist at afslutte dine pings (') rundt om brugernavnet.

strSQL = UPDATE msoftguns SET billede = 'header.jpg' WHERE bruger = 'admin'
Der skal være et ping til allersidst

/ramnir