Rizwan International (Pvt) Ltd.

kkk <%If Request.Form="" Then %>

Head Office:

Plot # 62, Sector 27, Korangi Industrial Area, Karachi Pakistan.

Phones:

92-021-5077028 - 30

Fax No:

92-021-5057416

E-mail:

marketing@rizwan.com.pk

Factories Adresses:

Plot No. 189, Sector 27, Korangi Industrial Area, Karachi-74900

Plot No. 136, Sector 27, Korangi Industrial Area, Karachi-74900

or send us your queries.

Name:

Email:

Subject:

Feed Back:

Home

Designed and Developed by IFATECH

<% Else 'receive the form values Dim sName, sEmail, sAddress, sComments sName=Request.Form("Name") sEmail=Request.Form("EMail") sAddress=Request.Form("address") sComments=Request.Form("comments") ' create the HTML formatted email text Dim sEmailText sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Email" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "Feedback message from: " & sName & "
" sEmailText = sEmailText & "Message:" & sComments & "
" sEmailText = sEmailText & "Address:" & sAddress & "
" sEmailText = sEmailText & "Date & Time:" & Now() & "
" sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR") sEmailText = sEmailText & "" sEmailText = sEmailText & "" sEmailText = sEmailText & "" 'create the mail object Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From=sEmail 'This is the email of the feedback sender NewMailObj.To = "marketing@rizwan.com.pk" 'change to your address NewMailObj.Subject = "Feedback From Rizwan Internalional" NewMailObj.Body = sEmailText 'you need to add these 2 lines for the mail to be sent in HTML format 'remove them and the email will be sent in Text format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send Set NewMailObj=Nothing Response.write "

Thank you for sending your feedback.
" Response.write "We will get back to you if necessary.

" End If %>