Form spm: kun medsende udfyldte inputfelter

ps. Siden har ændret adresse til :
http://www.landkokkenet.dk/bestilfrokost.asp?id=bestilling :-)

I din database skal du bare sætte dine felter til "Allow Zero Length"

hvis du klikker på design af et table..

jeg har skam ingen database... :-)
Det hele er "statisk"

Ohh... sorry! Jeg har vist siddet for længe foran skærmen i dag:p

Hvor blev min anden post af? skrev ellers det samme som fastpoint

I dont know :-)

Men min mail kode ser således ud hvis det skulle have interesse:
<%
        '****************** Sender formmail ***************
       
        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        Mailer.FromName = Request.form("navn")
       
        Mailer.FromAddress = "hjemmesiden@landkokkenet.dk"
        Mailer.RemoteHost = "mail.landkokkenet.dk"
       
        Mailer.AddRecipient "Landkøkkenet", "info@landkokkenet.dk"
        Mailer.Subject = "Frokostbestilling : " & Request.form("navn")
        Mailer.BodyText =     "Følgende har bestilt et pakketilbud:" & vbcrlf & vbcrlf &_
                            "Firma        : " & Request.form("navn") & vbcrlf &_
                            "Adresse    : " & Request.form("adresse") & vbcrlf &_
                            "Postnr. By    : " & Request.form("postnrby") & vbcrlf &_
                            "Kontakt    : " & Request.form("kontaktperson") & vbcrlf &_
                            "Telefon    : " & Request.form("telefon") & vbcrlf &_
                            "E-mail    : " & Request.form("email") & vbcrlf &_
                            "Levering    : " & Request.form("dato") & " Kl. " & Request.form("dato")

        Mailer.SendMail 
        set mailer = Nothing
%>

hej

du kan lave en funktion til det som tjekker din form igennem. Det vil sige at du kan lave et gennemløb af samtlige "inputs" på din form:

For Each Field in Request.Form
    If Request.Form(Field) <> "" Then
        Response.Write Request.Form(Field)
    End If
Next

Håber du kan se mulighederne i det. Ellers så skriver du vel bare igen :o)

/hiks

Hej Hiks

Mja, det er nok noget i den retning, jeg skal bruge. Men jeg ville blive helt vildt glad for et en kodestump med ovenstående felter som eksempel. Jeg er ikke asp haj overhovedet... Kan det lade sig gøre?

mvh Fusentasten

hej

det blev sgu lidt mere omstændigt end jeg lige regnede med. Har lavet to funktioner hvor der er en excludeList (de felter som ikke er varer) således at du kan få en pæn opstilling af navne, adresse osv. og så en liste af madvarer som de kommer på din form og med din navngivning:

<%
Function excluded(felt, arrayExclude) 'finder felter der skal med i mailen som ikke er på din excludelist

    For i = LBound(arrayExclude) to UBound(arrayExclude)
        If Instr(1,LCase(felt),LCase(arrayExclude(i))) > 0 then
            excluded = True 'hvis feltet er ekskluderet
            Exit For
        Else
            excluded = False 'hvis feltet ikke er ekskluderet
        End if
    Next

End Function

Function writeBestilling() 'skriver bestillingen

    dim excludeList 'dine forminputs der ikke er bestillingsvarer men postnr, navn osv.

    excludeList = "navn,postnrby,adresse,klokken,telefon,kontaktperson,dato"
    excludeList = Split(excludeList,",")
        For Each Field in Request.Form
            if excluded(Field, excludeList) = False then
                If Len(Request.Form(Field)) > 0 then
                    writeBestilling = writeBestilling & Field & ": " & Request.Form(Field) & " stk." & vbCrlf
                End if
            End if
        Next

End Function

        '****************** Sender formmail ***************
       
        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        Mailer.FromName = Request.form("navn")
       
        Mailer.FromAddress = "hjemmesiden@landkokkenet.dk"
        Mailer.RemoteHost = "mail.landkokkenet.dk"
       
        Mailer.AddRecipient "Landkøkkenet", "info@landkokkenet.dk"
        Mailer.Subject = "Frokostbestilling : " & Request.form("navn")
        Mailer.BodyText =    "Følgende har bestilt et pakketilbud:" & vbcrlf & vbcrlf &_
                            "Firma        : " & Request.form("navn") & vbcrlf &_
                            "Adresse    : " & Request.form("adresse") & vbcrlf &_
                            "Postnr. By    : " & Request.form("postnrby") & vbcrlf &_
                            "Kontakt    : " & Request.form("kontaktperson") & vbcrlf &_
                            "Telefon    : " & Request.form("telefon") & vbcrlf &_
                            "E-mail    : " & Request.form("email") & vbcrlf &_
                            "Levering    : " & Request.form("dato") & " Kl. " & Request.form("dato")
        Mailer.BodyText = Mailer.BodyText & vbCrlf & vbCrlf & "Madbestilling: " & vbCrlf & writeBestilling 'her skriver vi så bestillingen ud!
        Mailer.SendMail 
        set mailer = Nothing

%>

håber du kan bruge det!

/hiks

hej Hiks

Jeg er fuld af beundring for din hjælpsomhed. Jeg vil teste det igennem lige efter at jeg har spist min frokost :-)

Hej Hiks

Den laver en fejl i linie 252 :-(
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BodyText'

/bestilfrokost2.asp, line 253
(Mailer.BodyText = Mailer.BodyText & vbCrlf & vbCrlf & "Madbestilling: " & vbCrlf & writeBestilling 'her skriver vi så bestillingen ud!)

Du kan se siden her med din kode i:
http://www.landkokkenet.dk/bestilfrokost2.asp?id=bestilling

Hvad sker der hvis man bare fjerner

Mailer.BodyText & vbCrlf & vbCrlf &

fra ovenstående? Så ser det nemlig ud til at virke :-)

ok - var heller ikke sikker om man måtte det med bodyteksten... Prøv dette istedet (det ovenstående skal sæføli stadig med!):

        '****************** Sender formmail ***************
        Dim strBody

        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        Mailer.FromName = Request.form("navn")
       
        Mailer.FromAddress = "hjemmesiden@landkokkenet.dk"
        Mailer.RemoteHost = "mail.landkokkenet.dk"
       
        Mailer.AddRecipient "Landkøkkenet", "info@landkokkenet.dk"
        Mailer.Subject = "Frokostbestilling : " & Request.form("navn")
        strBody = "Følgende har bestilt et pakketilbud:" & vbcrlf & vbcrlf &_
                            "Firma        : " & Request.form("navn") & vbcrlf &_
                            "Adresse    : " & Request.form("adresse") & vbcrlf &_
                            "Postnr. By    : " & Request.form("postnrby") & vbcrlf &_
                            "Kontakt    : " & Request.form("kontaktperson") & vbcrlf &_
                            "Telefon    : " & Request.form("telefon") & vbcrlf &_
                            "E-mail    : " & Request.form("email") & vbcrlf &_
                            "Levering    : " & Request.form("dato") & " Kl. " & Request.form("dato")

        strBody = strBody & vbCrlf & vbCrlf & "Madbestilling: " & vbCrlf & writeBestilling 'her skriver vi så bestillingen ud!

        Mailer.BodyText = strBody
        Mailer.SendMail 
        set mailer = Nothing
%>

nåede ikke lige at se din posting - men det lyder jo godt! :o)

Så er du hjemme?

/hiks

Hiks. Her er et link til dig:
http://www.optur.dk/

:-)

hvordan kunne du vide det? Kan du se mig? hehe

takker for det! :o)

God fornøjelse med smørrebrødet!

/hiks