% Name = request.Form("Name") Email = request.Form("Email") Phone = request.Form("Phone") Address = request.Form("Address") Address2 = request.Form("Address2") City = request.Form("City") State = request.Form("State") ZipCode = request.Form("ZipCode") Comment = request.Form("Comment") Company = request.Form("Company") if (Name <> "") AND (Email <> "") then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "contact@ibliaisons.com" objCDO.To = "contact@ibliaisons.com" 'objCDO.CC = "c_ponce66@yahoo.com" 'objCDO.BCC = "sistemas@escoiplan.com" objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Subject = "IBLiaisons From "&State &" " & City Body = Body & "
| " Body = Body & " | |
| "
Body = Body & " Company: | "
Body = Body & " "& Company &" | " Body = Body & "
| "
Body = Body & " Name: | "
Body = Body & " "& Name &" | " Body = Body & "
| "
Body = Body & " Phone: | "
Body = Body & " "& Phone &" | " Body = Body & "
| "
Body = Body & " Email: | "
Body = Body & " "& Email & " | " Body = Body & "
| "
Body = Body & " Address: | "
Body = Body & " "& Address & " "& Address2 & " | "
Body = Body & "
| "
Body = Body & " City: | "
Body = Body & " "& City &" | " Body = Body & "
| "
Body = Body & " State: | "
Body = Body & " "&State &" | " Body = Body & "
| "
Body = Body & " Zip Code: | "
Body = Body & " " & ZipCode & " | " Body = Body & "
| "
Body = Body & " Comment: | "
Body = Body & " " & Comment & " | " Body = Body & "
| " Body = Body & " | |
| " Body = Body & " | |
| " Body = Body & " | |
| " Body = Body & " | |