(asp) email formulier

[m1ch3lb]

hallo,

ik heb een email formulier wat ik ga gebruiken nu heeft een vriend van mij het proberen te gebruiken en we weten allebei niet veel van asp, dus willen jullie zo vriendelijk zijn aan te geven wat er fout is in deze

code:

ik heb de code weggehaald 
omdat ik antwoord op een 
deel van mijn vraag heb en
zo wordt de layout niet 
langer meer verkracht.

[Verwijderd]

hahaha, grapjas
kan je eerst de code eens tussen [ code ] tags plaatsen (eindtag = [ /code ] )

ten tweede: met HTML zijn we niet veel, dus dat kan je ook wel weglaten.

Ten derde: welke foutmelding krijg je, want dat is wel handig om te weten, plus op welke regel.

bedankt

edit: een plaatje [ img ] de url ervan [ /img ]
(zonder de spaties)

en ik merk dat je hier nieuw bent, dan is het handig als je de algemene FAQ en deze van Programming en Webscripting even doorneemt. Bespaart je veel gezeur achteraf. Welkom

[m1ch3lb]

ik wil het porbleem uitleggen met behulp van een plaatje dus hoe moet ik een plaatje posten???

ik zal ff mijn post editten



het probleem: als ik op verzenden druk dan geeft hij dus deze foutmelding ook al heb je alles ingevuld.

hopelijk is dit uitgebreid genoeg beschreven.


ps: ik zal de FAQ eens doorlezen want ik heb alleen nog maar de algemene doorgelezen

[Verwijderd]

voor plaatje -> zie mijn post hierboven

edit: haal nu eens het grootste deel van die HTML code eruit aub, bvb al die OPTIONs, daar zijn we niets mee.

Bovendien, welke error krijg je? of staat dat in dat plaatje?

en kan je bovendien ook de code van wat spaties voorzien? in de FAQ staat daar wat interessants over (van D2k geloof ik)

[m1ch3lb]

sorry dat ik de code niet kan editten want ik weet niet precies wat ik meot verwijderen omdat er heel veel bij is gekomen wat er oorspronkelijk niet staat.

[Bally]

Ik zal binnenkort een stukje mailen wat wel werkt. heb ik wel eens gemaakt op mijn werk enzo.

[Crazy D]

Op dinsdag 22 januari 2002 19:18 schreef m1ch3lb het volgende:
sorry dat ik de code niet kan editten want ik weet niet precies wat ik meot verwijderen omdat er heel veel bij is gekomen wat er oorspronkelijk niet staat.

Alle "<td>"'s waar <select>, <option>, en </select> in staat.
Dat scheelt minimaal de helft van die lap code

Verder is "hij doet het niet" niet de meest duidelijke omschrijving van een probleem

code:

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.casema.net" ' Specify a valid SMTP server
Mail.From = Email ' Specify sender's address

Mail.AddAddress "[e-mail]"

Staat het betreffende mail component op de server?
Mag je via casema.net gewoon mailen zonder in te loggen oid?
Als bovenstaande wel goed is, probeer het eens met een "From name" die ook casema.net adres is.

[Verwijderd]

ervan uitgaande dat je Persits MailSender werkt op de server is dit een werkend script:

code:

Set Mailer = Server.CreateObject("Persits.MailSender")
    Mailer.Host = "mail.***.com"

    Mailer.FromName   = "Thomas"
    Mailer.From= "[e-mail]"

    Mailer.AddAddress "[e-mail]","Jij"
    
    Mailer.Subject    = "Je bent een klootzak"
    Mailer.Body   = "blaat sorry ik meende het niet"

Mailer.Send

op het eerste gezicht is dit wat er bij jou staat, maar vul eens de gegevens in bij

code:

Mail.From = Email ' Specify sender's address
Mail.FromName = Name ' Specify sender's name

volgens mij is dit wel verplicht...

dus bvb

code:

Mail.From = "[e-mail]" ' Specify sender's address
Mail.FromName = "Ikke!!" ' Specify sender's name

[oZy]

