<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/panlanka.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_panlanka_STRING
  MM_editTable = "srilanka"
  MM_editRedirectUrl = "mailer.htm"
  MM_fieldsStr  = "x|value|Name|value|Total Number of people traveling (including you) Adults :|value|Children (Under 12) :|value|Age of children :|value|Nationality|value|Contact_Address:|value|Country :|value|Contact Number :|value|Fax :|value|E-Mail Address:_req|value|Dates of Travel (yy/mm/dd) From ::|value|Dates of Travel (yy/mm/dd) To :|value|Language_guide|value|Type of accommodation :|value|Meal Plan on Tour :|value|Meal Plan on Beach :|value|Wedding|value|Anniversary|value|Honeymoon|value|Birthday|value|Other Event (Please specify)|value|Other_Events|value|Cultural sites|value|Beach|value|Wild Life|value|Trekking|value|Bird Watching|value|Diving / Snorkelling|value|River rafting|value|Other Water Sports|value|Golf|value|Gambling|value|Night Clubs|value|Shopping|value|Other activity|value|Other_Activity_specify|value|Budget per person (excluding airfare):|value|Comments|value|News_letter|value"
  MM_columnsStr = "date_enterd|',none,NULL|Name|',none,''|Adults|',none,''|Children|',none,''|Age|',none,''|Nationality|',none,''|Address|',none,''|Country|',none,''|Telephone|',none,''|Fax|',none,''|Email|',none,''|Date_from|',none,''|Date_to|',none,''|Language_Guide|',none,''|Type_of_accomodation|',none,''|Meal_Plan_on_tour|',none,''|Meal_Plan_on_beach|',none,''|Celebrating_wedding|none,Yes,No|Celebrating_anniversary|none,Yes,No|Celebrating_honeymoon|none,Yes,No|Celebrating_birthday|none,Yes,No|Celebrating_other|none,Yes,No|Celebrating_other_specity|',none,''|Interest_cultural|none,Yes,No|Interest_beach|none,Yes,No|Interest_wildlife|none,Yes,No|Interest_trekking|none,Yes,No|Interest_bird_watching|none,Yes,No|Interest_diving|none,Yes,No|Interest_river_rafting|none,Yes,No|Interest_other_water|none,Yes,No|Interest_golf|none,Yes,No|Interest_gambling|none,Yes,No|Interest_nightclubs|none,Yes,No|Shopping|none,Yes,No|Interest_other_activity|none,Yes,No|Interest_other_activity_specify|',none,''|Budget_per_person|',none,''|Comments|',none,''|Want_to_revceive_email|none,Yes,No"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    'If (MM_editRedirectUrl <> "") Then
     ' Response.Redirect(MM_editRedirectUrl)
    'End If
Server.Transfer "mailer.htm"

  End If

