file upload (binary read) + almindelig tekst forms samtidig...

Når du har kaldt Response.BinaryRead kan du som fejlmeddelelsen ikke bruge Request.Form... Du skal derfor bruge Request.BinaryRead(\"felt\") også på dine tekstfelter og så Bruge denne funktion til at få det til en streng istedet for Binært data:

Function BinaryToString(Binary)
  Dim I, S
  For I = 1 To LenB(Binary)
    S = S & Chr(AscB(MidB(Binary, I, 1)))
  Next
  BinaryToString = S
End Function

ehh. jeg har lidt svært ved at overskue indput / output proceduren i din kode... hvordan får man disse 3 strings igennem og ud på den anden side med samme navn (hvis du gider...) ?:

a =         Request.BinaryRead(\"overskrift\")
b =         Replace(Request.BinaryRead(\"beskrivelse\"), vbCrLf, \"<br>\")
c =         Request.BinaryRead(\"musiklink\")


Function BinaryToString(Binary)
  Dim I, S
  For I = 1 To LenB(Binary)
    S = S & Chr(AscB(MidB(Binary, I, 1)))
  Next
  BinaryToString = S
End Function

Hvilke felter er hvad?

- de er alle 3 tekstfelter

a = BinaryToString(Request.BinaryRead(\"overskrift\"))

burde dette ikke virke ??


<%
set conn = server.createobject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"data1.mdb\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath


Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Count = Upload.Save(\"d:\\home\\website\\www\\martin\\billeder\")
Response.Write Count & \" fil(er) modtaget.\"&\"<br><br>\"
Upload.OverwriteFiles = false
a = date()

For Each File in Upload.Files
        SQL1 = \"INSERT INTO Overskrift(navn, Indsat ) VALUES (\'\"&File.ExtractFileName&\"\', #\"&a&\"#)\"                
conn.execute(SQL1)
Next




a = BinaryToString(Request.BinaryRead(\"overskrift\"))
b = BinaryToString (Request.BinaryRead(\"beskrivelse\"))
c = BinaryToString(Request.BinaryRead(\"musiklink\"))
 
SQL = \"INSERT INTO Overskrift (overskrift, Beskrivelse, musiklink) VALUES (\'\"&f&\"\',\'\"&b&\"\',\'\"&c&\"\')\"
conn.execute(SQL)




response.redirect \"admin-login.asp\"
%>

Har du prøvet at udskrive værdierne?

det er så snart den rammer linien:

a = BinaryToString(Request.BinaryRead(\"overskrift\"))

at jeg får fejlen:


1 fil(er) modtaget.

Request object error \'ASP 0106 : 80020005\'

Type Mismatch

/martin/admin-information.asp, line 32

An unhandled data type was encountered.


så det må være nogen med omskrivningen den kan slet ikke få fat i variablen..? (dvs. jeg kan ikkke udskrive den da fejlen opstår lige inden jeg modtager den)

Hej Jeppe (jesper)
Jeg har fået kalenderen til at virke - nu er der ikke flere HTML-koder end der skal være der.

Vi ses

Hmmm... Okay nu har jeg lige siddet og testet og jeg kan faktisk heller ikke få min egen kode til at virke :-(

Men prøv at kigge her, her er lidt inspiration, du bliver nødt til at lave din egen form_Collection ved at parse det du har læst vha. BinaryRead.

http://www.aspzone.com/articles/john/aspUpload/

arghh, jeg tror jeg prøver at smide nogle flere points på for jeg kan heller ikke finde ud af det...