tjek om felter er udfyldt og om datoen er brugt

Jeg ved ikke om du har fundet en løsning, men du skal lave tjekket efter denne linie:

  'Upload filerne til memory
  upload.Upload


Da upload.upload funktionen fylder upload komponenten form-collection. Så det kan laves i stil med dette:

  'Upload filerne til memory
  upload.Upload
  'Tjek form felterne
  if upload.form("dato") = "" or MyUpLoad.Files("fil1").Name = "" then
    response.Write "Der mangler fil eller dato"
    response.End
  end if
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
  SQL = "select * from tablenavn where dato = '" & upload.Form("dato") & "'"
  set rs = Conn.Execute(SQL)
  if not rs.EOF then
    response.Write "Dato'en finden i forvejen i databasen
    response.End
  end if
  Conn.Close
  set Conn = Nothing

så får jeg en fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

i linjen:

if upload.form("dato") = "" or MyUpLoad.Files("fil1").Name = "" then

Det er enten upload.form("dato") eller  MyUpLoad.Files("fil1").Name  som giver fejlen det skal i begge dele være navnet på dit upload object så hvis det er MyUpLoad så skal if sætningen se sådan her ud:

if MyUpLoad.form("dato") = "" or MyUpLoad.Files("fil1").Name = "" then

arh... min fejl i det kode jeg har vist :)

Objektet hedder jo upload hvis det er samme kode som i det andet spørgsmål så if sætningen skal være sådan her, men det har du måske selv rettet:

if upload.form("dato") = "" or upload.Files("fil1").Name = "" then

Nu får jeg ikke fejlen mere, men den er stadig ligeglad med om jeg har valgt en fil... jeg har også problemer med at få den til at skrive en fejl når man forsøger at uploade en fil man ikke må... Min kode ser sådan her ud nu

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  ' Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  ' Max størrelse i bytes
 
  upload.AllowedFilesList = "doc,rtf,pdf,jpg"

  'Upload filerne til memory
  upload.Upload
  'Tjek form felterne
  if upload.form("dato") = "" or UpLoad.Files("fil1").Name = "" then
    response.Write "Der mangler fil eller dato"
    response.End
  end if
  Set ConnTjek = Server.CreateObject("ADODB.Connection")
  ConnTjek.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db/filer.mdb")
  SQL = "select * from styrelse where dato = '" & upload.Form("dato") & "'"
  set rs = ConnTjek.Execute(SQL)
  if not rs.EOF then
    response.Write "Dato'en finden i forvejen i databasen"
    response.End
  end if
  ConnTjek.Close
  set ConnTjek = Nothing

  For each file In upload.Files
    If not file.IsMissing Then
      filnavn = "/filer/" & upload.Form("dato") &"-tekst" & "." & file.FileExt
      filtype = file.FileExt
      storrelse = Request.ServerVariables("CONTENT_LENGTH")
      file.SaveAs Server.Mappath(filnavn)
    end if
  next

  'Gem filnanvet i databasen
  if filnavn <> "" then
    Set ConnFil = Server.CreateObject("ADODB.Connection")
    ConnFil.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db/filer.mdb")

    SQL = "INSERT INTO styrelse (dato, link, filnavn, navn, udato, kl, storrelse) VALUES ('" & upload.Form("dato") & "', '" & filnavn & "', '" & filtype & "', '" & rs("navn") & "', '" & FormatDateTime(Now, vbLongDate) & "', '" & FormatDateTime(Now, vbLongTime) & "', '" & storrelse & "')"
    ConnFil.Execute(SQL)
    ConnFil.Close
    Set ConnFil = Nothing
        end if
response.Write("filen er uploaded")
end if
%>
                  <form method="post" action="download.asp?mode=up-styr" ENCTYPE="multipart/form-data" name="styrelse">
                    <p>
                      <input name="fil1" type="file" size="30" width="100" >
                      <br>
                      <br>
                      <input name="dato" type="text" id="dato" size="15" readonly="on">&nbsp;<img src="img/kalender.gif" width="16" height="14">&nbsp;<a href="java script:showCal('Calendar1')">Vælge
                      datoen for mødet</a><br>
                      <br>
                      <input type="submit" name="Upload" value="Upload referat">
                    </p>
                  </form>