Op dinsdag 22 januari 2002 19:10 schreef m1ch3lb het volgende:
het probleem: als ik op verzenden druk dan geeft hij dus deze foutmelding ook al heb je alles ingevuld.

Je hebt een asp script gedownload maar weet niet hoe het werkt. Je moet namelijk alle velden correct invullen voordat hij begint met het verzenden. Het is geen schande om een prefabricated script te downloaden en gebruiken, maar onthou voortaan dat het 9 van de 10x slechte scripts zijn, deze zit bijv. dom in elkaar. Hoe dan ook, ga eerst stap voor stap door de code heen zodat je de procedure begrijpt, dan pas beslissen of dit aansluit op jouw situatie.

HTH

edit:
note: alle velden correct invullen.

zet anders even de volgende regel na de validatie:
[code]response.write "bName = " & bName & "<br>" & "bEmail = " & bEmail & "<br>" & "bSubject = " & bSubject & "<br>" & "bMessage = " & bMessage & "<br>"[/code]
dit zet je dus voor deze regel:
[code]If bName and bEmail and bSubject and bMessage = True and vTry = "Second" or vTry = "Third" Then[/code]

[m1ch3lb]

In de code staat:

code:

vTry = Request.QueryString("Try")
bValidForm = False
vName = ""
Email = ""
vSubject = ""
vMessage = ""

moet dit niet zijn

code:

vTry = Request.QueryString("Try")
bValidForm = False
vName = ""
vEmail = ""
vSubject = ""
vMessage = ""

dus is de maker niet vergeten de v toe te voegen aan het woord email?

[raptorix]

function sendmail(emailto,emailfrom,subject,body)
Set objMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.BodyFormat = 0
ObjMail.MailFormat = 0
objMail.From = emailfrom
objMail.To = emailto
objMail.Subject = subject
objMail.Body = body
objMail.Send
Set objMail = Nothing
end function

[m1ch3lb]

Nog een vraagje:

code:

Mail.Subject = Subject
Mail.Body = Message

Kan je bij die Mail.Body ook meerdere dingen laten toevoegen?
Bijv.

code:

Mail.Subject = Subject
Mail.Body = Pole 
        Second in qualifying 
        Third in qualifying 
        Fourth in qualifying 
        Fifth in qualifying 
        Sixth in qualifying 
        Racewinner 
        Second 
        Third 
        Fourth 
        Fifth 
        Sixth

[ParaNoiMia]

Op woensdag 23 januari 2002 13:14 schreef m1ch3lb het volgende:
Nog een vraagje:

code:

Mail.Subject = Subject
Mail.Body = Message

Kan je bij die Mail.Body ook meerdere dingen laten toevoegen?
Bijv.

code:

Mail.Subject = Subject
Mail.Body = Pole 
        Second in qualifying 
        Third in qualifying 
        Fourth in qualifying 
        Fifth in qualifying 
        Sixth in qualifying 
        Racewinner 
        Second 
        Third 
        Fourth 
        Fifth 
        Sixth

dim strBody
strBody = "Pole" & vbCrLf
strBody = strBody & "Second in qualifying" & vbCrLf
Mail.Body=strBody

etc.

[rambo-2001]

code:

<%
set mail = server.createobject("cdonts.newmail")
mail.to = request.form ("emailadres")
mail.from = request.form ("afzender")
mail.cc = request.form ("cc")
mail.importance = request.form ("gevoeligheid") 
mail.subject = request.form ("onderwerp")
mail.body = request.form ("bericht") & chr(10) & 
"---------------------------------------------------------" & chr(10) & 
(request.servervariables("remote_addr")) & " is gebruikt om deze e-mail te verzenden." & 
chr(10) & "Deze e-mail is verzonden via de webserver van ..."
mail.send
set mail = nothing
%>

nu als je iets extra's wil toevoegen gewoon de request.form optie gebruiken.
hele uitleg over dit alles staat in het boek : snel leren werken met ASP

edit:

er is ook een andere mogelijkheid en dat is het maken van een txt bestand volgens mij in de mail/query
waar alle mail wordt opgehaald.

