Request.form og binary
Hej,nu er jeg ved at være godt træt af at forsøge mig frem!
Jeg har fundet et udemærket script til upload af filer. Jeg skal dog også have lagt data fra nogen ganske normale data ind i databasen vha. request.form. Dette kan dog ikke lade sig gøre, da scriptet åbenbart bruger binary-et-eller-andet. Fejlmeddelelsen ser således ud:
Error Type:
Request object, ASP 0106 (0x80020005)
An unhandled data type was encountered.
/entry/ret.asp, line 150
Jeg har forsøgt at konvertere over til string - men lige lidt hjælper det. Min kode ser således ud:
<!-- #INCLUDE FILE="fileupload.inc" -->
<%
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes
intFileUpload = FileUpload("../pics/billedserier/", 99999999, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)
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
strBilledserie = BinaryToString(Request.BinaryRead("billedserie"))
strNavn = BinaryToString(Request.BinaryRead("navn"))
strBeskrivelse = BinaryToString(Request.BinaryRead("beskrivelse"))
If strBilledserie = "" OR strNavn = "" OR strBeskrivelse = "" Then
Response.Redirect("../administration.asp?ID=tilfoejbillede&stat=blank")
else
strSQL = "Insert into tblBilledserie (Opdateringsdato, billedid, filnavn, billedbeskrivelse, Navn) values('" & opretdato & "' , '" & Replace(Request.Form("billedserie"), "'","''") & "' , '" & strFilename & "' , '" & Replace(Request.Form("beskrivelse"), "'","''") & "' , '" & Replace(Request.Form("navn"), "'","''") & "')"
Conn.Execute(strSQL)
end if
Response.Redirect("../administration.asp?ID=tilfoejbillede&stat=succes")
Mit spørgsmål er som i kan regne ud: hvordan får jeg dataen sendt med, samtidig med at jeg kan bruge scriptet??
