Upload Script

Tjaa..

Fejlen ligger i at du ikke læser indholdet af alle tre filer
Her er opdateringen
--Kode
<!--#include file ="conn.asp"-->
<!--#include file ="upload.inc"-->
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strDB

dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if Request.QueryString("action")="upload" then
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear

Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

ByteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
BuildUploadRequest  RequestBin


Dim aux, aux1, FILEFLAG

Dim ImageName, ContentType, FilePathName, FileName, ContentType1, FilePathName1, FileName1, ContentType2, FilePathName2, FileName2, Value, Value1, Value2
DriverName=UploadRequest.Item("DriverName").Item("Value")
DriverName=replace(DriverName, "'", "''")

'on error resume next
ContentType=UploadRequest.Item("FileWin98").Item("ContentType")
ContentType1=UploadRequest.Item("FileWin2K").Item("ContentType")
ContentType2=UploadRequest.Item("FileWinXP").Item("ContentType")
FILEFLAG = err.number
on error goto 0

if FILEFLAG = 0 then
        ContentType = UploadRequest.Item("FileWin98").Item("ContentType")
        FilePathName = UploadRequest.Item("FileWin98").Item("FileName")
        FileName = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
        ContentType1 = UploadRequest.Item("FileWin2K").Item("ContentType")
        FilePathName1 = UploadRequest.Item("FileWin2K").Item("FileName1")
        FileName1 = Right(filepathname,Len(filepathname1)-InstrRev(filepathname1,"\"))
        ContentType2 = UploadRequest.Item("FileWinXP").Item("ContentType")
        FilePathName2 = UploadRequest.Item("FileWinXP").Item("FileName")
        FileName2 = Right(filepathname,Len(filepathname2)-InstrRev(filepathname2,"\"))
        Value = UploadRequest.Item("FileWin98").Item("Value")
        Value1 = UploadRequest.Item("FileWin2K").Item("Value1")
        Value2 = UploadRequest.Item("FileWinXP").Item("Value2")
else
        FileName = ""
end if

if filename<>"" then
    adoCn.Execute("INSERT INTO Drivere (Driver, FileName, MimeType) VALUES ('" & DriverName & "','" & FileName & "', '" & ContentType & "')")
    adoRs.open "select top 1 * from Drivere order by ID DESC", adoCn, 1, 3
    if not adoRs.eof then
        adoRs.Fields("Win98").appendChunk value & chrB(0)
        adoRs.Fields("Win2K").appendChunk value1 & chrB(0)
        adoRs.Fields("WinXP").appendChunk value2 & chrB(0)
        adoRs.Update
        adoRs.close
    end if
end if

set UploadRequest = nothing
End If
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
<html>
<meta http-equiv="Content-Language" content="da">
<title>repliQa Image Viewer</title>
<body bgproperties="fixed" background="../Graphic/Imagebg.jpg" topmargin="0" >
<form method="post" action="driver_upload.asp?action=upload" name="ImageForm" enctype="multipart/form-data">
  <div align="center">
    <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="354" id="AutoNumber1" height="1">
    <tr>
      <td height="1" width="134" valign="middle"><font face="Verdana" size="1">
      Windows 98</font></td>
      <td height="1" width="220">
      <input type="File" name="FileWin98" size="24" style="color: #000000; font-family: Verdana; font-size: 10px; border-style: solid; border-width: 1; background-color: #FFFFFF"></td>
    </tr>
    <tr>
      <td height="1" width="134" valign="middle"><font face="Verdana" size="1">
      Windows 2K</font></td>
      <td height="1" width="220">
      <input type="File" name="FileWin2K" size="24" style="color: #000000; font-family: Verdana; font-size: 10px; border-style: solid; border-width: 1; background-color: #FFFFFF"></td>
    </tr>
    <tr>
      <td height="1" width="134" valign="middle"><font face="Verdana" size="1">
      Windows XP</font></td>
      <td height="1" width="220">
      <input type="File" name="FileWinXP" size="24" style="color: #000000; font-family: Verdana; font-size: 10px; border-style: solid; border-width: 1; background-color: #FFFFFF"></td>
    </tr>
    <tr>
      <td height="1" width="134" valign="middle"><font face="Verdana" size="1">
      Driver Navn</font></td>
      <td height="1" width="220" valign="top">
      <input type="text" name="DriverName" size="22" style="font-family: v; font-size: 10px"></td>
    </tr>
    <input type=HIDDEN name="FileName" size="22" style="font-family: v; font-size: 10px">
    <tr>
      <td height="1" width="134" valign="middle"><font face="Verdana" size="1">
      Produkcent</font></td>
      <td height="1" width="220" valign="top">
      <select size="1" name="Produkcent" style="font-family: Verdana; font-size: 10px">
      <option selected>Vælg Produkcent</option>
      </select></td>
    </tr>
    <tr>
      <td height="1" width="134" valign="middle"><font face="Verdana" size="1">
      Type</font></td>
      <td height="1" width="220" valign="top">
      <select size="1" name="Type" style="font-family: Verdana; font-size: 10px">
      <option selected>Vælg Type</option>
      </select></td>
    </tr>
    <tr>
      <td height="34" width="354" valign="top" colspan="2">
      <p align="center"><font size="1"> <br>
      <input type="submit" value="Upload" style="color: #000000; font-family: Verdana; font-size: 10px; border: 1px solid #000000; background-color: #FFFFFF"></font></td>
    </tr>
  </table>
    </center>
  </div>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
</form>
</body>
</html>
--Kode

Jeg har ikke set om der skal opdateres andre steder men nu burde det virke

Det virker stadig ikke.. Den Uploader kun den første..

Ingen som kunne svare.. :(