[m1ch3lb]

als ik het goed bergijp moet het dus zo:

code:

Mail.Subject = Subject
dim strBody
strBody = "Pole" & vbCrlf
strBody = strBody & "Second in qualifying" & vbCrLf
strBody = strBody & "Third in qualifying" & vbCrLf
strBody = strBody & "Fourth in qualifying" & vbCrLf
strBody = strBody & "Fifth in qualifying" & vbCrLf
strBody = strBody & "Sixth in qualifying" & vbCrLf
strBody = strBody & "Racewinner" & vbCrLf
strBody = strBody & "Second" & vbCrLf
strBody = strBody & "Third" & vbCrLf
strBody = strBody & "Fourth" & vbCrLf
strBody = strBody & "Fifth" & vbCrLf
strBody = strBody & "Sixth" & vbCrLf
Mail.Body = strBody

[ParaNoiMia]

Op woensdag 23 januari 2002 13:25 schreef m1ch3lb het volgende:
als ik het goed bergijp moet het dus zo:

code:

Mail.Subject = Subject
dim strBody
strBody = "Pole" & vbCrlf
strBody = strBody & "Second in qualifying" & vbCrLf
strBody = strBody & "Third in qualifying" & vbCrLf
strBody = strBody & "Fourth in qualifying" & vbCrLf
strBody = strBody & "Fifth in qualifying" & vbCrLf
strBody = strBody & "Sixth in qualifying" & vbCrLf
strBody = strBody & "Racewinner" & vbCrLf
strBody = strBody & "Second" & vbCrLf
strBody = strBody & "Third" & vbCrLf
strBody = strBody & "Fourth" & vbCrLf
strBody = strBody & "Fifth" & vbCrLf
strBody = strBody & "Sixth" & vbCrLf
Mail.Body = strBody

Yep. En als je netjes programmeert zet je die dim bovenaan je functie of je asp pagina.

[m1ch3lb]

ik zal nu opnieuw de code psoten die ik met jullie help heb ge-edit maar willen jullie nu nog ff kijken of er nog een fout in staat???

code:

<%
'Dim variables
Dim vTry, bValidForm
Dim vName, vEmail, vPole, vSecond in qualifying, vThird in qualifying, vFourth in qualifying, vFifth in qualifying, vSixth in qualifying, vRacewinner, vSecond, vThird, vFourth, vFifth, vSixth
Dim bName, bEmail, bPole, bSecond in qualifying, bThird in qualifying, bFourth in qualifying, bFifth in qualifying, bSixth in qualifying, bRacewinner, bSecond, bThird, bFourth, bFifth, bSixth

vTry = Request.QueryString("Try")
bValidForm = False
vName = ""
vEmail = ""
vPole = ""
vSecond in qualifying = ""
vThird in qualifying = ""
vFourth in qualifying = ""
vFifth in qualifying = ""
vSixth in qualifying = ""
vRacewinner = ""
vSecond = ""
vThird = ""
vFourth = ""
vFifth = ""
vSixth = ""


    vName = Request.Form("txtName")
    vEmail = Request.Form("txtEmail")
    vPole = Request.Form("txtPole")
    vSecond in qualifying = Request.Form("txtSecond in qualifying")
    vThird in qualifying = Request.Form("txtThird in qualifying")
    vFourth in qualifying = Request.Form("txtFourth in qualifying")
    vFifth in qualifying = Request.Form("txtFifth in qualifying")
    vSixth in qualifying = Request.Form("txtSixth in qualifying")
    vRacewinner = Request.Form("txtRacewinner")
    vSecond = Request.Form("txtSecond")
    vThird = Request.Form("txtThird")
    vFourth = Request.Form("txtFourth")
    vFifth = Request.Form("txtFifth")
    vSixth = Request.Form("txtSixth")
    



    'Check if E-mail adrress is valid. 
        function isValidEmail(byval vEmail)
        ' very simple email validation function.
            returnVal = false
        if not isEmpty(vEmail) then
            if instr(vEmail, "@") > 0 and instr(vEmail, ".") > 0 then
                returnVal = true
            end if
        end if
        isValidEmail = returnVal
        end function 

    'Check if field is filled with data and if e-mail is correct
    
    if vName = "" then bName = false else bName = true end if
    if isValidEmail(vEmail) then bEmail = true else bEmail = false end if
    if vPole = "" then bPole = false else bpole = true end if
    if vSecond in qualifying = "" then bSecond in qualifying = false else bSecond in qualifying = true end if
    if vThird in qualifying = "" then bThird in qualifying = false else bThird in qualifying = true end if
    if vFourth in qualifying = "" then bFourth in qualifying = false else bFourth in qualifying = true end if
    if vFifth in qualifying = "" then bFifth in qualifying = false else bFifth in qualifying = true end if
    if vSixth in qualifying = "" then bSixth in qualifying = false else bSixth in qualifying = true end if
    if vRacewinner = "" then bRacewinner = false else bRacewinner = true end if
    if vSecond = "" then bSecond = false else bSecond = true end if
    if vThird = "" then bThird = false else bThird = true end if
    if vFourth = "" then bFourth = false else bFourth = true end if
    if vFifth = "" then bFifth = false else bFifth = true end if
    if vSixth = "" then bSixth = false else bSixth = true end if    
    
        
            bValidForm = True
            Name = Request.Form("txtName")
