Afsendelse af mailform med vedhæftning, virker ikke!
Hejsa.Jeg bruger denne kode:
<%@ Language=VBScript %>
<%
Dim Firma, Navn, Adresse, Bynavn, Postnummer, Email, Telefonnummer, Fax, Bemaerkninger, BodyText, Billedfil, Antal, Minfont, fso
Firma = Request("firma")
Navn = Request("navn2")
Adresse = Request("adresse")
Postnummer = Request("postnummer")
Bynavn = Request("bynavn")
Email = Request("email")
Telefonnummer = Request("telefonnummer2")
Bemaerkninger = Request("Bemaerkninger")
' her hentes billede - det gemmes i mappen log.
Billedfil=""
Antal=0
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveVirtual("/log/")
For Each File in Upload.Files
Antal = Antal + 1
Billedfil = Server.Mappath("/log/" & File.Name)
Next
' her sendes mail
Minfont = "<font face=verdana size=1>"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.ContentType = "text/html"
Mailer.FromName = "Party-House.dk - Kontakt form"
Mailer.FromAddress= " Robot@Party-House.dk"
Mailer.RemoteHost = "mail.party-house.dk"
Mailer.AddRecipient "Mark Zweidorff", " mark@party-house.dk"
Mailer.Subject = "Party-House.dk - Kontakt form"
BodyText = Minfont & "<b>Nedenstående ønsker at blive kontaktet:</b><br><br>"
BodyText = BodyText & "<table border=0 cellspacing=0 cellpadding=0 width=300>"
BodyText = BodyText & "<tr><td width=150>" & Minfont & "<b>Firma</b></td><td> </td><td width=150> " & Minfont & Firma & "</td></tr>"
BodyText = BodyText & "<tr><td>" & Minfont & "<b>Navn</b></td><td> </td><td> " & Minfont & Navn & "</td></tr>"
BodyText = BodyText & "<tr><td>" & Minfont & "<b>Adresse</b></td><td> </td><td> " & Minfont & Adresse & "</td></tr>"
BodyText = BodyText & "<tr><td>" & Minfont & "<b>Postnr/By</b></td><td> </td><td> " & Minfont & Postnummer & " " & Bynavn & "</td></tr>"
BodyText = BodyText & "<tr><td>" & Minfont & "<b>Email</b></td><td> </td><td> " & Minfont & Email & "</td></tr>"
BodyText = BodyText & "<tr><td>" & Minfont & "<b>Telefon</b></td><td> </td><td> " & Minfont & Telefonnummer & "</td></tr>"
BodyText = BodyText & "</table>"
BodyText = BodyText & Minfont & "<b>Bemærkning: </b><br>" & Bemaerkninger
BodyText = BodyText & "<br><br>Mvh.<br> Party-House.dk's mailing system."
Mailer.BodyText = BodyText
' billed tilføjes mail
if Antal > 0 then
Mailer.AddAttachment Billedfil
end if
if Mailer.SendMail then
Response.Redirect "kontakt.asp?msg=Deres meddelse er nu afsendt."
else
Response.Write "Mail kan ikke sendes, fejlen er:<br>" & Mailer.Response
end if
' her slettes billede efter brug
if Antal > 0 then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Billedfil)
Set fso = Nothing
end if
%>
Og jeg får denne fejl:
Active Server Pages error 'ASP 0113'
Script timed out
/web/vip_ansog_send.asp
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
Hvordan løser jeg dette ?