End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>Design Your Own Holiday Package</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="GENERATOR" CONTENT="Mozilla/3.01Gold (Win95; I) [Netscape]">
<META NAME="Author" CONTENT="The Cyber cafe (Pvt) Ltd.">
<script language="JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function YY_checkform() { //v4.03
  var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;
  var myForm = MM_findObj(args[0]);
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){var myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='password'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        if (!(myV/1)||myV<args[i+1].substring(0,args[i+1].indexOf('_'))/1||myV > args[i+1].substring(args[i+1].indexOf('_')+1)/1){addErr=true}
      }
      if ((myV.length>0)&&(args[i+2]==2)&&!myV.match("^[\\w\\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$")){addErr=true}// email
      if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myD=''; myM=''; myY=''; myYY=0; myDot=true;
        for(var j=0;j<args[i+1].length;j++){
          var myAt = args[i+1].charAt(j);
          if(myAt=='D')myD=myD.concat(myObj.value.charAt(j));
          if(myAt=='M')myM=myM.concat(myObj.value.charAt(j));
          if(myAt=='Y'){myY=myY.concat(myObj.value.charAt(j)); myYY++}
          if(myAt=='-'&&myObj.value.charAt(j)!='-')myDot=false;
          if(myAt=='.'&&myObj.value.charAt(j)!='.')myDot=false;
          if(myAt=='/'&&myObj.value.charAt(j)!='/')myDot=false;
        }
        if(myD/1<1||myD/1>31||myM/1<1||myM/1>12||myY.length!=myYY||!(myY/1))myDot=false;
        if(!myDot){addErr=true}
       }
      if ((myV.length>0)&&(args[i+2]==4)){ // time
        myDot=true;
        var myH = myObj.value.substr(0,myObj.value.indexOf(':'))/1;
        var myM = myObj.value.substr(myObj.value.indexOf(':')+1,2)/1;
        var myP = myObj.value.substr(myObj.value.indexOf(':')+3,2);
        if ((args[i+1])=="12:00pm"){if(myH<0||myH>12||myM<0||myM>59||(myP!="pm"&&myP!="am")||myObj.value.length>7)myDot=false;}
        if ((args[i+1])=="12:00"){if(myH<0||myH>12||myM<0||myM>59||myObj.value.length>5)myDot=false;}
        if ((args[i+1])=="24:00"){if(myH<0||myH>23||myM<0||myM>59||myObj.value.length>5)myDot=false;}
        if(!myDot){addErr=true}
      }
      if (myV.length>0&&args[i+2]==5){ // check this 2
            var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
            if(!myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")].checked){addErr=true}
          }
    }else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
          var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
          var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
      if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    }else
    if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
    }else
    if (myObj.type=='select-one'||myObj.type=='select-multiple'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else
    if (myObj.type=='textarea'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}
//-->
</script>
</HEAD>
<BODY TEXT="#800040" BGCOLOR="#FFFFFF" LINK="#0000EE" VLINK="#FF8040" ALINK="#FF0000" BACKGROUND="../images/beach.gif">
<div align="left"></div>
<UL>
  <UL>
    <h3 align=CENTER><b><font size=+2 ><img src="../images/heading.gif" width="650" height="50" border="0"></font></b></h3>
    <H1 align="center"><FONT COLOR="#808000">Design Your Own Holiday Package</FONT></H1>
    <H3 align="left"><FONT COLOR="#804040">Please give us as much information 
      as you can regarding your interests, dates of travel and <br>
      other details so that we can design a holiday package especialy for you.</FONT></H3>
    <P> 
    <p></P>
  </UL>
</UL>
<form name="form1" method="POST" action="<%=MM_editAction%>" onsubmit="YY_checkform('form1','Name','#q','0','Field \'Name\' is not valid.','E-Mail Address:_req','#q','2','Field \'E-Mail \' is not valid.');return document.MM_returnValue">
  <input type="hidden" name="Inquiry Form" value="Sri Lanka Inquiry">
  <%
x= date %>
  <input type="hidden" name="x" value="<%=x%>">
  <UL>
    <UL>
      <H4>Your Full Name: 
        <INPUT name="Name" type="TEXT" cols=42 size="32" align=absmiddle>
        <BR>
        <BR>
        Total number of people traveling (including you)</H4>
      <H4>Adults :&nbsp; 
        <INPUT name="Total Number of people traveling (including you) Adults :" type="TEXT" cols=3 size="3" align=middle>
        Children Under 12 : 
        <INPUT name="Children (Under 12) :" type="TEXT" cols=3 size="3" align=middle>
        Age of children : 
        <INPUT name="Age of children :" type="TEXT" cols=10 size="15" align=middle>
        <BR>
        <BR>
        Nationality: 
        <INPUT name="Nationality" type="TEXT" cols=18 size="20" align=left>
        <BR>
        <BR>
        Contact Address:<BR>
        <TEXTAREA NAME="Contact_Address:"  ROWS=3 COLS=40 SIZE="120" WRAP=VIRTUAL ALIGN=left></TEXTAREA>
        <BR>
        <BR>
        Country: 
        <INPUT name="Country :" type="TEXT" cols=20 size="24" align=left>
        <BR>
        <BR>
        Contact Number: 
        <INPUT name="Contact Number :" type="TEXT" cols=15 size="18" align=left>
        Fax: 
        <INPUT name="Fax :" type="TEXT" cols=15 size="18" align=left>
        <BR>
        <BR>
        E-Mail:(Must be entered) 
        <INPUT name="E-Mail Address:_req" type="TEXT" cols=25 size="30" align=left>
        <BR>
        <BR>
        Dates of Travel (yy/mm/dd) From : 
        <INPUT name="Dates of Travel (yy/mm/dd) From ::" type="TEXT" cols=12 size="14" align=left>
        To:&nbsp; 
        <INPUT name="Dates of Travel (yy/mm/dd) To :" type="TEXT" cols=12 size="14" align=left>
        <BR>
        (If you are not sure of your travel dates, please give approx, dates)<BR>
        <BR>
        Language of guide required:<BR>
        <INPUT name="Language_guide" type="RADIO" VALUE="English" align=left>
        English<BR>
        <INPUT NAME="Language_guide" TYPE="RADIO" VALUE="German" ALIGN=left>
        German<BR>
        <INPUT NAME="Language_guide" TYPE="RADIO" VALUE="Italian" ALIGN=left>
        Italian<BR>
        <INPUT NAME="Language_guide" TYPE="RADIO" VALUE="French" ALIGN=left>
        French<BR>
        <INPUT NAME="Language_guide" TYPE="RADIO" VALUE="Japanese" ALIGN=left>
        Japanese<BR>
        Type of accommodation :&nbsp; 
        <SELECT name="Type of accommodation :" size= 1 align=left>
          <option>Please Select</option>
          <option>1-2 star&nbsp;</option>
          <option>2-3 star&nbsp;</option>
          <option>3-4 star&nbsp;</option>
          <option>5 Star</option>
          <option>Charm Villas</option>
        </SELECT>
      </H4>
      <H4>Prefered Meal Plan on Tour:&nbsp; 
        <SELECT name="Meal Plan on Tour :" size= 1 align=left>
          <option>Please Select</option>
          <option>Full Board (B+L+D)&nbsp;</option>
          <option>Half Board(B+D)&nbsp;</option>
          <option>Bed &amp; Breakfast</option>
        </SELECT>
      </H4>
      <H4>Prefered Meal Plan at the Beach :&nbsp; 
        <SELECT name="Meal Plan on Beach :" size= 1 align=left>
          <option>Please Select</option>
          <option>Bed and Breakfast&nbsp;</option>
          <option>Half Board(B+D)&nbsp;</option>
          <option>Full Board (B+L+D)&nbsp;</option>
          <option>All Inclusve(B+L+D+Snacks+Local Drinks)&nbsp;</option>
        </SELECT>
        <BR>
        <BR>
        Will you be celebrating your :<BR>
        <INPUT name="Wedding" type="CHECKBOX" align=left value="Y">
        Wedding<BR>
        <INPUT name="Anniversary" type="CHECKBOX" align=left value="Y">
        Anniversary<BR>
        <INPUT name="Honeymoon" type="CHECKBOX" align=left value="Y">
        Honeymoon<BR>
        <INPUT name="Birthday" type="CHECKBOX" align=left value="Y">
        Birthday<BR>
        <INPUT name="Other Event (Please specify)" type="CHECKBOX" align=left value="Y">
        Other Event (Please specify)<BR>
        <TEXTAREA NAME="Other_Events"  ROWS=3 COLS=40 SIZE="120" 
WRAP=VIRTUAL ALIGN=left></TEXTAREA>
        <BR>
        <BR>
        Interests &amp; activities :<BR>
        (Please select any number of items that interest you)<BR>
        <BR>
        <INPUT name="Cultural sites" type="CHECKBOX" align=left value="Y">
        Cultural sites<BR>
        <INPUT name="Beach" type="CHECKBOX" align=left value="Y">
        Beach<BR>
        <INPUT name="Wild Life" type="CHECKBOX" align=left value="Y">
        Wild Life<BR>
        <INPUT name="Trekking" type="CHECKBOX" align=left value="Y">
        Trekking<BR>
        <INPUT name="Bird Watching" type="CHECKBOX" align=left value="Y">
        Bird Watching<BR>
        <INPUT name="Diving / Snorkelling" type="CHECKBOX" align=left value="Y">
        Diving / Snorkelling<BR>
        <INPUT name="River rafting" type="CHECKBOX" align=left value="Y">
        River rafting<BR>
        <INPUT name="Other Water Sports" type="CHECKBOX" align=left value="Y">
        Other Water Sports<BR>
        <INPUT name="Golf" type="CHECKBOX" align=left value="Y">
        Golf<BR>
        <INPUT name="Gambling" type="CHECKBOX" align=left value="Y">
        Gambling<BR>
        <INPUT name="Night Clubs" type="CHECKBOX" align=left value="Y">
        Night Clubs<BR>
        <INPUT name="Shopping" type="CHECKBOX" align=left value="Y">
        Shopping<BR>
        <INPUT name="Other activity" type="CHECKBOX" align=left value="Y">
        Other activity(Please specify)<BR>
        <TEXTAREA NAME="Other_Activity_specify"  ROWS=3 COLS=40 SIZE="120" 
WRAP=VIRTUAL ALIGN=left></TEXTAREA>
        <BR>
        <BR>
        Your Budget - per person EXCLUDING AIRFARE (in US$)&nbsp; 
        <SELECT name="Budget per person (excluding airfare):" size= 1 align=left>
          <OPTION>US$ 100 - 500&nbsp; 
          <OPTION>US$ 500 - 1000&nbsp; 
          <OPTION>US$ 1000 - 1500&nbsp; 
          <OPTION>US$ 1500 - 2000&nbsp; 
        </SELECT>
        <BR>
        <BR>
        Other Special arrangements or other comments:<BR>
        <TEXTAREA NAME="Comments"  ROWS=5 COLS=60 SIZE="250" ALIGN=left></TEXTAREA>
        <BR>
        <input type="checkbox" name="News_letter" value="Yes" checked>
        I would like to receive more information on special promotions<BR>
        Clear Form : 
        <INPUT name="Clear Form" type="RESET" value="Reset" align=left>
        Send in form : 
        <INPUT type="SUBMIT" value="Submit" align=right>
      </H4>
      <table width="647" border="5" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="61"> 
            <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="../index.htm">Home</a></font></div>
          </td>
          <td width="86"> 
            <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="../srilanka/index.htm">Sri 
              Lanka</a></font></div>
          </td>
          <td width="86"> 
            <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="../maldives/index.htm">Maldives</a></font></div>
          </td>
          <td width="75"> 
            <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="../india/index.htm">India</a></font></div>
          </td>
          <td width="76"> 
            <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="../egypt/index.htm">Egypt</a></font></div>
          </td>
          <td width="80"> 
            <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="../cosmos/index.htm">Europe</a></font></div>
          </td>
          <td width="140"> 
            <div align="center"><font color="#0033CC" face="Verdana, Arial, Helvetica, sans-serif" size="2">On-Line 
              Payments</font></div>
          </td>
          <td width="101"> 
            <div align="center"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="about.htm">About 
              Us</a></font></div>
          </td>
      </table>
    </UL>
  </UL>
  <input type="hidden" name="MM_insert" value="true">
</form>
<P> 
<CENTER>
  <ADDRESS><B><FONT SIZE=-1>Pan Lanka Travels &amp; Tours (Pvt) Ltd.</FONT></B></ADDRESS>
</CENTER>
<CENTER>
  <P><FONT SIZE=-1>6 Palmyrah avenue, Colombo 4, Sri Lanka.</FONT> <FONT SIZE=-1>Tel 
    : (94) 74-518888 Fax : (94) 74-518881</FONT> </P>
</CENTER>
<H5 ALIGN=CENTER><FONT SIZE=-1>E-Mail: <a href="mailto:leisure@panlanka.com">leisure@panlanka.com</a></FONT></H5>
</BODY>
</HTML>