Email = Request.Form("txtEmail")
vPole = Request.Form("txtPole")
vSecond in qualifying = Request.Form("txtSecond in qualifying")
vThird in qualifying = Request.Form("txtThird in qualifying")
vFourth in qualifying = Request.Form("txtFourth in qualifying")
vFifth in qualifying = Request.Form("txtFifth in qualifying")
vSixth in qualifying = Request.Form("txtSixth in qualifying")
vRacewinner = Request.Form("txtRacewinner")
vSecond = Request.Form("txtSecond")
vThird = Request.Form("txtThird")
vFourth = Request.Form("txtFourth")
vFifth = Request.Form("txtFifth")
vSixth = Request.Form("txtSixth")
vPole = Request.Form("txtPole")




Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.casema.net" ' Specify a valid SMTP server
Mail.From = Email ' Specify sender's address
Mail.FromName = Name ' Specify sender's name

Mail.AddAddress "[e-mail]" 
Mail.AddReplyTo Email


Mail.Subject = Subject
dim strBody
strBody = "Pole" & vbCrlf
strBody = strBody & "Second in qualifying" & vbCrLf
strBody = strBody & "Third in qualifying" & vbCrLf
strBody = strBody & "Fourth in qualifying" & vbCrLf
strBody = strBody & "Fifth in qualifying" & vbCrLf
strBody = strBody & "Sixth in qualifying" & vbCrLf
strBody = strBody & "Racewinner" & vbCrLf
strBody = strBody & "Second" & vbCrLf
strBody = strBody & "Third" & vbCrLf
strBody = strBody & "Fourth" & vbCrLf
strBody = strBody & "Fifth" & vbCrLf
strBody = strBody & "Sixth" & vbCrLf
Mail.Body = strBody

On Error Resume Next
Mail.Send
If Err <> 0 Then
   Response.Write "Error encountered: " & Err.Description
End If

Response.Redirect "SendSucces.asp"
        
        Else 
        
        bValidForm = False

        End If 

        If vTry = "" Then 
        vTry = "Second"
        Else 
        vTry = "Third"
        End If 

If Request.QueryString("Try") = "Second" or Request.QueryString("Try") = "" Then
%>  
        

<html>
<head>
<title>FeedbackForm.asp</title>

