Dim

du kan ikke skrive elseif
det er enten


det hedder:

if blalalalla then
det der skal ske
else
hvad der ellers skla ske
end if

det ved jeg, og koden er også kun et udsnit af en længere tekst !

kan man så ikke se det hele?

Tjoe... men resten virker perfekt og er på 833 linjer... :-) men du kan få resten af dette \"elseif\"-stykke ....


Det første stykke virker fint...
*********************************
elseif Request.Querystring(\"sub\") = \"screenupload2\" then
\'Variables
    Dim mySmartUpload
    Dim file
    Dim oConn
    Dim strSQL
    Dim oRs
    Dim intCount
    intCount=0

\'  Object creation
\'  ***************
Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
\'  Upload
\'  ******
mySmartUpload.Upload
\'  Connect to the DB
\'  *****************
    Set oConn = Server.CreateObject(\"ADODB.Connection\")
    curDir = Server.MapPath(\"aip_all.mdb\")
    oConn.Open \"DBQ=\"& curDir &\";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;\"
\'  Open a recordset
\'  ****************
    strSQL = \"SELECT FILENAME,FILE FROM Screens\"
    Set oRs = Server.CreateObject(\"ADODB.recordset\")
    Set oRs.ActiveConnection = oConn
    oRs.Source = strSQL
    oRs.LockType = 3
    oRs.Open
\'  Select each file
\'  ****************
    For each file In mySmartUpload.Files
    \'  Only if the file exist
    \'  **********************
        If not file.IsMissing Then
        \'  Add the current file in a DB field
        \'  **********************************
            oRs.AddNew
            file.FileToField oRs.Fields(\"FILE\")
 oRs(\"FILENAME\") = file.FileName
            oRs.Update
            intCount = intCount + 1
        End If
    Next
\'  Display the number of files uploaded
\'  ************************************
    Response.Write(intCount & \" file(s) uploaded.<BR>\")
\'  Destruction
\'  ***********
    oRs.Close
    oConn.Close
    Set oRs = Nothing 
    Set oConn = Nothing 

elseif Request.Querystring(\"sub\") = \"createnews\" then
***********************************
og det gør stykket bagefter også (altså virker fint)

okay.... resten er måske ikke perfekt, men det virker :-)

kan ik forstå det ik virker :(

heller ikke mig...

men det fungerer altså ikke...

okay.. hvilken linje fjler den i, og hvad står der på den linje??

er det ***** du ikke har lavet som kommentar?

nej, ******** er bare for at vise at koden er nedenunder :-)

Fandt selv ud af det...
Havde kopieret teksten fra SmartUploads side...

De der mellemrum der er i teksten er ikke mellemrum (?), og skal skiftes ud med et rigtigt, så koden vil se sådan her ud :


*****************

<%
Dim mySmartUpload
Dim file
Dim oConn
Dim strSQL
Dim oRs
Dim intCount
intCount=0
       
\'  Object creation
\'  ***************
  Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
\'  Upload
\'  ******
  mySmartUpload.Upload
\'  Connect to the DB
\'  *****************
  Set oConn = Server.CreateObject(\"ADODB.Connection\")
  curDir = Server.MapPath(\"aip_all.mdb\")
  oConn.Open \"DBQ=\"& curDir &\";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;\"
\'  Open a recordset
\'  ****************
  strSQL = \"SELECT FILENAME,FILE FROM Screens\"
  Set oRs = Server.CreateObject(\"ADODB.recordset\")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open
\'  Select each file
\'  ****************
  For each file In mySmartUpload.Files
  \'  Only if the file exist
  \'  **********************
      If not file.IsMissing Then
      \'  Add the current file in a DB field
      \'  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields(\"FILE\")
oRs(\"FILENAME\") = file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next
\'  Display the number of files uploaded
\'  ************************************
  Response.Write(intCount & \" file(s) uploaded.<BR>\")
\'  Destruction
\'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>

*****************

Tak til jer andre for hjælpen !

Koldstar >> Du får også lidt... du forsøgte jo :)