sætte linie ind i mail script
Jeg bruger følgende script der sender en mail fra en ASP side til min mailbox. Jeg vil gerne kunne sætte en fast tekst ind mellem linie A og linie B, der kommer med i den mail der sendes. Nogen der ved hvordan det gøres:<%@ Language=VBScript %>
<%
Dim strqFrom, strqTo, strqQuestion1_1, strqQuestion2_1, objMail, strqBody
strqUserInitials = Trim(Request.Form("From"))
strqInstructorInitials = Trim(Request.Form("To"))
strqQuestion1_1 = Trim(Request.Form("Q1_1"))
strqQuestion2_1 = Trim(Request.Form("Q2_1"))
'Hvis felterne er udfyldt, så gør et eller andet med data'ene....
If strqUserInitials <> "" Then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.to = strqFrom + "@mail.com"
objMail.From = strqTo + "@mail.com"
objMail.Subject = "Davs"
strqBody = strqBody + "From: " + strqFrom + vbNewLine
strqBody = strqBody + "To: " + strqTo + vbNewLine
strqBody = strqBody + "Linie A: " + strqQuestion1_1 + vbNewLine
strqBody = strqBody + "Linie B: " + strqQuestion2_1 + vbNewLine
objMail.Body = strqBody
objMail.Send
Set objMail = Nothing
Response.Redirect "result.asp" 'Husk at oprette siden result.asp
End If
%>
Hilsen
Kim
