variabel i

Hvordan får jeg varablen strSalgsopstilling  ned i AttachFile istedet for den faste værdi 1890.pdf


<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<html>
<head>
    <title>Client Questionaire</title>
</head>
<body bgcolor=#ffffff>
<%
Dim strName, strEmail, strQuery, strAdresse, strBy, strTlf, strTlfArbejde, strSagsnr, strSalgsopstilling 
strName = Trim(Request.Form(\"ClientName\"))
strAdresse = Trim(Request.Form(\"ClientAdresse\"))
strBy = Trim(Request.Form(\"ClientBy\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strTlfArbejde = Trim(Request.Form(\"ClientTlfArbejde\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strQuery = Trim(Request.Form(\"ClientQry\"))
strSagsnr  = Trim(Request.Form(\"ClientSagsnr\"))
strSalgsopstilling  = Trim(Request.Form(\"ClientSalgsopstilling\"))

If (strName <> \"\" And strAdresse <> \"\" And strBy <> \"\") Then
    Dim objMail, aRecipients
   
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
    objMail.From = \"11@xx.dk\"
    objMail.To = strEmail
    objMail.Subject = \"Fremsendelse af opstilling via eMail til \" & strName
    objMail.AttachFile Server.MapPath (\"1890.pdf\")
    objMail.Body = \"Hermed fremsendes opstilling på :  \" & strSagsnr
    objMail.send
   
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
    objMail.From = \"11@xx.dk\"
    objMail.To = \"22@xx.dk\"
    objMail.Subject = \"Endnu en opstilling på \" & strName
    objMail.Send
   
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
    objMail.From = \"11@xx.dk\"
    objMail.To = \"22@xx.dk\"
    objMail.Subject = \"Endnu en opstilling på ejendom \" & strName & \" er sendt! \"
    objMail.Body = \"Hej xx!! Her er en meddelse bla.bla. \"
    objMail.Send

   
    Response.Write \"Tak for din bestilling !  \" & strName
    Set objMail = Nothing
   
Else
%>