Vraag : Vreemd gedrag CDONTS

Het eerste deel van het manuscript stuurt een e-mail aan webmaster, stuurt het tweede deel een e-mail aan de persoon die de vorm invulde als zij een e-mail address.

If gaven ik de e-mailadresspatie verlaat, krijg ik het eerste deel van het manuscript die me een e-mail verzenden aangezien dit om altijd wordt ontworpen worden verzonden. Als ik een e-mailadres invul, krijg ik het tweede deel die verzenden me een e-mail maar krijg ik niets van het eerste deel, wanneer het eerste deel ben verondersteld altijd aan send.

Is het omdat beide e-mail aan het zelfde adres? zijn? dat houdt geen aan me. steek
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Dim objNewMail, objNewMail1
	Reeks objCDOMail = Server.CreateObject („CDONTS.NewMail“)
		objCDOMail.To = „[email protected]“
		objCDOMail.From = „[email protected]“
		txtBody = „iemand heeft u van uw plaats“ & VbCrLf & VbCrLf & „Naam gecontacteerd: “ & naam & VbCrLf & VbCrLf & „Telefoon: “ & telefoon & VbCrLf & VbCrLf & „E-mail: “ & e-mail & VbCrLf de beschrijving & van VbCrLf & „van het Geval: “ & descrip 
    objCDOMail.Subject = „iemand heeft u van uw website“ gecontacteerd
		objCDOMail.Body = txtBody
		objCDOMail.Send
		Reeks objCDOMail = niets		
	Als e-mail <> "" toen
		Vastgesteld objCDOMail1 = Server.CreateObject („CDONTS.NewMail1“)
		objCDOMail1.To = e-mail
		objCDOMail1.From = „[email protected]“
		txtBody = „dit is een geautomatiseerde reactie. Gelieve te antwoorden niet ........ uw bericht heeft ontvangen. Dank u voor het vertellen ons over uw geval. Wij zullen proberen om u te contacteren gebruikend de informatie u hebt verstrekt. U kunt ons bij spatie 1-888 tijdens normale kantooruren ook bereiken of u kunt een bericht verlaten nadat kantooruren“ & VbCrLf & VbCrLf & VbCrLf & VbCrLf & „u de volgende informatie heeft voorgelegd: “ & VbCrLf & VbCrLf & „Naam: “ & naam & VbCrLf & VbCrLf & „Telefoon: “ & telefoon & VbCrLf & VbCrLf & „E-mail: “ & e-mail & VbCrLf de beschrijving & van VbCrLf & „van het Geval: “ & descrip 
    objCDOMail1.Subject = „Uw voorlegging is ontvangen“
		objCDOMail1.Body = txtBody
		objCDOMail1.Send
		Vastgesteld objCDOMail1 = niets
	Eind als

Antwoord : Vreemd gedrag CDONTS

Hallo,

  Hebt u typo online 11 - d.w.z. „CDONTS.NewMail1“ eerder dan „CDONTS.NewMail“
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Schemerige objNewMail, objNewMail1
	Reeks objCDOMail = Server.CreateObject („CDONTS.NewMail“)
		objCDOMail.To = „[email protected]“
		objCDOMail.From = „[email protected]“
		txtBody = „iemand heeft u van uw plaats“ & VbCrLf & VbCrLf & „Naam gecontacteerd: “ & naam & VbCrLf & VbCrLf & „Telefoon: “ & telefoon & VbCrLf & VbCrLf & „E-mail: “ & e-mail & VbCrLf de beschrijving & van VbCrLf & „van het Geval: “ & descrip 
    objCDOMail.Subject = „iemand heeft u van uw website“ gecontacteerd
		objCDOMail.Body = txtBody
		objCDOMail.Send
		Reeks objCDOMail = niets		
	Als e-mail <> "" toen
		Vastgesteld objCDOMail1 = Server.CreateObject („CDONTS.NewMail“)
		objCDOMail1.To = e-mail
		objCDOMail1.From = „[email protected]“
		txtBody = „dit is een geautomatiseerde reactie. Gelieve te antwoorden niet ........ uw bericht heeft ontvangen. Dank u voor het vertellen ons over uw geval. Wij zullen proberen om u te contacteren gebruikend de informatie u hebt verstrekt. U kunt ons bij spatie 1-888 tijdens normale kantooruren ook bereiken of u kunt een bericht verlaten nadat kantooruren“ & VbCrLf & VbCrLf & VbCrLf & VbCrLf & „u de volgende informatie heeft voorgelegd: “ & VbCrLf & VbCrLf & „Naam: “ & naam & VbCrLf & VbCrLf & „Telefoon: “ & telefoon & VbCrLf & VbCrLf & „E-mail: “ & e-mail & VbCrLf de beschrijving & van VbCrLf & „van het Geval: “ & descrip 
    objCDOMail1.Subject = „Uw voorlegging is ontvangen“
		objCDOMail1.Body = txtBody
		objCDOMail1.Send
		Vastgesteld objCDOMail1 = niets
	Eind als
Andere oplossingen  
 
programming4us programming4us