Ive created this script to create packing slips per order and list the items sold, but for some reasons items that are not matched up to the order are being added. Not sure why Ill post my code and explain:

I cant see whats wrong with it but maybe in the loop somewhere?

Ill Post all the code here, if you scroll down I marked what part of the code im having problems with, the 3rd code down.

Open that dabase and start to loop through the orders
Code:
'----------------------- Create packing Slips ---------------------------
strsheetcount = 1
xlrow = 1
master_file = "C:\Inetpub\WebSites\website\vbs\pslip-template.xls"
save_as_file = "C:\Inetpub\Batch\NB\" & strdate & "-pslip.xls"

Set xl = CreateObject("Excel.Application")
xl.Visible = False
xl.DisplayAlerts = False
xl.Interactive = False

Set wrk = xl.Workbooks.Open(master_file)
'Set wrkSht = wrk.sheets(1)		

		'Set to Sheet1 because that is excel default
	strsql = "Select * from tb_orders where status='Step 1'"
		rsitems.open strsql, adocon
	Do While Not Rsitems.EOF
	strsql = "UPDATE tb_orders SET Status = 'Step 2'WHERE order_ID ='" & rsitems("order_ID") & "'"
	adocon.execute strsql
		Set wrkSht = wrk.sheets(strsheetcount)
		stritemcount = 0
Write Out the order Number Ship/Ect. This works fine
Code:
        	wrkSht.Cells(7, 1).Value = "#" & rsitems("order_ID")
		wrkSht.Cells(8, 1).Value = "Date:"
		wrkSht.Cells(9, 1).Value = "Ship to:"
		wrkSht.Cells(13, 1).Value = "Via:"
		wrkSht.Cells(15, 1).Value = "Item"
		wrkSht.Cells(15, 8).Value = "Code"
		wrkSht.Cells(15, 10).Value = "Qty"

		wrkSht.Cells(7, 3).Value = "Packing Slip " & rsitems("order_ID") & " for websitecom"
		wrkSht.Cells(8, 3).Value = now
		wrkSht.Cells(9, 3).Value = rsitems("s_firstname") & " " & rsitems("s_lastname")
		wrkSht.Cells(10, 3).Value = rsitems("s_address")
		wrkSht.Cells(11, 3).Value = rsitems("s_city") & " " & rsitems("s_state") & ", " & rsitems("s_zip")
		wrkSht.Cells(13, 3).Value = strshipping_method
This is where im running into the problem, it selects the order number then opens the sold table and selects everything from that order, but its selecting extra items to.
Code:
	strsql2 = "Select * from tb_sold where order_id='" & rsitems("order_ID") & "'"
	rsitems2.open strsql2, adocon
	Do While Not Rsitems2.EOF
		
		wrkSht.Cells(16 + cint(stritemcount), 1).Value = rsitems2("Item_Name")
		wrkSht.Cells(17 + cint(stritemcount), 1).Value = "http://www.website.com/item.asp?itemnum=" & rsitems2("Item_ID")
		wrkSht.Cells(16 + cint(stritemcount), 8).Value = rsitems2("Item_ID")
		wrkSht.Cells(16 + cint(stritemcount), 10).Value = rsitems2("qty")
		stritemcount = stritemcount + 2
		
	rsitems2.movenext
	loop


		xlrow = xlrow + 1

	rsitems2.close
	rsitems.movenext
	If NOT rsItems.EOF then		'IF THERE IS ANOTHER RECORD, COPY/PASTE
This checks to see if theres another order and adds another sheet because excels default is 3 pages, if anymore orders then 3, i gotta add another page

Code:
	'----------------------------------------------------------------------------------------
		'	PASTE NEW SHEET
		'-----------------------------------------------------------------------------------------
		strsheetcount = strsheetcount + 1

		If strsheetcount > 3 Then
			'wrk.sheets.add()
			wrk.sheets.add ,wrk.sheets(wrk.sheets.count)
		end if
	'Set sh = wrk.Sheets.Add(, wrk.Sheets(wrk.Sheets.Count))	  
	  'With sh.Range("A1").Borders(xlEdgeBottom)
   	     '.LineStyle = xlContinuous
   	     '.Weight = xlThin
   	     '.ColorIndex = xlAutomatic
 	  'End With 

		'Set wrkSht = wrk.sheets("Sheet1")		'SELECT THE ORIGINAL
		wrk.sheets("Sheet1").Select
		wrkSht.Cells.Copy				'COPY CELLS FROM 1st

		Set wrkSht = wrk.sheets("Sheet" & strsheetcount)		'Set 2nd wrkSht object to sheet2
		'wrkSht.Cells.Select

		wrkSht.Paste			'Paste the copied text
		xl.CutCopyMode = False		'I have no idea what this means

	End If
loop

rsitems.close
adocon.close
set rsitems = nothing
set rsitems2 = nothing
set adocon = nothing
[code]
'----------------------------------
' SAVE MASTER FILE & QUIT
'----------------------------------
wrk.SaveAs save_as_file 'THIS SECTION CAN BE USED TO SET FILE TYPE


Save The Excel File

Save & Quit
Code:
'----------------------------------------------------------------------------
'	DIFFERENT FILE TYPES
'------------------------------------------------------------------------------
'wrk.SaveAs ave_as_file, -4158			'Save as TAB DELIMITED File	
'wrk.SaveAs ave_as_file, 6			'Save as a CSV File


wrk.Close
Set wrkSht = Nothing
Set wrk = Nothing

xl.Quit
Set xl = Nothing
Hope ya can help,

Thank you,
Billy