ok
<!-- #Start# "Sikkerheds script" [copyright of k-b-n.dk] -->
<%
If Session("Valid") = "" Then
Response.redirect "default.asp"
End If
%>
<!-- #Slut# "Sikkerheds script" [copyright of k-b-n.dk] -->
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest(RequestBin)
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
'Response.Write (Request.ServerVariables("PATH_INFO"))
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(""&filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close %>
<!--#include file="upload.asp"-->
--
Med venlig hilsen
Christian Andersen
ICQ 34472580
http://run.to/cosworth
http://www.ford-klub-danmark.dk/
"Peter" <blabl@blablablablabla.dk> skrev i en meddelelse
news:3d3879a2$0$13947$edfadb0f@dspool01.news.tele.dk...
> "Christian Andersen" <cas1@stofanet.dk> wrote in message
> news:3d383f7d$0$268$ba624c82@nntp03.dk.telia.net...
> > Hej jeg er total nybegynder i asp men vil gerne fatte hvorfor dette ikke
> > virker?
> > Hver gang jeg prøver at uploade til siden så kommer den samme fejl :
HTTP
> > 500 - Intern serverfejl
>
> Du bør nok komme med en mere specifk fejlmeddelse, eller
> poste din kode - ellers har vi ikke en kinamands chance for at
> hjælpe dig :)
>
> --
> PM
>
>