Nu har jeg svettet nok!

Bog: Beginig ActiveServerPages 2.0 fra forlaget WROX

www.wrox.com

sesam, tager du også opgaven, for så gider jeg ikke gå igang...

Brain det er din jeg er ikke så god til ASP endnu så det er din opgave

Hvilken AspUpload er det?

-Persuits AspUpload

Jeg kan ikke sige andet end at den stinker :-)

Men prøv med det her :

<%
Set Upload = Server.CreateObject(\"Persits.Upload\")
Upload.IgnoreNoPost = True \' suppress \"Nothing has been posted\" error
Upload.SetMaxSize 20000, False
Upload.OverwriteFiles = False
\' Gem billedet
Upload.Save(\"d:\\home\\bomarkdk\\www\\upload\\\"& Session(\"annonceid\") &\"\\\")
Overskrift = Upload.form(\"Overskrift\")

\' Indsæt oplysningerne i databasen
For Each File in Upload.Files
  If File.ImageType <> \"GIF\" and File.ImageType <> \"JPG\" Then
    Session(\"Error\") = \"Kun filtyperne GIF eller JPG er tilladt\"
    Response.Redirect \"default.asp?KatID=154\"
    Exit For
  End If
 
  If File.Size > 20000 then
    Session(\"Error\") = \"Billedet overgik den grænsen for størrelsen på 20kb\"
    Response.Redirect \"default.asp?KatID=154\"
    Exit For
  End if
 
  If File.ImageWidth > 400 Then
    Session(\"Error\") = \"Dit billede må ikke være bredere end 250 pixels.\"
    Response.Redirect \"default.asp?KatID=154\"
  Exit For
  End If
  \'Response.Write Overskrift & \"<br>\"
  Filnavn = Replace(File.Path, \"d:\\home\\bomarkdk\\www\\upload\\\"& session(\"annonceid\") &\"\\\", \"\")
  \'Response.Write Filnavn & \"= \" & File.Path & \" (\" & File.Size &\")<BR>\"
  Sql =\"Insert into billeder (annonceid, titel, bnavn, size) values (\" & session(\"annonceid\") & \", \'\"&Dbfix(Overskrift)&\"\', \'\" & Filnavn & \"\', \"& File.Size &\")\"
  \'Response.Write Sql
  Conn.Execute(Sql)
Next
Response.Redirect \"default.asp?KatID=155\"
\'Session(\"annonceid\") = \"\"


%>

Grunden til at jeg har brugt sessions, er at jeg ikke kunne lave valideringen på andre måder... men sådan er det når man leger med binære filer

Hov glemte at det skulle have været et svar.

Jeg har lige testet den ganske hurtig. Jeg får melding om at det er blevet lastet op, men jeg finder det ikke i databasen eller noget andet sted på HD... Jeg kigger lige gennem en gang til

Det var faktisk ikke min egen (dvs din) side som bekræftet uploadet..? En SmartUploadfil fra min HD har sneget sig ind her. Jeg må grave dybere for at finde ud af dette.

>godtnok, kan du ikke sætte mine felter ind i scriptet? Databasen heder forresten Billeder og tabellen Oversigt. Ræsten står i spørgsmålet.

godtnok ?
Jeg får følgende fejl:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: \'DBBilleder\'
/mitsite/bekreftelse.asp, line 36

og i linje 36 står følgende:
Sql =\"Insert into Oversigt (Hvad, Hvornår, Hvor, Med, Tittel, Kommentar) values (\" & session(\"annonceid\") & \", \'\"&DBBilleder(Oversigt)&\"\', \'\" & Filnavn & \"\', \"& File.Size &\")\"

Uanset hvad jeg putter ind der hvor DBBilleder står får jeg samme fejl.

Du skal selvfølgelig rette mit script til så det passer med dine \"indstillinger\".

Den fejl du får, får du fordi du indsætter en forkert type i din database.

Eksempel :

hvis typen er en streng skal der \' rundt om strengen når du sætter ind i db\'en.

hvis typen er et tal, så skal der ikke \' rundt om værdien.

Håber det er forståeligt :-)

Du skal selvfølgelig rette mit script til så det passer med dine \"indstillinger\".

Den fejl du får, får du fordi du indsætter en forkert type i din database.

Eksempel :

hvis typen er en streng skal der \' rundt om strengen når du sætter ind i db\'en.

hvis typen er et tal, så skal der ikke \' rundt om værdien.

Håber det er forståeligt :-)

Kunne du uddybe dette lidt: \"hvis typen er en streng skal der \' rundt om strengen når du sætter ind i db\'en.
hvis typen er et tal, så skal der ikke \' rundt om værdien\"?

f.eks.

var  = 15
var2 = \"streng\"

Sql = \"insert into table (talfelt, navn) value(\"&var&\", \'\"&var2&\"\')\"

Af mit spørgsmål kan du se at alle feltnavnerne og typerne. Kan du skrive den korrekte kode?

Det lærer du ikke ret meget af :-)

Men ja det kan jeg, hvis du vil betale for det.

Hm, spørgsmålet gik på at skrive koden.. Men det er i orden, jeg får kæmpe med det en stund til.

Nej, får det ikke til at funke. Får nok heller finde en anden løsning

.