Jmail begrænsning iflg form value

Hvor mange og hvilke felter har du i din form?

4 stk med kontaktinfo (Firmanavn, Leveringsadresse, Postnr. & By og Telefon)
46 stk med vine (antal1........antal46)
2 stk til at afslutte (samletantal og total)

<% option explicit %>


<form action="index.asp" method="post">
<input type="text" name="firma" value="Mit Firma">
<input type="text" name="leveringsadresse" value="min vej 123">
<input type="text" name="postnr" value="1234">
<input type="text" name="by" value="Min By">
<input type="text" name="telefon" value="12345678">

<input type="text" name="antal1" value="1231">
<input type="text" name="antal2" value="22">
<input type="text" name="antal3" value="0">
<input type="text" name="antal4" value="324">
<input type="text" name="antal5" value="0">
<input type="text" name="antal6" value="0">
<input type="submit" name="submit" value="send">
</form>

<%

if request.servervariables("request_method") = "POST" then

dim firma, lev, postnr, by, telefon
dim item, tal
dim vin(45)
dim bestilling
dim i
dim body

firma = request.form("firmav")
lev = request.form("leveringsadresse")
postnr = request.form("postnr")
by = request.form("by")
telefon = request.form("telefon")


for each item in request.form
    if instr(item, "antal") = 1 then
        tal = CInt(replace(item, "antal", ""))
        vin(tal) = request.form(item)
    end if
next

bestilling = ""
bestilling = bestilling & "Bestilling:" & "<br>" & vbCrLf

for i = lbound(vin) to ubound(vin)
    if vin(i) <> 0 then bestilling = bestilling & "Vin" & i & ": " & vin(i) & "<br>" & vbCrLf
next

body = ""
body = body & firma & "<br>" & vbCrLf
body = body & lev & "<br>" & vbCrLf
body = body & postnr & "<br>" & vbCrLf
body = body & by & "<br>" & vbCrLf
body = body & telefon & "<br>"
body = body & vbCrLf & "<br>" & vbCrLf & "<br>" & vbCrLf
body = body & bestilling & "<br>" & vbCrLf


response.write body '  test-udfskrift -- denne skiftes ud med Mail-delen
end if

%>

Jeg ved ikke hvordan du bruger "samletantal og total", så det har jeg ikke med..

Ser helt perfekt ud så vidt jeg lige kan se :)
Mine filer er dog delt op i 2: online.asp og send.asp - men det har vel ikke noget indflydelse!!?? Eller hvad?
Men hvordan smider jeg det ind i min Jmail kode?

<%
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "***********"
msg.FromName = "**************"
msg.AddRecipient "*********"
msg.Subject = "Ny bestilling"
msg.Body =

if request.servervariables("request_method") = "POST" then

dim firma, lev, postnr, by, telefon
dim item, tal
dim vin(45)
dim bestilling
dim i
dim body

firma = request.form("firmav")
lev = request.form("leveringsadresse")
postnr = request.form("postnr")
by = request.form("by")
telefon = request.form("telefon")


for each item in request.form
    if instr(item, "antal") = 1 then
        tal = CInt(replace(item, "antal", ""))
        vin(tal) = request.form(item)
    end if
next

bestilling = ""
bestilling = bestilling & "Bestilling:" & "<br>" & vbCrLf

for i = lbound(vin) to ubound(vin)
    if vin(i) <> 0 then bestilling = bestilling & "Vin" & i & ": " & vin(i) & "<br>" & vbCrLf
next

body = ""
body = body & firma & "<br>" & vbCrLf
body = body & lev & "<br>" & vbCrLf
body = body & postnr & "<br>" & vbCrLf
body = body & by & "<br>" & vbCrLf
body = body & telefon & "<br>"
body = body & vbCrLf & "<br>" & vbCrLf & "<br>" & vbCrLf
body = body & bestilling & "<br>" & vbCrLf


response.write body '  test-udfskrift -- denne skiftes ud med Mail-delen
end if



if not msg.Send("pasmtp.tele.dk") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Bestillingen er korrekt afsendt, tak for din ordre!.<br><br>Vi vil hurtigst muligt ekspedere din ordre.<br><br><b>Luk vinduet ned for at komme tilbage til hovedmenuen!<b>"
end if
%>

Sådan:

if request.servervariables("request_method") = "POST" then

dim firma, lev, postnr, by, telefon
dim item, tal
dim vin(45)
dim bestilling
dim i
dim body

firma = request.form("firmav")
lev = request.form("leveringsadresse")
postnr = request.form("postnr")
by = request.form("by")
telefon = request.form("telefon")


for each item in request.form
    if instr(item, "antal") = 1 then
        tal = CInt(replace(item, "antal", ""))
        vin(tal) = request.form(item)
    end if
next

bestilling = ""
bestilling = bestilling & "Bestilling:" & "<br>" & vbCrLf

for i = lbound(vin) to ubound(vin)
    if vin(i) <> 0 then bestilling = bestilling & "Vin" & i & ": " & vin(i) & "<br>" & vbCrLf
next

body = ""
body = body & firma & "<br>" & vbCrLf
body = body & lev & "<br>" & vbCrLf
body = body & postnr & "<br>" & vbCrLf
body = body & by & "<br>" & vbCrLf
body = body & telefon & "<br>"
body = body & vbCrLf & "<br>" & vbCrLf & "<br>" & vbCrLf
body = body & bestilling & "<br>" & vbCrLf

set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "***********"
msg.FromName = "**************"
msg.AddRecipient "*********"
msg.Subject = "Ny bestilling"
msg.Body = body


if not msg.Send("pasmtp.tele.dk") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Bestillingen er korrekt afsendt, tak for din ordre!.<br><br>Vi vil hurtigst muligt ekspedere din ordre.<br><br><b>Luk vinduet ned for at komme tilbage til hovedmenuen!<b>"
end if


end if ' Afslutningen på "POST"-IF-sætningen

Koden i 31/01-2007 21:12:17 er koden der danner teksten i mailen, og sender den..

Jeg går ud fra, at den kode skal i "send.asp".. :-)

Formen har du så garanteret i "online.asp", som har action="send.asp" i FORM-tag'et..

PS: Husk at bruge method="POST" i din form! :-)