Vedlagte filer

Jjeg har noget kode der kan det, men det er noget jeg har hentet, det skulle være det samme som dette link, mon du ikke i denne kode kan finde løsningen.

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=245

Linket virker, men når man downloader så virker det ikke længere....

hvad er din mailadresse, så kan jeg sende det til dig

Send til peter@telweb.dk !

Sså er den på vej

sth

Jeg har kigget på det, men kan du ikke sende sourcen til mig eller skrive den her ???

Koden er jo i de sendte filer

så må det vel være denne:
  Function getAttachments()
    Set Attachments = msg.Attachments
    separator = \", \"

    for i = 0 To Attachments.Count - 1
      if i = Attachments.Count - 1 then
        separator = \"\"
      end if

      Set at = Attachments(i)

    if FindesFilen(Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\attachments\\\"&at.Name) = \"no\" then
          at.SaveToFile(\"\"&Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\attachments\\\"&at.Name&\"\")
          getAttachments = getAttachments & \"<a href=\"\"/attachments/\" &_
          at.Name &\"\"\">\" & at.Name & \" (\" & at.Size & \" bytes)\" &_
          \"</a>\" & separator
    else
        getAttachments = getAttachments & \"filen findes\" & separator
    end if

    next
  End Function

Hvad skal man skrive for at hente de vedlagte filer. Så får du også point\'ene

/mtas

med asp:
Response.Write \"<tr><td nospan><b>Attachments:</b></td><td>\"&getAttachments&\"</td></tr>\"

vist i html:
<%=getAttachments%>

men hvis jeg var dig ville jeg nok lige kaste et blik på den fil der heder singlemessage.asp

så er det ret nemt.... sådan da ;-)

Har du fået det til at virke ?

Ved det ikke, så kan du måske ikke lige sende en mail med en vedhæftet fil ?? På forhånd tak !

Så er den sendt, så må vi jo bare håbe at det virker ;-)

mvh sth

Den kommer med fejlen:
Microsoft VBScript runtime error \'800a000d\'

Type mismatch: \'FindesFilen\'

/anna/indbakke.laes.asp, line 91

!!!!

har du prøveet at køre de programmer jeg sendte dig, det virker.

Jamen jeg kan ikke hente vedlagte filer ! Jeg bruger koden:
Function getAttachments()
    Set Attachments = msg.Attachments
    separator = \", \"

    for i = 0 To Attachments.Count - 1
      if i = Attachments.Count - 1 then
        separator = \"\"
      end if

      Set at = Attachments(i)

    if FindesFilen(Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\attachments\\\"&at.Name) = \"no\" then
          at.SaveToFile(\"\"&Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\attachments\\\"&at.Name&\"\")
          getAttachments = getAttachments & \"<a href=\"\"/attachments/\" &_
          at.Name &\"\"\">\" & at.Name & \" (\" & at.Size & \" bytes)\" &_
          \"</a>\" & separator
    else
        getAttachments = getAttachments & \"filen findes\" & separator
    end if

    next
  End Function


Hvad er fejlen ??

prøv lige at hente med den sendte kode, altså koden jeg sendte i en zip-fil

Det kan jeg ikke, men hvis du har systemet kan du så ikke lige prøve at skrive koden igen.

Jeg tror der er fejl i følgende kode:

if FindesFilen(Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\attachments\\\"&at.Name) = \"no\" then

Fordi \'FindesFilen\' er ikke angivet nogen steder !

/mtas

se lige dette link:
http://tech.dimac.net/isapiscript.dll?action=read&id=32559&exId=32573