webForumDet fria alternativet

Formulärsmail

4 svar · 288 visningar · startad av harry_boy

harry_boyMedlem sedan feb. 2003193 inlägg
#1

Jag har ett formulär som ser ut som följer....

		<form action="mail.asp" name="form1">
			<p><b>Best&auml;llningsformul&auml;r:</b></p>
			<table width="506" border="0" cellspacing="2" cellpadding="0">
				<tr>
					<td width="100">Artikelnr</td>
					<td>Benämning</td>
					<td width="30">Antal</td>
					<td width="60">A&acute;pris</td>
					<td width="70">
						<div align="left">
								Pris</div>
					</td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr1" tabindex="6"></td>
					<td><input size="35" name="ben1" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal1" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris1" value="0" onChange="addera()"></td>
					<td width="70" id="delsum1"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr2" tabindex="6"></td>
					<td><input size="35" name=ben"2" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal2" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris2" value="0" onChange="addera()"></td>
					<td width="70" id="delsum2"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr3" tabindex="6"></td>
					<td><input size="35" name="ben3" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal3" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris3" value="0" onChange="addera()"></td>
					<td width="70" id="delsum3"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr4" tabindex="6"></td>
					<td><input size="35" name="ben4" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal4" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris4" value="0" onChange="addera()"></td>
					<td width="70" id="delsum4"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr5" tabindex="6"></td>
					<td><input size="35" name="ben5" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal5" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris5" value="0" onChange="addera()"></td>
					<td width="70" id="delsum5"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr6" tabindex="6"></td>
					<td><input size="35" name="ben6" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal6" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris6" value="0" onChange="addera()"></td>
					<td width="70" id="delsum6"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr7" tabindex="6"></td>
					<td><input size="35" name="ben7" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal7" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris7" value="0" onChange="addera()"></td>
					<td width="70" id="delsum7"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr8" tabindex="6"></td>
					<td><input size="35" name="ben8" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal8" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris8" value="0" onChange="addera()"></td>
					<td width="70" id="delsum8"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr9" tabindex="6"></td>
					<td><input size="35" name="ben9" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal9" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris9" value="0" onChange="addera()"></td>
					<td width="70" id="delsum9"></td>
				</tr>
				<tr>
					<td width="100"><input size="15" name="artnr10" tabindex="6"></td>
					<td><input size="35" name="ben10" tabindex="7"></td>
					<td width="30"><input size="7" type="text" name="antal10" value="0" onchange="addera();" class="antal"></td>
					<td width="60"><input size="10" type="text" name="pris10" value="0" onChange="addera()"></td>
					<td width="70" id="delsum10"></td>
				</tr>
				
					<tr>
					<td width="100"></td>
					<td></td>
					<td width="30"></td>
					<td width="60">Varuvärde</td>
					<td width="70" id="totsum" class="total" align="right"></td>
				</tr>
				<tr>
					<td width="100"></td>
					<td></td>
					<td width="30"></td>
					<td width="60">Moms</td>
					<td width="70" id="tot_moms" colspan="4" class="total" align="right"></td>
				</tr>
				<tr>
					<td width="100"></td>
					<td></td>
					<td width="30"></td>
					<td width="60"><b>Totalt</td>
					<td width="70" id="totsum_moms" colspan="4" class="total" align="right"></td></b>
				</tr>
								
			</table>
			<br>
			<P>&Ouml;vrigt:<br>
			<TEXTAREA name=kommentar rows=7 cols=62></TEXTAREA>

</p>
			<p><INPUT type=reset value=Radera><input type="submit" name="submitButtonName" value="Skicka beställning"></p>
		</FORM>

och sedan skickas det med

<%
  Dim objMail
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  
     objMail.From = "rob@tconsult.com"
     objMail.Subject = "How TO send email with CDONTS"
     objMail.To = "someone@someplace.com"
     objMail.Body = "This is an email message" & vbcrlf&_ 
     "with CDONTS." & vbcrlf&_
     "It is really easy. " 
     objMail.Send
 
 Response.write("Mail was Sent")
 
 'You must always do this with CDONTS.
  set objMail = nothing
%>

Frågan är hur jag skall göra för att kunna presentera formuläret på ett enkelt sätt i mailet som jag får, vill helst att det skall vara typ som:

Artnr Benämning Antal A-pris Pris
123 Slickepott 2 25 50

                                 Varuvärde  50
                                    Moms 12,50
                             Att betala 62,50

Går det överhuvudtaget?

FraggelMedlem sedan sep. 2003301 inlägg
#2

Jag hajjar inte frågan ?
Är det så att du har svårt att få med datan ifrån formuläret ?

Om det är vad du menar så...

<%
  Dim objMail
  Dim Item, mailBody

  For Each Item In Request.Querystring
    mailBody = mailBody & Item & " - " & Request.Querystring(Item) & vbCrLf
  Next
  Set objMail = Server.CreateObject("CDONTS.NewMail")
  
     objMail.From = "rob@tconsult.com"
     objMail.Subject = "How TO send email with CDONTS"
     objMail.To = "someone@someplace.com"
     objMail.Body = mailBody
     objMail.Send
 
 Response.write("Mail was Sent")
 
 'You must always do this with CDONTS.
  set objMail = nothing
%>

Är det så att du byter method på dit form till method="post" så byter du Querystring till Form (rekommenderas)

harry_boyMedlem sedan feb. 2003193 inlägg
#3

Grejen är att jag fick från webhotellet en kod som skulle användas och det är den som du visade (Ballou). Men jagvet inte vad jag skall göra med mitt formulär för att få den datan som fylls i att komma med och visas på ett bra sätt i ett mail.

J.N.Medlem sedan apr. 20031 660 inlägg
#4

HEJ!

Antingen gör du som Fraggel skriver, hämtar alla värde på en gång, eller hämtar du värdena var för sig, och kan få en snyggare presentation.

body="Artikel: "&request.form("artnr1")&", "&request.form("antal1")&" st, "&request.form("pris1")&" kr"&VbCrLf
body=body&"Artikel: "&request.form("artnr2")&", "&request.form("antal2")&" st, "&request.form("pris2")&" kr"&VbCrLf
osv
objMail.Body = body

Eftersom fälten heter likadant förutom siffran kan du också göra en loop där du sätter artnr dynamiskt.

FraggelMedlem sedan sep. 2003301 inlägg
#5

harry_boy skrev:

Grejen är att jag fick från webhotellet en kod som skulle användas och det är den som du visade (Ballou). Men jagvet inte vad jag skall göra med mitt formulär för att få den datan som fylls i att komma med och visas på ett bra sätt i ett mail.

Tips läs lite om Forumlär och ASP ...

Basics är

Request.Form() och Request.Querystring()

<input name="mitt_falt" type="text" />

För att få upp värdet från ett formulärs fält på föregående sida använder du dig av Request.Querystring("mitt_falt") eller Request.Form("mitt_falt") detta b eroende på vilken method du kör på ditt form. Väljer du ingen method så är det Querystring som gäller. Sätter du method="post" sä är det Form som gäller.

PS jag var för lag för att skriva ut alla dina text fält därför körde jag en For Each In Next lösning :P

133 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)