<% '*** How to send the results of '*** a form through email using '*** ASP and CDNOTS. '*** Declare your variables Dim BodyToSend, Message '*** Check to see if the SendButton '*** was pressed, and if there is '*** and message to be sent. If not, '*** display the feedback form. If Request.Form("SendButton") <> "Send" or Request.Form("email") = "" Then %> Xdata solutions, inc. Needs Analysis: Tell us how we can help with ERP solutions for Manufactuiring and Distribution companies.

XMAS/400 Prospect Identification
"Fill in as best you can"

Your Name

Title

Organization

Street address

Address (cont.)

City

State/Province

Zip/Postal Code

Work Phone

FAX

E-mail

URL

Decision Making Personnel TITLES

President / CEO

Describe Current
System

Years in Business Annual Sales: Last Year:	This Year:
Projected Growth	Short Term (1-2 yrs): Long Term (5-10 yrs):
Subsidiary
Name Of Parent Company
Number of Locations	SIC Code (S)
Software Budget	Hardware Budget
Purchase Timeframe	Employment Office: Shop:
No. of people using Software No. of Computer Servers	Products and services:
Number Of Locations

Production /Inventory Information: (list Per Cents if mixture)

Distributor: Number of remote warehouses:

Field/Customer site Assembly:

Split Warehouse Shipments/Order:

Machine Shop: Stamping: Machine Builder:

Tool & Die Assemble To Order: Food Process:

Ave. days to Produce: Serial No.s: Lot Ctl:
Levels of B/M: # Rtg Steps:

	Computer Hardware in Place Network Name
PC's	Networked Remote
Midrange /Mainframe	How did you hear about us?
Remote sites Software In Place Accounting Manufacturing Engineering	What is compelling reason for Software?

Transaction Estimations

ACCOUNTING:
Length of time required to close books at Month End
1. How many vendors
2. A/P Vendor invoices / month
3. Number of customers
4. Number of invoices per month
5. Number of transactions (lines) per invoice
MANUFACTURING / WAREHOUSING:
1. How many Item numbers do you (or Should you) have
2. How many manufactured Items
3. How many Stockable Items
4. Number of steps per Routing/Process
5. How many component Items exist per manufactured order
6. How many manufacturing open orders exist
7. How many Warehouses / Manufacturing facilities
8. Field/Customer site Assembly
PURCHASING: (Average)
1. How many open purchase orders
2. How many lines per open P.O.
3. Number of vendors per Item

<% '*** If the SendButton was clicked '*** and there is a message to send, '*** process the email and send it. Else '*** Create the message object. Set Message = CreateObject("CDONTS.NewMail") '*** Set the from, to, and '*** subject fields. Message.From = Request.Form("email") Message.To = "sales@Xdata.com" Message.CC = "sales@Xdata.com" Message.Subject = "Prospect Identification" '*** Add any additional informtion '*** you want to the message text. BodyToSend = Request.Form("comments") & vbcrlf & _ " " & vbCRLF & _ "***Request for information from www.Xdata.com***" & vbcrlf BodyToSend = BodyToSend & " Your Name: " & Request.form("name") & vbCrLf BodyToSend = BodyToSend & " Title: " & Request.form("Title") & vbCrLf BodyToSend = BodyToSend & " Address: " & Request.form("Streetaddress") & vbCrLf BodyToSend = BodyToSend & " Address(cont): " & Request.form("Streetaddress2") & vbCrLf BodyToSend = BodyToSend & " City: " & Request.form("City") & vbCrLf BodyToSend = BodyToSend & " State: " & Request.form("State") & vbCrLf BodyToSend = BodyToSend & " Zip: " & Request.form("zipcode") & vbCrLf BodyToSend = BodyToSend & " Phone: " & Request.form("Workphone") & vbCrLf BodyToSend = BodyToSend & " Fax: " & Request.form("Fax") & vbCrLf BodyToSend = BodyToSend & " Email: " & Request.form("email") & vbCrLf BodyToSend = BodyToSend & " URL: " &Request.form("URL") &vbCrLf '*** Set the altered body text. Message.Body = BodyToSend '*** If there is an error, '*** continue with the script. On Error Resume Next '*** Send the email message. Message.Send '*** If sending the message caused '*** an error, then display the '*** message, else display a '*** success message (or redirect '*** to a different page). If Err.Number = 0 Then Response.Redirect "index.htm" Else Response.Write "Error: " & Err.Description End If '*** Clear out the message variable Set Message = Nothing '*** End of If for checking '*** SendButton and message '*** to send. End If %>

Your Name
Title
Organization
Street address
Address (cont.)
City
State/Province
Zip/Postal Code
Work Phone
FAX
E-mail
URL

XMAS/400 Prospect Identification "Fill in as best you can"

XMAS/400 Prospect Identification
"Fill in as best you can"