<% dim msg msg = "" if Request.QueryString("Send") = "Y" then Dim MyCDONTSMail Dim MsgBody MsgBody = "First Name: " & request.form("firstname") & "
" MsgBody = MsgBody & "Last Name: " & request.form("Lastname") & "
" MsgBody = MsgBody & "Company: " & request.form("Company") & "
" MsgBody = MsgBody & "Title: " & request.form("Title") & "
" MsgBody = MsgBody & "Telephone: " & request.form("Telephone") & "
" MsgBody = MsgBody &"Comment: " & request.form("comment") & "
" Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.BodyFormat = 0 MyCDONTSMail.MailFormat = 0 MyCDONTSMail.From = request.form("Email") MyCDONTSMail.To = "iraqcosit@yahoo.com" MyCDONTSMail.Subject = "Inquiry form " MyCDONTSMail.Body = MsgBody MyCDONTSMail.Send Set MyCDONTSMail = Nothing msg = "Thank you for submitting your inquiry" end if %> COSIT - About COSIT - COSIT Successes
 
Cosit employee entering data


 
   

arrow Contact information
arrow Inquiry form

Inquiry Form
  <%=msg%>
First Name:*
Last Name:*
Company:
Title:
Telephone:
E-mail*:
Comments:

                                    

 

 

 

.