Koleksi Batik Kelantan: Selamat Datang

Selamat datang ke blog ebatik....Kami menyediakan pelbagai pilihan koleksi batik dan tudung bawal corak terbaru dari Kelantan.

Dalam blog ini kami paparkan contoh corak dan warna batik dan tudung bawal. Anda boleh membuat tempahan kepada kami sekiranya anda berminat.

Penghantaran adalah percuma ke seluruh Semenanjung Malaysia, Sabah, Sarawak, Singapura dan Brunei.

Harga kami adalah terendah dari harga pasaran. Kami akan memberikan harga 5% lebih rendah dengan haga pasaran kerana kami membeli tudung dan batik secara borong.

Sekiranya anda tidak berpuas hati dengan belian anda, anda boleh memulangkan semula barangan dalam masa 14 hari mendapatkan semula wang anda (kos penghantaran tidak ditanggung) atau pun menukarkan dengan corak yang lain.(Kos penghantaran akan dikenakan untuk penghantaran kedua)

Selamat melayari blog ini untuk melihat sampel-sampel corak tudung dan batik yang sedia untuk tempahan.

Hubungi kami untuk tempahan:-
En. Adi (012-2582075)
Pn. Ina (012-3822141)

About

This is the ideal place to describe the site, edit it sees "Template", "Edit html" and looks the same text. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur.

Contact Me

<%@ language="VBSCRIPT" %> <% option % explicit> <% % response.buffer="True"> <% form entered that used the youremail="wmrusmadi@gmail.com" contactus_email accordingly smtpserver="smtp.gmail.com" isvalidemail(email) contactus_subject ) (email smtpserver,youremail,yourpassword,contactus_name,contactus_email dim contactus_name ) contactus_subject="request(" is a contactus_subject,contactus_body,action,iserror in < ) action="request(" contactus_body if post contactus_name="request(" 3 dim values variables dim check email ) contactus_email="request(" yourpassword="secret9101" action from format function grabbing variables edit to these valid validflag="False " ) contactus_body="request(" validflag,badflag,atcount,atloop,specialflag,username,domainname,atchr,tary1 declaring> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Contact Us Form ( Powered By www.CJWSoft.com ) <% if color="red" action="SendEmail Then ' Here we quickly check/validate the information entered ' These checks could easily be improved to look for more things If" isvalidemail(contactus_email)="False" iserror="Yes Response.Write(You did not enter a valid email address.
") End If If ContactUs_Name = "" Then IsError = "Yes" Response.Write("You did not enter a Name.
") End If If ContactUs_Subject = "" Then IsError = "Yes" Response.Write("You did not enter a Subject.
") End If If ContactUs_Body = "" Then IsError = "Yes" Response.Write("You did not enter a Body.
") End If End If ' If there were no input errors and the action of the form is "SendEMail" we send the email off If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody ' Here we create a nice looking html body for the email strBody = strBody & "Contact Us Form submitted at " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" strBody = strBody & "Name" & " : " & " " & Replace(ContactUs_Name,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(ContactUs_Email,vbCr,"
") & "
" strBody = strBody & "Subject" & " : " & " " & Replace(ContactUs_Subject,vbCr,"
") & "
" strBody = strBody & "
" & Replace(ContactUs_Body,vbCr,"
") & "
" strBody = strBody & "" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = youremail ObjSendMail.Subject = ContactUs_Subject ObjSendMail.From = ContactUs_Email ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing ' change the success messages below to say or do whatever you like ' you could do a response.redirect or offer a hyperlink somewhere.. etc etc %> Your message as seen below has been sent. Thank You !!

<% ) replace(contactus_body,vbcr,="%"
> <% else %> <% % end if>

If you like this contact form code please check out some of our applications such as ASPProtect and ASPBanner.

Name:
Email:
Subject:
Message:	<% = contactus_body %></%>

Koleksi Batik Kelantan

Selamat Datang

0 comments:

About

Contact Me

Etiquetas