Asie Sendirian Berhad

<% dim todaysDate dim tarikh dim dd,mm,yyyy,newtime dd=day(date) if len(dd)=1 then dd="0" & dd end if mm=month(date) if len(mm)=1 then mm="0" & mm end if yyyy=year(date) 'getting new date newdate = dd & "/" & mm& "/" & yyyy tarikh=newdate 'Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" 'Conn = Conn & Server.MapPath("news2.mdb") & ";" Set db =Server.CreateObject("ADODB.Connection") 'db.open Conn db.open "DSN=db" Set Rs=Server.CreateObject("ADODB.Recordset") If request("submit")<>"" Then Rs.Open "SELECT * FROM regasie ",db,1,3 Rs.Addnew Rs("name")=request("name") Rs("title")=request("title") Rs("pro")=request("pro") Rs("add1")=request("add1") Rs("add2")=request("add2") Rs("post")=request("post") Rs("state")=request("state") Rs("country")=request("country") Rs("ctcp")=request("ctcp") Rs("ctcm")=request("ctcm") Rs("ctcf")=request("ctcf") Rs("ctce")=request("ctce") Rs("type1")=request("type1") Rs("type2")=request("type2") Rs("type3")=request("type3") Rs("type4")=request("type4") Rs("type")=request("type") Rs("knowfrom")=request("knowfrom") Rs("medium")=request("medium") Rs("tarikh")=request("tarikh") Rs.Update Rs.Close End If Rs.Open "SELECT * FROM regasie",db,1,3 %>

REGISTRATION FORM

Riverside Garden City - Parcel K

Yes, I would like to register my interest and be informed on the Tamansari developments
Name
Title*
Profession*
Address*
Postcode
State
Country
Telephone*
Mobile Phone
Fax
E-mail*
Preferred Type	Residential : 1+1 bedroom 2+1 bedroom 3+1 bedroom
	Office Tower
	Retail