Vedhæfte filer i asp
Hej,Jeg har et spørgsmål til hvordan man vedhæfter filer til en asp formular.
Min asp kode ser nu sådan ud:
<%
if request.form("navn") = "" Then
Response.write "Skriv venligst dit navn"
else
if request.form("adresse") = "" Then
Response.write "Skriv venligst din adresse"
else
if request.form("postnr_og_by") = "" Then
Response.write "Skriv venligst dit postnr og din by"
else
if request.form("telefonnummer") = "" Then
Response.write "Skriv venligst dit telefonnummer"
else
if request.form("mail") = "" Then
Response.write "Skriv venligst din email adresse"
else
if request.form("kommentar") = "" Then
Response.write "Skriv venligst en kommentar"
else
if request.form("klienter") = "" Then
Response.write "Skriv venligst hvor mange klienter du ønsker"
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "HOST"
Mailer.AddRecipient "MAIL"
Mailer.Subject = "Kontakt"
Mailer.FromName = request.Form("navn")
Mailer.FromAddress = "MAIL"
Mailer.ReplyTo = request.Form("mail")
Mailer.ContentType = "text/html"
msg = "<html><body><span style=""font-family: Calibri, Verdana; font-size: 14px; color: #333333;"">"
msg = msg & "Kære " & request.Form("navn") & "<br><br>"
msg = msg & "Din forespørgsel er modtaget og vi vil hurtigst muligt vende tilbage.<br><br>"
msg = msg & "Hav en god dag<br><br>"
msg = msg & "<strong>Adresse: </strong><br>" & request.Form("adresse") & "<br><br>"
msg = msg & "<strong>Postnr og by: </strong><br>" & request.Form("postnr_og_by") & "<br><br>"
msg = msg & "<strong>Telefonnummer: </strong><br>" & request.Form("telefonnummer") & "<br><br>"
msg = msg & "<strong>E-mail adresse: </strong><br>" & request.Form("mail") & "<br><br>"
msg = msg & "<strong>Kommentar: </strong><br>" & request.Form("kommentar") & "<br><br>"
msg = msg & "<strong>Antal klienter: </strong><br>" & request.Form("klienter") & "<br><br>"
msg = msg & "Med venlig hilsen<br><strong>Datacompagniet</strong><br><br><img src=""http://ringstedtennisklub.dk/datacompagniet/Nyweb/Images/Logo.png"">"
msg = msg & "</span></body></html>"
Mailer.BodyText=msg
Mailer.CharSet = 2
if not Mailer.SendMail then
Response.Write "Email blev ikke sendt... Fejlen er: <br>"
Response.Write Mailer.Response
else
Response.Write ""
Response.Write "" & replace(msg,vbCrLf,"<br>")
end if
end if
end if
end if
end if
end if
end if
end if
%>
Håber nogen kan hjælpe.
På forhånd tak!