Detta kan kanske hjälpa lite mer, det är hela den aktiva koden som arbetar mot formuläret.
<%
If request.querystring("val")= "uppdateraskarmdump" then
' Author Philippe Collignon
' Email PhCollignon@email.com
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'email = UploadRequest.Item("email").Item("Value")
for each fobj in UploadRequest
if UploadRequest.Item(fobj).Item("FileName")<>"" then
contentType = UploadRequest.Item(fobj).Item("ContentType")
filepathname = UploadRequest.Item(fobj).Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item(fobj).Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("\"&filename))
'response.write(Server.mappath(filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
end if
next
SQL = "SELECT * FROM Skarmdumpar Where id = "& CInt(UploadRequest.Item("id").Item("Value"))
Set rs = Connection.Execute(SQL)
if rs("introbild") = "" then
introb = UploadRequest.Item("introb").Item("FileName")
introb = Right(introb,Len(introb)-InstrRev(introb,"\"))
else
introb = rs("introbild")
end if
if rs("sscreen1") = "" then
file1 = UploadRequest.Item("file1").Item("FileName")
file1 = Right(file1,Len(file1)-InstrRev(file1,"\"))
else
file1 = rs("sscreen1")
end if
if rs("sscreen2") = "" then
file2 = UploadRequest.Item("file2").Item("FileName")
file2 = Right(file2,Len(file2)-InstrRev(file2,"\"))
else
file2 = rs("sscreen2")
end if
if rs("sscreen3") = "" then
file3 = UploadRequest.Item("file3").Item("FileName")
file3 = Right(file3,Len(file3)-InstrRev(file3,"\"))
else
file3 = rs("sscreen3")
end if
if rs("sscreen4") = "" then
file4 = UploadRequest.Item("file4").Item("FileName")
file4 = Right(file4,Len(file4)-InstrRev(file4,"\"))
else
file4 = rs("sscreen4")
end if
if rs("sscreen5") = "" then
file5 = UploadRequest.Item("file5").Item("FileName")
file5 = Right(file5,Len(file5)-InstrRev(file5,"\"))
else
file5 = rs("sscreen5")
end if
if rs("sscreen6") = "" then
file6 = UploadRequest.Item("file6").Item("FileName")
file6 = Right(file6,Len(file6)-InstrRev(file6,"\"))
else
file6 = rs("sscreen6")
end if
if rs("screen1") = "" then
file7 = UploadRequest.Item("file7").Item("FileName")
file7 = Right(file7,Len(file7)-InstrRev(file7,"\"))
else
file7 = rs("screen1")
end if
if rs("screen2") = "" then
file8 = UploadRequest.Item("file8").Item("FileName")
file8 = Right(file8,Len(file8)-InstrRev(file8,"\"))
else
file8 = rs("screen2")
end if
if rs("screen3") = "" then
file9 = UploadRequest.Item("file9").Item("FileName")
file9 = Right(file9,Len(file9)-InstrRev(file9,"\"))
else
file9 = rs("screen3")
end if
if rs("screen4") = "" then
file10 = UploadRequest.Item("file10").Item("FileName")
file10 = Right(file10,Len(file10)-InstrRev(file10,"\"))
else
file10 = rs("screen4")
end if
if rs("screen5") = "" then
file11 = UploadRequest.Item("file11").Item("FileName")
file11 = Right(file11,Len(file11)-InstrRev(file11,"\"))
else
file11 = rs("screen5")
end if
if rs("screen6") = "" then
file12 = UploadRequest.Item("file12").Item("FileName")
file12 = Right(file12,Len(file12)-InstrRev(file12,"\"))
else
file12 = rs("screen6")
end if
SQLStmt = "UPDATE Skarmdumpar SET "
SQLstmt = SQLstmt & "Rubrik = '" & UploadRequest.Item("rubrik").Item("Value") & "', "
SQLstmt = SQLstmt & "Introbild = '" & introb & "', "
SQLstmt = SQLstmt & "Sscreen1 = '" & file1 & "', "
SQLstmt = SQLstmt & "Sscreen2 = '" & file2 & "', "
SQLstmt = SQLstmt & "Sscreen3 = '" & file3 & "', "
SQLstmt = SQLstmt & "Sscreen4 = '" & file4 & "', "
SQLstmt = SQLstmt & "Sscreen5 = '" & file5 & "', "
SQLstmt = SQLstmt & "Sscreen6 = '" & file6 & "', "
SQLstmt = SQLstmt & "Screen1 = '" & file7 & "', "
SQLstmt = SQLstmt & "Screen2 = '" & file8 & "', "
SQLstmt = SQLstmt & "Screen3 = '" & file9 & "', "
SQLstmt = SQLstmt & "Screen4 = '" & file10 & "', "
SQLstmt = SQLstmt & "Screen5 = '" & file11 & "', "
SQLstmt = SQLstmt & "Screen6 = '" & file12 & "', "
SQLstmt = SQLstmt & "[Text] = '" & UploadRequest.Item("infotext").Item("Value") & "', "
SQLstmt = SQLstmt & "Email = '" & UploadRequest.Item("email").Item("Value") & "', "
SQLstmt = SQLstmt & "Skribent = '" & UploadRequest.Item("skribent").Item("Value") & "'"
SQLStmt = SQLStmt & " where id =" & CInt(rs("id"))
response.write sqlstmt
Connection.Execute(SQLstmt)
rs.close
set rs = nothing
response.redirect ("inloggad.asp")
end if
Andreas
