Hej jag har ett problem jag vill skicka med en fil med hjälp av en variabel
och CDONTS här är koden vad kan det vara för fel.
det är inget fel på Session("fil")

<!--#include virtual="/cdovbs.inc"-->
<%
' lagra fil
strfil = Session("fil")
' lagra subject
strSubject = Request.Form("subject")
' lagra message
strMessage = Request.Form("message")
' kolla så att subject och message innehåller nånting
If strSubject = "" Or strMessage = "" Then
Response.Write "Du måste skriva ett ämne och ett meddelande!"
Else
' skapar anslutningsobjektet
Set objDb = Server.CreateObject("ADODB.Connection")
strDSN = "DSN=d5651-News;Password=@01#$dcklaebcdldljdgjmcdc"

' öppnar databasen
objDb.Open strDSN

' loopa igenom alla prenumeranter
strSQL = "SELECT * FROM nyhetsbrev where "
Set objRS = objDb.Execute(strSQL)
If objRS.EOF Then
Response.Write "Det finns inga prenumeranter att skricka nyhetsbrevet till"
Else
Do Until objRS.EOF
Response.Write "Skickar till " & objRS("Email") & "<BR>"


Dim SMTP



Set SMTP = Server.CreateObject("CDONTS.NewMail")
SMTP.Host = "mail2.space2u.com"
SMTP.From = "plastikk@telia.com"
SMTP.To = objRS("Email")
SMTP.Subject = strSubject
SMTP.Body = strMessage
SMTP.AttachFile Server.MapPath("/strfil")
SMTP.BodyFormat = CdoBodyFormatText
SMTP.Importance = CdoNormal
SMTP.Send
Set SMTP = Nothing

Response.Flush
objRS.MoveNext
Loop
Response.Write "Klart!"
End If
objRS.Close
Set objRS = Nothing

' stänger databasen och sätter den till nothing
objDb.Close
Set objDb = Nothing
End If
%>

SMTP.AttachFile Server.MapPath("/" & strFil) skall det vara

//Putte