Just nu i M3-nätverket
Gå till innehåll

Resultat blir kommaseparerade


Patronbutiken

Rekommendera Poster

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

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...