cdosys e addattachment

[andreaciao_22]

salve a tutti,

ho un problema con cdosys:

vorrei dare la possibilità all'utente di inserire un'allegato, che si trova sul suo computer, alla mail che invia dal sito. io ho usato addattachment ma a quanto sembra, il programma va a cercare l'allegato sul server(dove si trova fisicamente il sito) e non sul client...

perchè???

c'è qualche soluzione???

se non cè allora vorrei copiare il file sul server dal client.... come posso fare???

grazie a tutti

[viki1967]

Perchè prima devi caricarlo sul server e poi allegarlo all'email da spedire.

[andreaciao_22]

come faccio a caricarlo sul server????

[viki1967]

Upload?

http://www.planet-source-code.com/vb...=8825&lngWId=4

http://freeasp.html.it/articoli/view...p?id=261&pag=1

[viki1967]

  

<%Response.Expires=0
  Response.Buffer = TRUE
  Response.Clear
  byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount)
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")
  BuildUploadRequest  RequestBin
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  value = UploadRequest.Item("blob").Item("Value")
 
  'Create FileSytemObject Component
  Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
 
  'Create and Write to a File
  pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
localfile = Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & filename
  Set MyFile = ScriptObject.CreateTextFile(localfile)

  For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
  Next
  MyFile.Close
 
Dim miaMail

Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = request.QueryString("email")
miaMail.To = "ginosicilia@aruba.it"
miaMail.Subject = "Richiesta Lavoro"
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0
miaMail.Importance = 1
miaMail.AttachFile(localfile)
miaMail.Body = Request.QueryString("Nome, Cognome, sesso, eta")
miaMail.Send
Set miaMail = Nothing
%>

qui scarichi upload.asp

Devo solo adattare CDONTS a CDOSYS.