Just nu i M3-nätverket
Jump to content

Resultat blir kommaseparerade


Patronbutiken

Recommended Posts

Patronbutiken

Nu blev det knas igen :-(

Jag har en sida som skickar några recordsets till en annan sida som via CD-onts mailar värdena.

Restultaten i mailen blir komma separerade samt att bara den första raden kommer med.

Jag vet att det skall var nånting med MoveNext.

Men fattar inte hur.

Kod formulärsida (som skickar till mailskriptet)

<%

Dim SubTotal

iCount = 0

Do While Not rs.EOF 'start the count

 

If Eval(iCount\2 = iCount/2) Then 'determine if the number is odd or even

%>

 

<tr>

<td width="8%" bgcolor="#CCCCCC"><input type="text" name="antal" size="3" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; background-color: #CCCCCC; border: 0 solid #FFFFFF" value="<% =Rs("antal") %>"></td>

<td width="9%" bgcolor="#CCCCCC"><input type="text" name="artnr" size="8" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; background-color: #CCCCCC; border: 0 solid #FFFFFF" value="<% =Rs("artnr") %>"></td>

<td width="41%" bgcolor="#CCCCCC"><input type="text" name="artikel" size="60" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; background-color: #CCCCCC; border: 0 solid #FFFFFF" value="<% =Rs("artikel") %>/&nbsp;<% =Rs("färg") %>/&nbsp;<% =Rs("oem") %>"></td>

<td width="11%" bgcolor="#CCCCCC"><input type="text" name="pris1" size="8" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; background-color: #CCCCCC; border: 0 solid #FFFFFF" value="<% =Rs("pris1") & ",00" %>"></td>

<td width="19%" bgcolor="#CCCCCC"><input type="text" name="radbelopp" size="8" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; background-color: #CCCCCC; border: 0 solid #FFFFFF" value="<%= GetPrice()& ",00" %>"></td>

</tr>

<% Else %>

<tr>

<td width="8%"><input type="text" name="antal" size="3" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; border: 0 solid #FFFFFF" value="<% =Rs("antal") %>"></td>

<td width="9%"><input type="text" name="artnr" size="8" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; border: 0 solid #FFFFFF" value="<% =Rs("artnr") %>"></td>

<td width="41%"><input type="text" name="artikel" size="60" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; border: 0 solid #FFFFFF" value="<% =Rs("artikel") %>/&nbsp;<% =Rs("färg") %>/&nbsp;<% =Rs("oem") %>"></td>

<td width="11%"><input type="text" name="pris1" size="8" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; border: 0 solid #FFFFFF" value="<% =Rs("pris1") & ",00" %>"></td>

<td width="19%"><input type="text" name="radbelopp" size="8" style="font-family: Microsoft Sans Serif; font-size: 8pt; color: #000000; border: 0 solid #FFFFFF" value="<%= GetPrice()& ",00" %>"></td>

</tr>

 

<%

SubTotal = SubTotal + (RS("Antal") * RS("Pris1"))

End If

iCount = iCount +1 'increment the counter

RS.MoveNext

Loop

%>

 

Kod på cd-onts skriptsidan

först det vanliga med mottagare avs osv.

sen kommer det som ska bli en rad i mailet:

Request.form("antal") & Request.form("artnr") & Request.form("artikel") & Request.form("pris1")& vbcrlf&_

 

Denna rad skall bli flera om det skickas flera poster från förg. sida

 

Hoppas nån kan fixa detta!

 

Mvh

Peter

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...