For some reason when I try to merge more than one doc in a set of code, all docs after the first do not merge. When I make the second doc the first doc in the code it works. I'm just trying to use the same recordest over and over for each doc. Can you not do that? Here's the code:
<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Dim qryMailMerge
Dim qryMailMerge2
Dim qryAdditionalDeposit
Dim Conn
Dim JobNum
Dim CurrentUser
Dim Doc
Dim Word
Set Word = CreateObject("Aspose.Word.Word")
Word.SetLicenseCOM "C:\Inetpub\wwwroot\Aspose.Word\License\Aspose.Word.lic.txt"
JobNum = Request.QueryString("JobNum")
CurrentUser = Request.QueryString("CurrentUser")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=SeaGateContracts"
Set qryMailMerge = CreateObject("ADODB.Recordset")
qryMailMerge.Open "SELECT * FROM qryMailMerge WHERE JobNum = '" & JobNum & "'", Conn
Set Doc = Word.Open("\\seagate-file\seagate\Sales & Marketing\Contract Documents\Sales Contracts\SalesDB\LOT AQUISITION Addendum.doc")
Doc.MailMerge.ExecuteADO qryMailMerge
Doc.Save "\\seagate-file\seagate\Sales & Marketing\Contract Documents\Sales Contracts\SalesDB\" & CurrentUser & " LOT AQUISITION Addendum.doc"
Set Doc = Word.Open("\\seagate-file\seagate\Sales & Marketing\Contract Documents\Sales Contracts\SalesDB\ABA Disclosure -First Rate Home Mortgage.doc")
Doc.MailMerge.ExecuteADO qryMailMerge
Doc.Save "\\seagate-file\seagate\Sales & Marketing\Contract Documents\Sales Contracts\SalesDB\" & CurrentUser & " ABA Disclosure -First Rate Home Mortgage.doc"
%>
DONE