Simpel form med Persits.Upload.1

Ja det kan du da.

Du skal hvade tilføjet et <input type="file" name="file1">
input felt i formen.

Der udover skal du havde lave din form tag om så den har dette med: ENCTYPE="multipart/form-data":

<form name="tilfoj" method="post" action="?se=emne&id_emner=<% response.write "" & request("ID_emner") & "" %>" ENCTYPE="multipart/form-data">

Til at starte med..

Så skal koden der gemmer i db også laves (om).

Det mulig du er nød til at flytte dine QueryStrngs til hidden felter men umiddelbart bør de virker som normalt.

Eks på form.:

<form name="tilfoj" method="post" action="?se=emne&id_emner=<% response.write "" & request("ID_emner") & "" %>" ENCTYPE="multipart/form-data">

<input type="file" name="file1"><br>
<input type="text" name="navn"><br>
<input type="text" name="bynavn"><br>
<input type="submit" name="Tilfoj" value="Opret emne">
</form>



Eks på kode:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveToMemory

'Gem filen
if Count >= 1 then
  Set file = Upload.Files("file1")
 
  filnavn = "/images/" & file.name
  file.SaveAs filnavn
end if

navn = Upload.Form("navn")
bynavn = Upload.Form("bynavn")


SQL = "INSERT INTO xxx (navn, bynavn, fil) VALUES ('" & navn & "', '" & bynavn & "', '" & filnavn & "')"

.. og så noget kode til at connecte til db og sætte ind.
%>

Eagle - kan du rette den her til så det virker

http://www.jonsen.dk/cygshop/forum.txt

Kigger lige på den.

takker - du er en helt

Du har to filer på formen skal du havde det?
Hvor er folderen log i forhold til hvor ASP filen ligger?

Prøv først med denne:
http://www.eagleeye.dk/eks/forum.txt

Persits.Upload.1 error '800a0005'

The system cannot find the path specified.

/cygshop/forum.asp, line 29

behøver kun at være én fil.

arh min fejl - men nu siger den så


Request object error 'ASP 0208 : 80004005'

Cannot use generic Request collection

/cygshop/forum.asp, line 47

Cannot use the generic Request collection after calling BinaryRead.

Det er i denne linje:

Upload.Save "log\"

det er hvor skal filen gemmen og hvor ligger den folder i forhold til ASP filen eller root?

Men det virker skam - problemet er jo bare nu at den så gå videre med den gamle kode og derhar vi det der request...

Prøv at lave en redirect efter linje med

  conntemp.execute(sql)

Sådan den reloader siden.:

  Response.Redirect(Request.ServerVariables("SCRIPT_NAME")&"?se=emne&id_emner=" & emne)

tror det fungerer nu - nu skal jeg bare lige have gemt filnavnet i databasen - hvordan får jeg bare kaldt det `?

Prøvet dette . men går ikke helt
filnavn = File.FileName

Prøv med dettE:


  Set Upload = Server.CreateObject("Persits.Upload.1")

  Upload.OverwriteFiles = False ' Generate unique names
  Upload.SetMaxSize 1048576 ' Truncate files above 1MB

  'Hvor ligger folderen log i for hold til denne ASP fil ?
   
  Upload.Save "xxxxxxxxx"
 
  set file = Upload.Files("file1")  'eller Upload.Files(1)
  filnavn = File.Filename 

  bruger = Upload.Form("bruger")
  emne = Upload.Form("emne")
   
  overskrift = Upload.Form("overskrift")
  overskrift = Replace(overskrift, "'", "")

  indhold = Upload.Form("indhold")
  indhold = Replace(indhold, vbCrLf, "<br>")
  indhold = Replace(indhold, "'", "")
   
  SQL = "INSERT INTO [forum_spg] (bruger,id_emner,overskrift,indhold,filnavn) VALUES (" & bruger & "," & emne & ", '" & overskrift & "', '" & indhold & "', '" & filnavn & "')"
  conntemp.execute(sql)
 
  Response.Redirect(Request.ServerVariables("SCRIPT_NAME")&"?se=emne&id_emner=" & emne)
 
end if

perfekt - arh det var en stor hjælp.

Ok, skal jeg så svar ;)?

...prøver igen, jeg skal vist havde et "Simpel brug af mus" kursus ;)

*smiler* bare tage en Shoot spil - eller noget i den stil.

Men takker mange gange for hjælpen. Surt azero server driller for vildt lige nu - så kan ikke rigtig arbejde videre med det. Men tak tak.

Jeg har også azero, og jeg modtager "næsten" ikke mails, kun en gang i mellem kommer der en enkelt igennem, sådan har det være hele dagen ;(