Jag har ett problem med denna kod.
den första koden fungerar, den skapar en mapp med id som namn på mappen och skriver httpsökvägen i databasen.
<%
fornamn = Request.Form("fornamn")
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=upload1;UID=;PWD="
SQL = "SELECT * From ansokan WHERE 1=2"
rs.Open SQL, MinCon, 1, 2
rs.AddNew
rs("Fornamn") = fornamn
rs.Update
%>
<%
Set fs=CreateObject("Scripting.FileSystemObject")
sFolder = "D:\temp2\test\" & rs("ID")
If fs.FolderExists(sFolder) Then
Response.Write "Folder Exists"
Else
fs.CreateFolder(sFolder)
End If
httpfolder = "http://192.168.1.8:85/test/" & rs("ID")
rs("sokvag") = sfolder
rs("httpsokvag") = httpfolder
rs.update
%>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="uploadexmple.asp">
Select a file to upload:</b><br><INPUT TYPE=FILE SIZE=50 NAME="FILE1">
<input type="hidden" name="sokvag1" value="<% =Request.QueryString("sokvag") %>">
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
Men när jag skickar info från ovanstående kod till nästa sida (nedanstående kod)där man skall ladda upp filen till den id mapp som just skapats får jag följande fel medelande:
Request object error 'ASP 0206 : 80004005'
Cannot call BinaryRead
/ext/post/upload.asp, line 46
Cannot call BinaryRead after using Request.Form collection.
' Create the FileUploader
Dim Uploader, File, sokvag
Set Uploader = New FileUploader
sokvag = request.Form("sokvag1")
' This starts the upload process
Uploader.Upload()
'******************************************
' Use [FileUploader object].Form to access
' additional form variables submitted with
' the file upload(s). (used below)
'******************************************
Response.Write "<b>Thank you for your upload" & request.Form("sokvag1") & "</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
' Save the file
File.SaveToDisk sokvag
' 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
%>
Tacksam för hjälp varför det inte fungerar.
mvh
------------------
--------------
-{CHRYSTAL}-
Lär dig först och bilda dina åsikter sedan.