Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

ASP Issue when using csv attachment

Posted on 2010-11-12
13
Medium Priority
?
357 Views
Last Modified: 2012-08-14
hi all,

i am having an issue where we have a stock system where customers can pick stock and then we receive a csv file containing exactly what they pick.

my issue is as follows, i can make it work so it sends a csv for a single pick (by taking out *While (NOT rcsCart.EOF)


rcsCart.MoveNext()
Wend
*

but when that line is in it, the csv sends but the order is not processed.

attached is the code, if anyone could have a look and tell me where i am going wrong that would be most appreciated!

thanks
<%
Function sendUKMail(fromWho,toWho, strSubject)

strrname = Server.HTMLEncode(Trim(Replace((Request.Querystring("basketno")),""""," ")))
strtxtsave = "D:\websites\northwayweb.co.uk\wwwroot\goms.co.uk\www\GlobalStockControl\picks\" & strrname & ".csv"
stockref = trim(rcsCart.Fields.Item("stockref").Value)
jobno = trim(rcsCart.Fields.Item("jobno").Value)
qty = CartGetQtyForItem(trim(rcsCart.Fields.Item("stockref").Value) & trim(rcsCart.Fields.Item("jobno").Value))

Set fileObj=Server.CreateObject("Scripting.FileSystemObject")
set file1=fileObj.CreateTextFile(strtxtsave)
While (NOT rcsCart.EOF)
file1.WriteLine ("1," & s(HTMLDecode(ACCOUNTNO)) & "," & _
FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 4) & "," & _
s(HTMLDecode(stockref)) & "," & s(HTMLDecode(jobno)) & "," & basketno & "," _
& qty & "," & s(HTMLDecode(SH_ACCONTACT)) & "," & s(HTMLDecode(SH_ACTEL)) & _
"," & s(HTMLDecode(SH_ACFAX)) & "," & s(HTMLDecode(SH_SPECIAL_INSTRUCTIONS)) _
& "," & s(HTMLDecode(SH_TIME)) & "," & s(SH_DATE) & "," & altshipflag & "," _
& s(HTMLDecode(SH_ACCLIENT)) & "," & s(HTMLDecode(SH_ACAD1)) & "," & _
s(HTMLDecode(SH_ACAD2)) & "," & s(HTMLDecode(SH_ACAD3)) & "," & _
s(HTMLDecode(SH_ACAD4)) & "," & s(HTMLDecode(SH_ACCONTACT)) & "," & _
s(HTMLDecode(SH_ACTEL)) & "," & s(HTMLDecode(SH_ACFAX)) & "," & _
s(HTMLDecode(CLIENT_REF)) & "," & s(HTMLDecode(JOB_NO)) & "," & _
s(HTMLDecode(COST_CENTRE)) & "," & s(HTMLDecode(SH_NOTES)) & "," & _
s(HTMLDecode(ACCONTACT)) & "," & s(HTMLDecode(ACTEL)) & "," & _
s(HTMLDecode(ACEMAIL)) & ",") 
rcsCart.MoveNext()
Wend
file1.Close

set file1=nothing
set fileObj=nothing

strMessage = strMessage & "CSV Import for pick list " & chr(10)



strInternalMessage = strMessage

'strHost = "83.170.119.187"

' Customer Email
  Set Mail = Server.CreateObject("CDO.Message")
  'Mail.Host = strHost
    Mail.From = "colin@colin-northway.com" ' From address 
    Mail.Subject = "Picklist" &  Server.HTMLEncode(Trim(Replace((Request.Querystring("basketno")),""""," ")))
	Mail.AddAttachment strPath & "D:\websites\northwayweb.co.uk\wwwroot\goms.co.uk\www\GlobalStockControl\picks\" & Server.HTMLEncode(Trim(Replace((Request.Querystring("basketno")),""""," "))) & ".csv"   

Mail.TextBody = strInternalMessage

'Mail.send
'confirmation email to me for testing 
Mail.To = "colin@colin-northway.com"
Mail.To = "colin@colin-northway.com"	
 Mail.send

End Function %>

Open in new window

0
Comment
Question by:gaa18
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 7
  • 6
13 Comments
 
LVL 19

Expert Comment

by:Bardobrave
ID: 34119385
Your code is a bit confusing to me.

You're looping through what I assume is an ADO Recordset (rcsCart), however inside the loop you don't access any of it's elements.

Maybe the recordset doesn't has as many results as you think or it's opened in some way that do not allow you to iterate through it.

The first I'd try would be to identify if code is reaching into the loop and how many loops it's doing.
add a file1.WriteLine("NEW ITERATION") just after the while.

If you do not obtain any "NEW ITERATION" lines in your file try to print rcsCart.RecordCount to see how many records it has... maybe this will give you some idea of what is happening.
0
 

Author Comment

by:gaa18
ID: 34119401
basically all it should be doing is loading a basket contents into a csv, it does it for the first item as long as i dont use:
While (NOT rcsCart.EOF)


rcsCart.MoveNext()
Wend

when i place this in there it creates the csv file however it wont process any further!

0
 
LVL 19

Expert Comment

by:Bardobrave
ID: 34119497
Yes... but what contains rcsCart and why you don't acces anyone of it's fields inside the loop?
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

Author Comment

by:gaa18
ID: 34119533
because im taking them from variables elsewhere! i only use the rcscart in another part....

the problem is defo with trying to pull the next series of data or with me closing it off incorrectly!

heres the full page of code:


<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Includes/adovbs.inc" -->
<!--#include file="Includes/functions.asp" -->
<!--#include file="Includes/constants.asp" -->

<%
If Not IsCustomerLoggedIn() Then
	Response.Redirect(DEFAULT_REDIRECT_PAGE)
End If

'INITIAL SECURITY CHECKS

'Redirect to shipping form if no items are in the cart and came to this page accidentally or by typing the url. 
'NB. During the normal process flow you cannot arrive to this page if the cart is empty
''If Not CartGetNumberOfItems() > 0 Then 
''Response.Redirect("shipping_form.asp")
''End If


Dim basketno, altshipflag
Dim ACCONTACT, ACTEL, ACEMAIL, ACCOUNTNO, SH_ACCLIENT, SH_ACCONTACT, SH_ACTEL, SH_ACFAX, SH_ACAD1, SH_ACAD2, SH_ACAD3, SH_ACAD4
Dim SH_DAY, SH_MONTH, SH_YEAR, SH_TIME, SH_NOTES, SH_DATE, SH_SPECIAL_INSTRUCTIONS, CLIENT_REF, JOB_NO, COST_CENTRE

SH_SPECIAL_INSTRUCTIONS = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_SPECIAL_INSTRUCTIONS")),""""," ")))
ACCONTACT = Server.HTMLEncode(Trim(Replace((Request.Querystring("ACCONTACT")),""""," ")))
ACTEL = Server.HTMLEncode(Trim(Replace((Request.Querystring("ACTEL")),""""," ")))
ACEMAIL = Server.HTMLEncode(Trim(Replace((Request.Querystring("ACEMAIL")),""""," ")))
ACCOUNTNO = Server.HTMLEncode(Trim(Replace((Request.Querystring("ACCOUNTNO")),""""," ")))
SH_ACCLIENT = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACCLIENT")),""""," ")))
SH_ACCONTACT = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACCONTACT")),""""," ")))
SH_ACTEL = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACTEL")),""""," ")))
'SH_ACFAX = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACFAX")),""""," ")))
SH_ACFAX = ""
SH_ACAD1 = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACAD1")),""""," ")))
SH_ACAD2 = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACAD2")),""""," ")))
SH_ACAD3 = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACAD3")),""""," ")))
SH_ACAD4 = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_ACAD4")),""""," ")))
SH_TIME = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_TIME")),""""," ")))
SH_DATE = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_DATE")),""""," ")))
SH_NOTES = Server.HTMLEncode(Trim(Replace((Request.Querystring("SH_NOTES")),""""," ")))
basketno = Server.HTMLEncode(Trim(Replace((Request.Querystring("basketno")),""""," ")))

CLIENT_REF = Server.HTMLEncode(Trim(Replace((Request.Querystring("CLIENT_REF")),""""," ")))
JOB_NO = Server.HTMLEncode(Trim(Replace((Request.Querystring("JOB_NO")),""""," ")))
COST_CENTRE = Server.HTMLEncode(Trim(Replace((Request.Querystring("COST_CENTRE")),""""," ")))

' Clean up notes
SH_NOTES = replace(SH_NOTES,","," ")
If trim(SH_NOTES) = "Please note special instructions is limited to 80 characters." Then
	SH_NOTES = ""
End If

altshipflag = Ternary((AltAddressExists(ACCOUNTNO, SH_ACCLIENT, SH_ACAD1, SH_ACAD2, SH_ACAD3, SH_ACAD4)), "yes", "no")

dim x
If altshipflag = "no" Then
	x = AltAddressInsert(ACCOUNTNO, SH_ACCLIENT, SH_ACAD1, SH_ACAD2, SH_ACAD3, SH_ACAD4)
End If


  Set rcsClient = Server.CreateObject("ADODB.Recordset")
  rcsClient.ActiveConnection = FP_DB_CLIENTS_LIVE
  rcsClient.Source = "SELECT * FROM clients WHERE accountno = '" & Session("MM_ACNO") & "'"
  rcsClient.CursorType = 0
  rcsClient.CursorLocation = 2
  rcsClient.LockType = 3
  rcsClient.Open

If CartGetNumberOfItems() > 0 Then  
	Set rcsCart = Server.CreateObject("ADODB.Recordset")
	rcsCart.ActiveConnection = DB_TRANSIT()
	rcsCart.Source = "SELECT * FROM transport where (trim(stockref)+trim(jobno)) in (" & CartIdsAsString() & ")"
	rcsCart.CursorType = 0
	rcsCart.CursorLocation = 2
	rcsCart.LockType = 3
	'rcsCart.CursorType = adOpenStatic
	'rcsCart.CursorLocation = adUseClient
	'rcsCart.LockType = adLockReadOnly  
	rcsCart.Open
	'rcsCart.ActiveConnection = Nothing
End If

process_status = sendUKMail("Global Stock <it@colin-northway.com>","it@colin-northway.com", "Picklist attachment alert")

%>



<html>
<head>
<title>Global Options</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
var statusmsg=""
function hidestatus(){
window.status=statusmsg
return true
}
//-->
</script>
<link href="../global_options.css" rel="stylesheet" type="text/css">
<STYLE type="text/css">

.Turq {  background-color: #33FFFF; font-weight: bold}
.Yellow {  background-color: #FFFF00; font-weight: bold}
div.break {page-break-before:always}
<!--
A {
color:#000000;
 text-decoration:none }
A:hover { color:red }
.HAWBTitle {  font-family: Arial, Helvetica, sans-serif; font-size: 38px; font-weight: bold}
.AddressBody {  font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold}
.printbox {
	left: 1in;
	top: 1in;
	right: 1in;
	bottom: 1in;
}
-->
</STYLE>
</head>
<body bgcolor="#FFFFFF" text="#000000">


<table border="0" cellpadding="3" cellspacing="0" bordercolor="#C0C0C0" width="95%" style='border-collapse:collapse;border:none;mso-border-alt:solid windowtext .5pt; mso-yfti-tbllook:480;mso-padding-alt:0in 5.4pt 0in 5.4pt;mso-border-insideh: .5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'>
                            <tr>
                              <td>
                                <table width="511"  border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td height="15" colspan="7"></td>
                                  </tr>
                                  <tr>
                                    <td width="3%" height="22"><img src="../images/misc/spacer.gif" width="15" height="8"></td>
                                    <td colspan="6"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                                        <tr>
                                          <td width="97%"><img src="../images/stock_control/shipment_details.gif" width="218" height="21"></td>
                                          <td>&nbsp;</td>
                                        </tr>
                                    </table></td>
                                  </tr>
                                  <tr>
                                    <td height="10" colspan="7"></td>
                                  </tr>
                                  <tr>
                                    <td height="10" colspan="7"><table width="507" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="16">&nbsp;</td>
                                        <td width="283" class="bodystyle"><strong>Items will be sent to: </strong><br>
                                          <%=SH_ACCLIENT %>, <%=SH_ACAD1 %>, <%=SH_ACAD2 %>, <%=SH_ACAD3 %>, <%=SH_ACAD4 %></td>
                                        <td width="15">&nbsp;</td>
                                        <td width="193" valign="top"><span class="bodystyle"><strong>Reference: </strong><%=basketno%> <strong><br>
  										Date &amp; Time of delivery: </strong><br><%=SH_DATE %>&nbsp;<%=SH_TIME %></span></td>
                                      </tr>
                                    </table></td>
                                  </tr>
                                  <tr>
                                    <td height="10" colspan="7"></td>
                                  </tr>
                                  <tr>
                                    <td height="1"></td>
                                    <td colspan="6" background="../images/bookings/slive_bgd.gif" height="1"></td>
                                  </tr>
                                  <tr>
                                    <td colspan="7" height="5"></td>
                                  </tr>
                                  <tr>
                                    <td height="19">&nbsp;</td>
                                    <td valign="top" class="bodystyleBold">Name &amp; description</td>
                                    <td valign="top" class="bodystyleBold">&nbsp;</td>
                                    <td><span class="bodystyleBold">Quantity</span></td>
                                    <td>&nbsp;</td>
                                    <td width="27%"><span class="bodystyleBold">Stock levels </span></td>
                                        <td width="25%"><span class="bodystyleBold">Reorder 
                                          level </span></td>
                                  </tr>
                                  <tr>
                                    <td height="5" colspan="7"></td>
                                  </tr>
                                  <tr>
                                    <td height="1"></td>
                                    <td colspan="6" background="../images/bookings/slive_bgd.gif" height="1"></td>
                                  </tr>
								  
								  
								  
								  
								  
                                  <tr>
                                    <td height="10" colspan="7"></td>
                                  </tr>
								  
<% 
While (NOT rcsCart.EOF)

%>												  
								  
								  
                                  <tr>
                                    <td valign="top">&nbsp;</td>
                                    <td width="28%" valign="top" class="bodystyle"><strong><%=rcsCart.Fields.Item("jobno").Value%></strong><br>(<%=trim(rcsCart.Fields.Item("type").Value)%>)<br>
   									</td>
                                    <td width="2%" valign="top" class="bodystyle">&nbsp;</td>
                                    <td width="12%" valign="top" class="bodystyle"><%
							  If CartItemExists(trim(rcsCart.Fields.Item("stockref").Value) & trim(rcsCart.Fields.Item("jobno").Value)) Then
								Response.Write(CartGetQtyForItem(trim(rcsCart.Fields.Item("stockref").Value) & trim(rcsCart.Fields.Item("jobno").Value)))
								
								Dim stockref, jobno, qty, output_string
								
								stockref = trim(rcsCart.Fields.Item("stockref").Value)
								jobno = trim(rcsCart.Fields.Item("jobno").Value)
								qty = CartGetQtyForItem(trim(rcsCart.Fields.Item("stockref").Value) & trim(rcsCart.Fields.Item("jobno").Value))
								
								output_string = "1," & s(HTMLDecode(ACCOUNTNO)) & "," & FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 4) & "," & s(HTMLDecode(stockref)) & "," & s(HTMLDecode(jobno)) & "," & basketno & "," & qty & "," & s(HTMLDecode(SH_ACCONTACT)) & "," & s(HTMLDecode(SH_ACTEL)) & "," & s(HTMLDecode(SH_ACFAX)) & "," & s(HTMLDecode(SH_SPECIAL_INSTRUCTIONS)) & "," & s(HTMLDecode(SH_TIME)) & "," & s(SH_DATE) & "," & altshipflag & "," & s(HTMLDecode(SH_ACCLIENT)) & "," & s(HTMLDecode(SH_ACAD1)) & "," & s(HTMLDecode(SH_ACAD2)) & "," & s(HTMLDecode(SH_ACAD3)) & "," & s(HTMLDecode(SH_ACAD4)) & "," & s(HTMLDecode(SH_ACCONTACT)) & "," & s(HTMLDecode(SH_ACTEL)) & "," & s(HTMLDecode(SH_ACFAX)) & "," &  s(HTMLDecode(CLIENT_REF)) & ","  & s(HTMLDecode(JOB_NO)) & ","  & s(HTMLDecode(COST_CENTRE)) & "," & s(HTMLDecode(SH_NOTES)) & "," & s(HTMLDecode(ACCONTACT)) & "," & s(HTMLDecode(ACTEL)) & ","  & s(HTMLDecode(ACEMAIL)) & ","  

								
								Dim temp_qty
								temp_qty = CartGetQtyPendingOnFile(rcsCart.Fields.Item("stockref").Value, rcsCart.Fields.Item("jobno").Value, CInt(rcsCart.Fields.Item("qtypending").Value))




								CartToOrder(output_string)

							  End if
							  %></td>
                                    <td width="3%" valign="top" class="bodystyle">&nbsp;</td>
                                    <td class="bodystyle"><table width="66%"  border="0" cellspacing="0" cellpadding="0">
                                        <tr>
                                          <td width="57%" class="bodystyle">In stock </td>
                                          <td width="9%" class="bodystyle">&nbsp;</td>
                                          <td width="34%" class="bodystyle"><%=rcsCart.Fields.Item("qtyonhand").Value%></td>
                                        </tr>
                                        <tr>
                                          <td class="bodystyle">Pending</td>
                                          <td class="bodystyle">&nbsp;</td>
                                          <td class="bodystyle"><%=temp_qty%></td>
                                        </tr>
                                    </table></td>
                                    <td valign="top" class="bodystyle"><%=rcsCart.Fields.Item("orderlevel").Value%></td>
                                  </tr>
                                  <tr>
                                    <td height="10" colspan="7" valign="top"></td>
                                  </tr>
                                  <tr>
                                    <td height="1" valign="top"></td>
                                    <td height="1" colspan="6" valign="top" background="../images/bookings/slive_bgd.gif"></td>
                                  </tr>
								  
<%
rcsCart.MoveNext()
Wend
%>													  
								  
								  
                                  <tr>
                                    <td height="15" colspan="7" valign="top"></td>
                                  </tr>
                              
                                  <tr>
                                    <td height="1" valign="top"></td>
                                    <td height="20" colspan="6" valign="top"></td>
                                  </tr>
                                </table>
							</td>
                            </tr>
</table>

</body>
</html>

<%
Function sendUKMail(fromWho,toWho, strSubject)

strrname = Server.HTMLEncode(Trim(Replace((Request.Querystring("basketno")),""""," ")))
strtxtsave = "D:\websites\northwayweb.co.uk\wwwroot\goms.co.uk\www\GlobalStockControl\picks\" & strrname & ".csv"
stockref = trim(rcsCart.Fields.Item("stockref").Value)
jobno = trim(rcsCart.Fields.Item("jobno").Value)
qty = CartGetQtyForItem(trim(rcsCart.Fields.Item("stockref").Value) & trim(rcsCart.Fields.Item("jobno").Value))

Set fileObj=Server.CreateObject("Scripting.FileSystemObject")
set file1=fileObj.CreateTextFile(strtxtsave)
While (NOT rcsCart.EOF)
file1.WriteLine ("1," & s(HTMLDecode(ACCOUNTNO)) & "," & _
FormatDateTime(Date(), 0) & " " & FormatDateTime(Time(), 4) & "," & _
s(HTMLDecode(stockref)) & "," & s(HTMLDecode(jobno)) & "," & basketno & "," _
& qty & "," & s(HTMLDecode(SH_ACCONTACT)) & "," & s(HTMLDecode(SH_ACTEL)) & _
"," & s(HTMLDecode(SH_ACFAX)) & "," & s(HTMLDecode(SH_SPECIAL_INSTRUCTIONS)) _
& "," & s(HTMLDecode(SH_TIME)) & "," & s(SH_DATE) & "," & altshipflag & "," _
& s(HTMLDecode(SH_ACCLIENT)) & "," & s(HTMLDecode(SH_ACAD1)) & "," & _
s(HTMLDecode(SH_ACAD2)) & "," & s(HTMLDecode(SH_ACAD3)) & "," & _
s(HTMLDecode(SH_ACAD4)) & "," & s(HTMLDecode(SH_ACCONTACT)) & "," & _
s(HTMLDecode(SH_ACTEL)) & "," & s(HTMLDecode(SH_ACFAX)) & "," & _
s(HTMLDecode(CLIENT_REF)) & "," & s(HTMLDecode(JOB_NO)) & "," & _
s(HTMLDecode(COST_CENTRE)) & "," & s(HTMLDecode(SH_NOTES)) & "," & _
s(HTMLDecode(ACCONTACT)) & "," & s(HTMLDecode(ACTEL)) & "," & _
s(HTMLDecode(ACEMAIL)) & ",") 
rcsCart.MoveNext()
Wend
file1.Close

set file1=nothing
set fileObj=nothing

strMessage = strMessage & "CSV Import for pick list " & chr(10)



strInternalMessage = strMessage

'strHost = "83.170.119.187"

' Customer Email
  Set Mail = Server.CreateObject("CDO.Message")
  'Mail.Host = strHost
    Mail.From = "colin@colin-northway.com" ' From address 
    Mail.Subject = "Picklist" &  Server.HTMLEncode(Trim(Replace((Request.Querystring("basketno")),""""," ")))
	Mail.AddAttachment strPath & "D:\websites\northwayweb.co.uk\wwwroot\goms.co.uk\www\GlobalStockControl\picks\" & Server.HTMLEncode(Trim(Replace((Request.Querystring("basketno")),""""," "))) & ".csv"   

Mail.TextBody = strInternalMessage

'Mail.send
'confirmation email to me for testing 
Mail.To = "colin@colin-northway.com"
Mail.To = "colin@colin-northway.com"	
 Mail.send

End Function %>
<%

	If CartGetNumberOfItems() > 0 Then	
		CartClear()
		rcsCart.Close()
		Set rcsCart = Nothing
		Set Recordset1 = Nothing
	End If
	
	rcsClient.Close()
	Set rcsClient = Nothing

%>

Open in new window

0
 
LVL 19

Expert Comment

by:Bardobrave
ID: 34119624
Let's see...

First of all... if rcsCart contains all your elements and you store it's field's values on variables out of your loop and use this variables to write data to your file, in the best of cases, you'll obtain a file with X lines of the same results (being X the number of records on your recordset), as your variables doesn't change it's value with every loop's iteration.

Now let's see what is happening to your recordset iteration... I supose there's no error on the response, so we need to know if recordset is at EOF and how many records it has before starting to loop.

put
Response.write rcsCart.EOF & " - " & rcsCart.RecordCount

before your while, execute the page and put here what values it returns.
0
 

Author Comment

by:gaa18
ID: 34120125
i get:

False - -1
0
 
LVL 19

Expert Comment

by:Bardobrave
ID: 34120281
Your proccess runs well when there's no loop and you don't get any error when loop is present.

Your recordset recordcount before starting loop is 1, this means there's only one record in it left when code's executed.

I'm assuming that CSV file arrives empty when you executes code with loop. Is that correct or you're receiving same result as when loop is not present? (a CSV with only one record/line of data I presume)
0
 

Author Comment

by:gaa18
ID: 34120307
i have noticed that even with the loop i get the correct amount of lines however with duplicate data?

i really dont know where im going wrong :'(
0
 
LVL 19

Expert Comment

by:Bardobrave
ID: 34120405
I explained that behaviour before, it's due to your variables.

You store your recordset values in variables out of the loop, then you loop over the recordset, but your values don't change values (because they are set out of the loop) so you loop X times over your recordset but always post same values to your file.
0
 

Author Comment

by:gaa18
ID: 34120486
so how can i solve it?
0
 

Author Comment

by:gaa18
ID: 34120552
the only variables that will be different on each line would be:

stockref, jobno, quantity

how can i approach it now?
0
 
LVL 19

Accepted Solution

by:
Bardobrave earned 1500 total points
ID: 34121896
You must assign value to those variables INSIDE the loop, so in every iteration they have a new value. Or if you prefer it you can directly access to the recordset values instead of use variables, this will save you memory usage, as recordset already contains all info you need and is loaded into memory.
0
 

Author Closing Comment

by:gaa18
ID: 34334912
issue was related to where the loop was starting.... thanks for your help
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:   The Exchange of informatio…
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…

604 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question