Hello! <BR><BR>I am having some problems with my code. It works almost perfectly, the only problem is that when sending the e-mail, it only sends the Message and not all fields. I need for this to send all fields in the form in the e-mail. Sorry for this very easy question but I am pulling my hair out here. It only sends one field, the "Message" field in the e-mail when it sends it. I guess the thing I have to fix lies somewhere in the lines of Mail.Body = Message and thereabout?<BR><BR>Please anyone help me out on this one! thanks!<BR><BR>
&#060;%<BR>&#039;Dim variables<BR>Dim vTry, bValidForm<BR>Dim vName, vEmail, vSubject, vName2, vMessage<BR>Dim bName, bEmail, bSubject, bName2, bMessage<BR><BR>vTry = Request.QueryString("Try")<BR>bValidForm = False<BR>vName = ""<BR>Email = ""<BR>vSubject = ""<BR>vName2 = ""<BR>vMessage = ""<BR><BR><BR>	vName = Request.Form("txtName")<BR>	vEmail = Request.Form("txtEmail")<BR>	vSubject = Request.Form("txtSubject")<BR>    vName2 = Request.Form("txtName2")<BR>	vMessage = Request.Form("txtMessage")<BR><BR>	&#039;Check if E-mail adrress is valid. <BR>		function isValidEmail(byval vEmail)<BR>		&#039; very simple email validation function.<BR>			returnVal = false<BR>		if not isEmpty(vEmail) then<BR>			if instr(vEmail, "@") &#062; 0 and instr(vEmail, ".") &#062; 0 then<BR>				returnVal = true<BR>			end if<BR>		end if<BR>		isValidEmail = returnVal<BR>		end function <BR><BR>	&#039;Check if field is filled with data and if e-mail is correct<BR>	<BR>	if vName = "" then bName = false else bName = true end if<BR>	if isValidEmail(vEmail) then bEmail = true else bEmail = false end if<BR>	if vSubject = "" then bSubject = false else bSubject = true end if<BR>    if vName2 = "" then bName2 = false else bName2 = true end if<BR>	if vMessage = "" then bMessage = false else bMessage = true end if<BR>	<BR>If bName and bEmail and bSubject and bMessage = True and vTry = "Second" or vTry = "Third" Then<BR>		<BR>bValidForm = True<BR>Name = Request.Form("txtName")<BR>Email = Request.Form("txtEmail")<BR>Subject = Request.Form("txtSubject")<BR>Name2 = Request.Form("txtName2")<BR>Message = Request.Form("txtMessage")<BR><BR><BR><BR>Set Mail = Server.CreateObject("Persits.MailSender")<BR>Mail.Host = "mail.mymail.com" &#039; Specify a valid SMTP server<BR>Mail.From = Email &#039; Specify sender&#039;s address<BR>Mail.FromName = Name &#039; Specify sender&#039;s name<BR><BR>Mail.AddAddress "mymail@mymail.com" <BR>Mail.AddReplyTo Email<BR><BR><BR>Mail.Subject = Subject<BR>Mail.Body = Message<BR><BR><BR>On Error Resume Next<BR>Mail.Send<BR>If Err &#060;&#062; 0 Then<BR>   Response.Write "Error encountered: " & Err.Description<BR>End If<BR><BR>Response.Redirect "SendSucces.asp"<BR>		<BR>Else <BR>		<BR>bValidForm = False<BR><BR>End If <BR><BR>If vTry = "" Then <BR>vTry = "Second"<BR>Else <BR>vTry = "Third"<BR>End If <BR><BR>If Request.QueryString("Try") = "Second" or Request.QueryString("Try") = "" Then<BR>%&#062;