nu har jeg så lavet det om til requestform igen, så selve formen virker, men man kan stadig ikke vedhæfte fil,
<%
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )
'Set Request = Server.CreateObject( "w3.Request" )
'set attachment = Request.Form( "attachment" )
'if attachment.IsFile then
' msg.AddCustomAttachment attachment.filename, attachment.item, false
'end if
nl = Chr(13) & Chr(10)
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true
' Get the form data
navn = Request.Form("Navn")
senderEmail = Request.Form("email") & ""
if senderEmail = "" then
response.redirect "
http://www.job-navigation.dk/email.asp"end if
cpr = Request.Form("Cprnr")
adr = Request.Form("Adresse")
postnr = Request.Form("Postnr")
by = Request.Form("By")
tlf = Request.Form("Telefon nr")
mobil = Request.Form("Mobil nr")
moms = Request.Form("Momregistreret")
senr = Request.Form("SE nummer")
omr = Request.Form("Område")
bil = Request.Form("Bil")
koere = Request.Form("Kørekort")
tolket = Request.Form("Tolket før")
arbjtid = Request.Form("Arbejdstid")
bemerk = Request.Form("Bemærkninger")
tolksprog = Request.Form("Tolkesprog")
opg = Request.Form("Skiftlige opgaver")
subject = "Bliv Tolk"
recipient = "bla@mitdom.dk"
' Enter the sender data
msg.From = senderEmail
msg.FromName = navn
body = "Cpr nr:" & cpr & nl & nl
body = body & "Adresse:" & adr & nl & nl
body = body & "Post nr.:" & postnr & nl & nl
body = body & "By tid:" & by & nl & nl
body = body & "Telefon nr.:" & tlf & nl & nl
body = body & "Mobil nr.:" & mobil & nl & nl
body = body & "Momregistreret:" & moms & nl & nl
body = body & "SE nummer:" & senr & nl & nl
body = body & "Område:" & omr & nl & nl
body = body & "Har Bil:" & bil & nl & nl
body = body & "Har kørekort:" & koere & nl & nl
body = body & "Har du tolket før:" & tolket & nl & nl
body = body & "Arbejdstid:" & arbjtid & nl & nl
body = body & "Bemærkninger:" & bemerk & nl & nl
body = body & "Tolke sprog:" & tolksprog & nl & nl
body = body & "Skriftlige opgaver:" & opg & nl & nl
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient
msg.AddRecipient senderEmail
' The subject of the message
msg.Subject = subject
' And the body
msg.body = body
' Now send the message, using the indicated mailserver
if not msg.Send("post.tele.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
response.redirect "
http://www.mitdom.dk"end if
%>