</head>
<body text="#000000">
<table width="600" border="0" cellspacing="0" cellpadding="0" height="50%">
  <tr> 
    <td width="502" valign="top" align="left"> <br>
    <br>
    <table width="94%" border="0" cellspacing="0" cellpadding="0" align="center">
      <tr> 
        <td> 
        <form name="FeedbackForm" method="post" action="FeedbackForm.asp?Try=<%=vTry%>">
          <table width="99%" border="0" cellspacing="0" cellpadding="0" align="center">
            <% if vTry = "Third" Then %>
            <tr> 
            <td colspan="2" height="30" class="txtGray">Please fill in the 
              <font color="#FF0000">red</font> marked fields. Thank you!</td>
            </tr>
            <% End If %>
            <tr> 
            <td width="33%" height="25"> <span class="txtbold"> 
              <% if bName = False and vTry = "Third" Then response.write "<font color=red>" end if %>
              Your Name 
              <% if bName = False and vTry = "Third" Then response.write "</font>" end if %>
              </span> </td>
            <td width="67%" height="25"> 
              <input type="text" name="txtName" value="<%= vName %>" class="txtField">
            </td>
            </tr>
            <tr> 
            <td width="33%" height="25"><span class="txtbold"> 
              <% if bEmail = False and vTry = "Third" Then response.write "<font color=red>" end if %>
              Your E-mail 
              <% if bEmail = False and vTry = "Third" Then response.write "</font>" end if %>
              </span> </td>
            <td width="67%" height="25"> 
              <input type="text" name="txtEmail" value="<%= vEmail %>" class="txtField">
            </td>
            </tr>
            <tr> 
            <td width="33%" height="25"> <span class="txtbold"> 
              <% if bSubject = False and vTry = "Third" Then response.write "<font color=red>" end if %>
              Subject 
              <% if bSubject = False and vTry = "Third" Then response.write "</font>" end if %>
              </span> </td>
            <td width="67%" height="25"> 
              <input type="text" name="txtSubject" value="<%= vSubject %>" class="txtField">
            </td>
            </tr>
            <tr> 
            <td width="33%" align="left" valign="middle" height="25"><span class="txtbold"> 
              <% if bMessage = False and vTry = "Third" Then response.write "<font color=red>" end if %>
              Message 
              <% if bMessage = False and vTry = "Third" Then response.write "</font>" end if %>
              </span> </td>
            <td width="67%"> 
              <textarea name="txtMessage" cols="50" rows="8" class="txtField"><%= vMessage %></textarea>
            </td>
            </tr>
            <tr> 
            <td width="33%">&nbsp;</td>
            <td width="67%"> <br>
              <input type="submit" name="Submit" value="Submit" class="btn">
              <input type="reset" name="Submit2" value="Reset" class="btn">
            </td>
            </tr>
          </table>
        </form>
        </td>
      </tr>
    </table>
    <br>
    <br>
    <br>
    <p> </p>
    <br>
    <p>&nbsp; </p>
    </td>
  </tr>
</table>
</body>
</html>

<%
Else 

If Request.QueryString ("Try") = "Third" Then
response.redirect "WrongData.asp"

End If
End If





%>

[Verwijderd]

krijg je nog een error dan? zoja, welke? verstuurt hij de mail goed, dan is er toch geen probleem?

edit:

code:

    vName = Request.Form("txtName")
    vEmail = Request.Form("txtEmail")
    vPole = Request.Form("txtPole")
    vSecond in qualifying = Request.Form("txtSecond in qualifying")
    vThird in qualifying = Request.Form("txtThird in qualifying")
    vFourth in qualifying = Request.Form("txtFourth in qualifying")
    vFifth in qualifying = Request.Form("txtFifth in qualifying")
    vSixth in qualifying = Request.Form("txtSixth in qualifying")
    vRacewinner = Request.Form("txtRacewinner")
    vSecond = Request.Form("txtSecond")
    vThird = Request.Form("txtThird")
    vFourth = Request.Form("txtFourth")
    vFifth = Request.Form("txtFifth")
    vSixth = Request.Form("txtSixth")

dit stuk staat ongeveer twee keer in je code, bovendien is de tweede keer Email en de eerste vEmail. Beetje zinloos.

edit2: je hebt oa een variabele "vFourth in qualifying" maar je kan echt geen variabelen met spaties hebben hoor! gebruik eventueel underscores, hoewel zo'n lange namen niet echt netjes zijn.

Zet trouwens eens de "friendly error messages" af in IE, dan zie je wat er fout is...