<%@ Language=VBScript %> <% Option Explicit Response.Expires = 0 Response.AddHeader "Pragma", "No-Cache" Dim Name,Address,EMail,Company,sMatter,strErrorMsg,bSubmit Name= "" Address= "" EMail= "" Company= "" strErrorMsg = "" bSubmit = False Name=Request.Form("TextName") Address=Request.Form("TextAddress") EMail=Request.Form("TextEMail") Company=Request.Form("TextCompany") sMatter = Name & vbNewLine & Address & vbNewLine & Company & vbNewLine & EMail If Name <> "" And Address <> "" And EMail <> "" And Company <> "" Then Dim oCDO On Error Resume Next Set oCDO = Server.CreateObject("CDONTS.NewMail") oCDO.To = "eswool@emirates.net.ae" oCDO.From = EMail oCDO.Cc = "" oCDO.Subject = "Id/Password Request" oCDO.Body = sMatter oCDO.Send Set oCDo = Nothing bSubmit = True End If %>

<% If bSubmit=True Then %>

Request Form

Dear Customer,

Your Request has been send to ESW. After verification,

the User Name and Password will be sent to your email

within one working day. Thank You.

<%Else%>

If you have a user name and password please Log In here.

If you do not have a user name and password please fill the

request form below.

User Name/Password Request Form
Please fill the request form completely.
Name:
Company:
Address:
EMail:

<% End If %>