<% 'Contact Us Constanta const ContactUs = 1 'Event Constanta const GeneralEvents = 1 'Globally define certain site metrics,such as its name and domain const g_Sitename="Frans Putratex" const g_DomainName="www.putratex.com" const g_ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=weddingku2002;Password=weddingku2002; Initial Catalog=kkg2;Data Source=PANDAWA2" 'const g_DomainName="comfy/putratex" 'const g_ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=mvc.234; Initial Catalog=weddingkudb;Data Source=cameo" Dim m_visit 'Visit - this function returns an instance of the Visit back to the caller. 'If one doesn't exist, it will create one... Function Visit ' do we have one? If IsEmpty(m_visit) Then 'Create an instance of a Visit Object... Set m_visit = Server.CreateObject("MVCBridal2.Bridal") ' this connection using Native Provider (DSNLess conn) m_visit.Configure g_sitename, g_domainname, g_ConnectionString End If Set Visit = m_visit End Function %> <% if request("action") <> "" then dim message, country, verify message = "" message = "Dear," & vbcrlf message = message & "At " & now() & " someone fill out the contact us form at http://www.putratex.com. Below are the details : " & vbcrlf & vbcrlf message = message & "CONTACT DETAILS : " & vbcrlf & vbcrlf message = message & "========================================================== " & vbcrlf message = message & "Name : " & request("txtname") & vbcrlf message = message & "Position : " & request("txtposition") & vbcrlf message = message & "Company Name : " & request("txtcompany") & vbcrlf message = message & "Town/City : " & request("txttown") & vbcrlf message = message & "Country : " & request("txtcountry") & vbcrlf message = message & "Phone Number : " & request("txtphone") & vbcrlf message = message & "Email : " & request("txtemail") & vbcrlf message = message & "Fax No : " & request("txtfax") & vbcrlf message = message & "Enquiry : " & request("textarea") & vbcrlf if request("contact1") <> "" then message = message & ("Preferred method of contact :") & request("contact1") & vbcrlf & vbcrlf end if if request("contact2") <> "" then message = message & ("Preferred method of contact :") & request("contact2") & vbcrlf & vbcrlf end if if request("contact3") <> "" then message = message & ("Preferred method of contact :") & request("contact3") & vbcrlf & vbcrlf end if message = message & "Thank You" message = message & "========================================================== " & vbcrlf verify = Visit.FireandForget.SendTextEmailNow (request("txtemail"), request("textname"), "contact@putratex.com", "contact@putratex.com" , "contact us form", message, "safe-entry.net") verify = Visit.FireandForget.SendTextEmailNow (request("txtemail"), request("textname"), "tono.raharja@menaravisi.net", "tono.raharja@menaravisi.net" , "contact us form", message, "safe-entry.net") end if %> Putratex.com - Texturing Your Life
 
">
 
" %> <% else %> CONTACT US
<% if request("action") <> "" then response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "


" response.write "Thank you for your interest with us. We assure you that we have received your valuable information filled in the previous form.

We shall revert back to you soon with your requested information.

" response.write "


" 'response.write "" response.write "
" response.write "
Name:
Position:
Company Name:
Town/City:
Country:
E-mail:
   
Enquiry:  
 
  Preferred method of contact:
 
 
  <% end if %>  
 

OFFICE:
JL. DR. SUSILO RAYA C5
GROGOL
JAKARTA 11450
INDONESIA

Tel:

+62 21 5666751/753

 

+62 21 5681109-10

Fax:

+62 21 5602625

E-mail:

contactus@putratex.com

FACTORY:
Jl. CIKANDE KOPO
DESA BANJARSARI - KABUPATEN SERANG
WEST JAVA 42186
INDONESIA

Tel:

+62 254 401089(HUNTING)

Fax:

+62 254 401801, 401802

Copyright 2003 Frans Putratex. All Rights Reserved.
By Menaravisi