Jeg kiggede lidt på deres hjemmeside og prøv at rette det til dette:



<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  On Error Resume Next

  ' Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  ' Max størrelse i bytes
 
  upload.AllowedFilesList = "doc,rtf,pdf,jpg"

  'Upload filerne til memory
  upload.Upload

'  Trap errors
'  ***********
  If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
  end if

  'Tjek form felterne
  if upload.form("dato") = "" or upload.files("fil1").IsMissing then
    response.Write "Der mangler fil eller dato"
    response.End
  end if
  Set ConnTjek = Server.CreateObject("ADODB.Connection")
  ConnTjek.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db/filer.mdb")
  SQL = "select * from styrelse where dato = '" & upload.Form("dato") & "'"
  set rs = ConnTjek.Execute(SQL)
  if not rs.EOF then
    response.Write "Dato'en finden i forvejen i databasen"
    response.End
  end if
  ConnTjek.Close
  set ConnTjek = Nothing

  For each file In upload.Files
    If not file.IsMissing Then
      filnavn = "/filer/" & upload.Form("dato") &"-tekst" & "." & file.FileExt
      filtype = file.FileExt
      storrelse = Request.ServerVariables("CONTENT_LENGTH")
      file.SaveAs Server.Mappath(filnavn)
    end if
  next

  'Gem filnanvet i databasen
  if filnavn <> "" then
    Set ConnFil = Server.CreateObject("ADODB.Connection")
    ConnFil.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db/filer.mdb")

    SQL = "INSERT INTO styrelse (dato, link, filnavn, navn, udato, kl, storrelse) VALUES ('" & upload.Form("dato") & "', '" & filnavn & "', '" & filtype & "', '" & rs("navn") & "', '" & FormatDateTime(Now, vbLongDate) & "', '" & FormatDateTime(Now, vbLongTime) & "', '" & storrelse & "')"
    ConnFil.Execute(SQL)
    ConnFil.Close
    Set ConnFil = Nothing
        end if
response.Write("filen er uploaded")
end if
%>
                  <form method="post" action="download.asp?mode=up-styr" ENCTYPE="multipart/form-data" name="styrelse">
                    <p>
                      <input name="fil1" type="file" size="30" width="100" >
                      <br>
                      <br>
                      <input name="dato" type="text" id="dato" size="15" readonly="on">&nbsp;<img src="img/kalender.gif" width="16" height="14">&nbsp;<a href="java script:showCal('Calendar1')">Vælge
                      datoen for mødet</a><br>
                      <br>
                      <input type="submit" name="Upload" value="Upload referat">
                    </p>
                  </form>

nu begynder det at ligen noget, men den tilføjer ikke længere noget info til min database - kan det være fordi den bliver åbnet og lukket to gange???

Som det er lavet skulle det ikke give et problem prøv at fjerne denne linie:

On Error Resume Next

men den skal ind igen når scriptet virker.

så kommer fejlen:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

i linjen:

SQL = "INSERT INTO styrelse (dato, link, filnavn, navn, udato, kl, storrelse) VALUES ('" & upload.Form("dato") & "', '" & filnavn & "', '" & filtype & "', '" & rs("navn") & "', '" & FormatDateTime(Now, vbLongDate) & "', '" & FormatDateTime(Now, vbLongTime) & "', '" & storrelse & "')"

Det er nok:  rs("navn")  som giver problemet den tror rs er et recordset og den kan ikke finde kolonnen navn i det. Hvor skal navn komme fra?

jeps der er den... Det er fordi jeg har en anden database der er åben, hvor den skal hente brugerinfo fra, og den bruger rs - men det er rettet nu

1000-tak for hjælpen - og så må du gerne ligge et svar

Ok her er et svar ;)