<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
	Err.Clear

	Set fp_conn =  Server.CreateObject("ADODB.Connection")
	FP_DumpError strErrorUrl, "Cannot create connection"

	Set fp_rs = Server.CreateObject("ADODB.Recordset")
	FP_DumpError strErrorUrl, "Cannot create record set"

	fp_conn.Open Application("AgregarRest2_ConnectionString")
	FP_DumpError strErrorUrl, "Cannot open database"

	fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
	FP_DumpError strErrorUrl, "Cannot open record set"

	fp_rs.AddNew
	FP_DumpError strErrorUrl, "Cannot add new record set to the database"
	Dim arFormFields0(24)
	Dim arFormDBFields0(24)
	Dim arFormValues0(24)

	arFormFields0(0) = "S1"
	arFormDBFields0(0) = "S1"
	arFormValues0(0) = Request("S1")
	arFormFields0(1) = "Anio"
	arFormDBFields0(1) = "Anio"
	arFormValues0(1) = Request("Anio")
	arFormFields0(2) = "TelContacto"
	arFormDBFields0(2) = "TelContacto"
	arFormValues0(2) = Request("TelContacto")
	arFormFields0(3) = "InteresEnWeb"
	arFormDBFields0(3) = "InteresEnWeb"
	arFormValues0(3) = Request("InteresEnWeb")
	arFormFields0(4) = "Entreteni"
	arFormDBFields0(4) = "Entreteni"
	arFormValues0(4) = Request("Entreteni")
	arFormFields0(5) = "website"
	arFormDBFields0(5) = "website"
	arFormValues0(5) = Request("website")
	arFormFields0(6) = "Codigo"
	arFormDBFields0(6) = "Codigo"
	arFormValues0(6) = Request("Codigo")
	arFormFields0(7) = "estado"
	arFormDBFields0(7) = "estado"
	arFormValues0(7) = Request("estado")
	arFormFields0(8) = "TelContacto1"
	arFormDBFields0(8) = "TelContacto1"
	arFormValues0(8) = Request("TelContacto1")
	arFormFields0(9) = "Ciudad"
	arFormDBFields0(9) = "Ciudad"
	arFormValues0(9) = Request("Ciudad")
	arFormFields0(10) = "Opinion"
	arFormDBFields0(10) = "Opinion"
	arFormValues0(10) = Request("Opinion")
	arFormFields0(11) = "PosContact"
	arFormDBFields0(11) = "PosContact"
	arFormValues0(11) = Request("PosContact")
	arFormFields0(12) = "Email"
	arFormDBFields0(12) = "Email"
	arFormValues0(12) = Request("Email")
	arFormFields0(13) = "Direccion"
	arFormDBFields0(13) = "Direccion"
	arFormValues0(13) = Request("Direccion")
	arFormFields0(14) = "MesAgregar"
	arFormDBFields0(14) = "MesAgregar"
	arFormValues0(14) = Request("MesAgregar")
	arFormFields0(15) = "Fecha"
	arFormDBFields0(15) = "Fecha"
	arFormValues0(15) = Request("Fecha")
	arFormFields0(16) = "Area"
	arFormDBFields0(16) = "Area"
	arFormValues0(16) = Request("Area")
	arFormFields0(17) = "tele"
	arFormDBFields0(17) = "tele1"
	arFormValues0(17) = Request("tele")
	arFormFields0(18) = "Especialidad"
	arFormDBFields0(18) = "Especialidad"
	arFormValues0(18) = Request("Especialidad")
	arFormFields0(19) = "NombreRest"
	arFormDBFields0(19) = "NombreRest"
	arFormValues0(19) = Request("NombreRest")
	arFormFields0(20) = "EmailRemite"
	arFormDBFields0(20) = "EmailRemite"
	arFormValues0(20) = Request("EmailRemite")
	arFormFields0(21) = "areafax"
	arFormDBFields0(21) = "areafax"
	arFormValues0(21) = Request("areafax")
	arFormFields0(22) = "Especialidad1"
	arFormDBFields0(22) = "Especialidad1"
	arFormValues0(22) = Request("Especialidad1")
	arFormFields0(23) = "NombreRemite"
	arFormDBFields0(23) = "NombreRemite"
	arFormValues0(23) = Request("NombreRemite")

	FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

	If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type"
	End If
	If Request.ServerVariables("REMOTE_HOST") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
	End If
	FP_SaveFieldToDB fp_rs, Now, "Timestamp"
	If Request.ServerVariables("REMOTE_USER") <> "" Then
		FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
	End If

	fp_rs.Update
	FP_DumpError strErrorUrl, "Cannot update the database"

	fp_rs.Close
	fp_conn.Close

	FP_FormConfirmation "text/html; charset=windows-1252",_
						"Form Confirmation",_
						"Thank you for submitting the following information:",_
						"AgregarRest.htm",_
						"Return to the form."

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Agregar</title>
</head>

<body topmargin="0" leftmargin="0" bgcolor="#C0C0C0" text="#FFFFFF"><!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','xmedia2000',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "xmedia2000";
var tripod_member_page = "xmedia2000/AgregarRest.htm";
var tripod_ratings_hash = "1713601689:d7b3a7c554ebed3cda10e34fce0499d2";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "";
var lycos_ad_track_served = "";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/TRI_300X250_dfp', [300, 250], 'div-gpt-ad-1450204159126-0').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-1').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_below_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-2').addService(googletag.pubads());
   googletag.pubads().enableSingleRequest();
   googletag.enableServices();
 });
</script>


<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));


window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    

    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<!--form name="search" onSubmit="return searchit()" id='header_search' >
<input type="text" placeholder="Search" size=30 name="search2" value="">
<input type="button" value="Go!" onClick="searchit()">
</form>
<style>
form#header_search {
    width: 916px;
    margin: 0 auto 8px;
    position: relative;
}


form#header_search input {
    height: 40px;
    font-size: 14px;
    line-height: 40px;
    padding: 0 8px;
    box-sizing: border-box;
    background: #F4F2E9;
    border: 1px solid #BBB8B8;
    transition: background-color 300ms ease-out,
                color 300ms ease;
}

form#header_search input[type="text"] {
    width: 100%;
}
form#header_search input[type="text"]:focus {
    border-color: #A2D054;
    background-color: #fff;
    box-shadow: 0 0px 12px -4px #A2D054;
}


form#header_search input[type="button"] {
    position: absolute;
    top: 1px;
    right: 1px;
    opacity: 1;
    background: #DFDCCF;
    color: #463734;
    width: 125px;
    cursor: pointer;
    height: 38px;
    border: none;
}
form#header_search input[type="text"]:focus ~ input[type='button']:hover,
form#header_search input[type='button']:hover {
    background-color: #A5CE56;
    color: #fff;
}
form#header_search input[type="text"]:focus ~ input[type='button'] {
    background-color: #52AEDF;
    color: #fff;
}

</style>

<script>
function searchit(){
    
    // determine environment 
    var search_env 
    if (lycos_ad_www_server.indexOf(".pd.") > -1) {
       search_env = 'http://search51.pd.lycos.com/a/';
    } else if (lycos_ad_www_server.indexOf(".qa.") > -1) {
       search_env = 'http://search51.qa.lycos.com/a/';
    } else {
       search_env = 'http://search51.lycos.com/a/';
    }

var search_term = encodeURIComponent(document.search.search2.value)
var search_url = search_env+search_term;
window.open(search_url);

return false
}
</script-->
<style>
    .adCenterClass{margin:0 auto}
</style>
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">

<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "leaderboard" in lycos_ad) {
  document.write(lycos_ad['leaderboard']);
}
</script>
</div>
</div>
</div>
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "slider" in lycos_ad) {
  document.write(lycos_ad['slider']);
}
</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>


<table border="0" width="74%" height="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
  <tr>
    <td width="29%" height="92" valign="top"><map name="FPMap0">
      <area href="PregunFreq.htm" shape="rect" coords="443, 67, 510, 80">
      <area href="contactenos.asp" shape="rect" coords="352, 65, 432, 81">
      <area href="servicios.htm" shape="rect" coords="169, 65, 231, 80">
      <area href="AgregarRest.htm" shape="rect" coords="96, 45, 213, 57">
      <area href="indexo.asp" shape="rect" coords="216, 43, 326, 60">
      <area href="Menus.htm" shape="rect" coords="333, 46, 376, 58"></map><img border="0" src="images/Menubar.gif" usemap="#FPMap0" width="675" height="109"> </td>
    <td width="52%" height="92" bgcolor="#000000" valign="top">
      <p align="center"><img border="0" src="images/xmani125.gif" width="125" height="110"></p>
    </td>
  </tr>
  <tr>
    <td width="46%" height="1" bgcolor="#FFCC66" valign="top">
      <table border="0" width="657" cellspacing="0" cellpadding="0" height="1306">
        <tr>
          <td width="115" style="float: right" height="1306" valign="top" bgcolor="#000000" rowspan="2" background="images/parabar.jpg">
            <p align="right"><font color="#FFFFFF"><b>&nbsp;&nbsp;&nbsp; &nbsp;</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></td>
          <td width="532" style="float: right" height="24" valign="top" bgcolor="#FF9933">
            <p align="center"><b><font size="4" color="#000000">Forma Para
                  Agregar Restaurante</font></b></p>
          </td>
          <td width="4" style="float: right" height="24" valign="top" bgcolor="#000000">&nbsp;</td>
        </tr>
        <tr>
          <td width="532" style="float: right" height="1282" valign="top" bgcolor="#FFCC66">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="100%" bgcolor="#4880E8">
                  <p align="left"><b>Informaci�n de Restaurante</b></td>
              </tr>
            </table>
            <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.Fecha.value == "")
  {
    alert("Please enter a value for the \"Fecha\" field.");
    theForm.Fecha.focus();
    return (false);
  }

  if (theForm.Fecha.value.length < 2)
  {
    alert("Please enter at least 2 characters in the \"Fecha\" field.");
    theForm.Fecha.focus();
    return (false);
  }

  if (theForm.Fecha.value.length > 2)
  {
    alert("Please enter at most 2 characters in the \"Fecha\" field.");
    theForm.Fecha.focus();
    return (false);
  }

  if (theForm.NombreRest.value == "")
  {
    alert("Please enter a value for the \"NombreRest\" field.");
    theForm.NombreRest.focus();
    return (false);
  }

  if (theForm.NombreRest.value.length < 2)
  {
    alert("Please enter at least 2 characters in the \"NombreRest\" field.");
    theForm.NombreRest.focus();
    return (false);
  }

  if (theForm.Especialidad.value == "")
  {
    alert("Please enter a value for the \"Especialidad\" field.");
    theForm.Especialidad.focus();
    return (false);
  }

  if (theForm.Especialidad.value.length < 2)
  {
    alert("Please enter at least 2 characters in the \"Especialidad\" field.");
    theForm.Especialidad.focus();
    return (false);
  }

  if (theForm.Especialidad1.value == "")
  {
    alert("Please enter a value for the \"Especialidad1\" field.");
    theForm.Especialidad1.focus();
    return (false);
  }

  if (theForm.Especialidad1.value.length < 2)
  {
    alert("Please enter at least 2 characters in the \"Especialidad1\" field.");
    theForm.Especialidad1.focus();
    return (false);
  }

  if (theForm.S1.value == "")
  {
    alert("Please enter a value for the \"S1\" field.");
    theForm.S1.focus();
    return (false);
  }

  if (theForm.S1.value.length > 200)
  {
    alert("Please enter at most 200 characters in the \"S1\" field.");
    theForm.S1.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="_vti_bin/shtml.exe/AgregarRest.htm" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" webbot-action="--WEBBOT-SELF--" language="JavaScript">
              <!--webbot bot="SaveDatabase" SuggestedExt="asp"
              S-DataConnection="AgregarRest2" S-RecordSource="Results"
              U-Database-URL="fpdb/AgregarRest.mdb"
              S-Builtin-Fields="HTTP_USER_AGENT REMOTE_HOST Timestamp REMOTE_USER"
              S-Builtin-DBFields="Browser_type Remote_computer_name Timestamp User_name"
              S-Form-Fields="S1 Anio TelContacto InteresEnWeb Entreteni website Codigo estado TelContacto1 Ciudad Opinion PosContact Email Direccion MesAgregar Fecha Area tele Especialidad NombreRest EmailRemite areafax Especialidad1 NombreRemite"
              S-Form-DBFields="S1 Anio TelContacto InteresEnWeb Entreteni website Codigo estado TelContacto1 Ciudad Opinion PosContact Email Direccion MesAgregar Fecha Area tele1 Especialidad NombreRest EmailRemite areafax Especialidad1 NombreRemite" startspan U-ASP-Include-Url="_fpclass/fpdbform.inc"
              --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><%
Function FP_SaveFormFields(rs, rgFormFields, rgDBFields)
	On Error Resume Next
	Err.Clear

	Dim i
	For i = 0 To UBound(rgFormFields)
		FP_SaveFormField rs, rgFormFields(i), rgDBFields(i)
	Next 
	Err.Clear
End Function

Function FP_SaveFormField(rs, strField, strDBField)
	On Error Resume Next
	Err.Clear

	If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then
		Exit Function
	End If

	FP_SaveFieldToDB rs, Request.Form(strField), strDBField	
	Err.Clear
End Function

Function FP_SaveFieldToDB(rs, strField, strDBField)
	On Error Resume Next
	Err.Clear

	Select Case rs(strDBField).Type
		Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or  adUnsignedInt Or adUnsignedBigInt
			rs(strDBField) = CInt(strField)
		Case adSingle Or adDecimal Or adNumeric 
			rs(strDBField) = CSng(strField)
		Case adDouble
			rs(strDBField) = CDbl(strField)
		Case adCurrency
			rs(strDBField) = CCur(strField)
		Case adBoolean
			rs(strDBField) = CBool(strField)
		Case adDate Or adDBDate Or adDBTime or adDBTimeStamp
			rs(strDBField) = CDate(strField)
		Case Else
			rs(strDBField) = CStr(strField)
	End Select

	strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """"

	FP_DumpError strErrorUrl, strError 
	Err.Clear
End Function

Function FP_EncodeOutput(str)
	FP_EncodeOutput = str
	FP_EncodeOutput = Replace(FP_EncodeOutput,"&","^^@^^")
	FP_EncodeOutput = Server.HTMLEncode(FP_EncodeOutput)
	FP_EncodeOutput = Replace(FP_EncodeOutput,"^^@^^","&")
End Function

Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2)
	On Error Resume Next
	Response.Write "<html>" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta http-equiv=""Content-Type"" content=""" & szCharSet & """>" & vbCrLf
	Response.Write "<title>" & szTitle & "</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<h1>" & szTitle & "</h1>" & vbCrLf
	Response.Write "<p>" & szMsg1 &"</p>" & vbCrLf
	Response.Write "<p>" & vbCrLf
	For Each item in Request.Form 
		If item <> "VTI-GROUP" Then
			Response.Write "<b>" & item & "</b>" & ": " & FP_EncodeOutput(Request.Form(item)) & "<bR>" & vbCrLf
		End If
	Next 
	Response.Write "</p>" & vbCrLf
	Response.Write "<p><a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.End
End Function

Function FP_FormConfirmationFromArrays(szCharset, szTitle, szmsg1, szUrl, szMsg2, rgDBFields, rgDBValues)
	On Error Resume Next
	Response.Write "<html>" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta http-equiv=""Content-Type"" content=""" & szCharSet & """>" & vbCrLf
	Response.Write "<title>" & szTitle & "</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<h1>" & szTitle & "</h1>" & vbCrLf
	Response.Write "<p>" & szMsg1 &"</p>" & vbCrLf
	Response.Write "<p>" & vbCrLf
	For j = 0 To UBound(rgDBFields) - 1
		Response.Write "<b>" & rgDBFields(j) & "</b>" & ": " & FP_EncodeOutput(rgDBValues(j)) & "<bR>" & vbCrLf
	Next 
	Response.Write "</p>" & vbCrLf
	Response.Write "<p><a href=""" &  szUrl & """>" & szMsg2 & "</a></p>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Session.CodePage = Session("FP_OldCodePage")
	Session.LCID = Session("FP_OldLCID")
	Response.End
End Function

Function FP_DumpError(strErrorUrl, strMsg)
	On Error Resume Next
	If Err.Number <> 0 Then
		fp_conn.Close
		Session.CodePage = Session("FP_OldCodePage")
		Session.LCID = Session("FP_OldLCID")
		If strErrorUrl <> "" Then
			Response.Redirect strErrorUrl
		Else
			Response.Write "<b> " & strMsg & "</b><p>"
			Response.Write "Error Description: " & Err.Description & "<p>"
			Response.Write "Error Number: " & Err.Number  & "<p>"
			Response.Write "Error Source: " & Err.Source & "<p>"
			Response.End
		End If
	End if
End Function
%>
<!--webbot bot="SaveDatabase" endspan i-checksum="40548"
              -->
              <blockquote>
                <p align="left"><b><font face="Arial" size="1" color="#000000">Por
                favor entre la fecha de hoy</font><font face="Arial" size="1" color="#808080">&nbsp;</font></b>
                <!--webbot bot="Validation" B-Value-Required="TRUE"
                I-Minimum-Length="2" I-Maximum-Length="2" --><input type="text" name="Fecha" size="2" tabindex="1" maxlength="2"><select size="1" name="MesAgregar" tabindex="2">
                  <option>Enero</option>
                  <option>Febrero</option>
                  <option>Marzo</option>
                  <option>Abril</option>
                  <option>Mayo</option>
                  <option>Junio</option>
                  <option>Julio</option>
                  <option>Agosto</option>
                  <option>Septiembre</option>
                  <option>Octubre</option>
                  <option>Noviembre</option>
                  <option>Diciembre</option>
                  <option selected>Mes?</option>
                </select><input type="text" name="Anio" size="2" tabindex="3"><font color="#000000"><b><font size="1">Ej:
                10-Octubre-98</font></b><br>
                </font></p>
                <p align="left"><b><font face="Arial" color="#000000" size="2">Nombre
                de Restaurante: </font></b><font face="Arial" color="#000000" size="1">(Requerido)</font><b><font face="Arial" color="#000000" size="2"><br>
                </font></b><!--webbot bot="Validation" B-Value-Required="TRUE"
                I-Minimum-Length="2" --><input type="text" name="NombreRest" size="32" tabindex="4"><b><font face="Arial" size="2"><font color="#000000"><br>
                Especialidad<br>
                <!--webbot bot="Validation" B-Value-Required="TRUE"
                I-Minimum-Length="2" -->
                <input type="text" name="Especialidad" size="32" tabindex="5"></font></font><font face="Arial" size="1" color="#808080"><br>
                Ej:
                Comida Mexicana,Peruana,Salvadore�a...<br>
                <br>
                </font><font color="#000000" face="Arial" size="2">Platos
                Tipicos<br>
                <!--webbot bot="Validation" B-Value-Required="TRUE"
                I-Minimum-Length="2" --><input type="text" name="Especialidad1" size="61" tabindex="5"><br>
                </font><font face="Arial" size="1" color="#808080">Cebiche de
                pulpo, nuegados, Aji , Alfafores, Cazuelas...<br>
                <br>
                </font><font face="Arial" color="#000000" size="2">Texto Promocional&nbsp;para
                listado </font><font face="Arial" size="1" color="#808080">Promueva
                su restaurante aqui<br>
                <!--webbot bot="Validation" B-Value-Required="TRUE"
                I-Maximum-Length="200" --><textarea rows="4" name="S1" cols="53"></textarea>
                </font><font face="Arial" color="#000000" size="2">
                <br>
                </font><font face="Arial" size="1" color="#808080"><br>
                </font><font color="#000000" face="Arial" size="2">Entretenimiento<br>
                <font face="Arial" size="1"><select size="1" name="Entreteni">
                  <option selected>Elija uno</option>
                  <option>M�sica en vivo</option>
                  <option>Discoteca</option>
                  <option>Comedia</option>
                  <option>Televisi�n</option>
                  <option>Karaokee</option>
                  <option>Otro</option>
                </select></font></font><font face="Arial" size="1" color="#808080">Ej:
                M�sica en vivo todos los viernes...
                </font></b></p>
                <table border="0" width="445" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="228"><b><font color="#000000" face="Arial" size="2">Direcci�n<br>
                      <input type="text" name="Direccion" size="34">  </font></b></td>
                    <td width="195" valign="top" colspan="2"></td>
                  </tr>
                  <tr>
                    <td width="228">
                      <p align="left"><b><font color="#000000" face="Arial" size="2">
                Ciudad<input type="text" name="Ciudad" size="34">  </font></b></td>
                    <td width="45" valign="top"><b><font color="#000000" face="Arial" size="2">  Estado
                      <input type="text" name="estado" size="5"></font></b></td>
                    <td width="150" valign="top"><b><font color="#000000" face="Arial" size="2">&nbsp;</font><font color="#000000" face="Arial" size="1">Cod.
                Postal</font><font color="#000000" face="Arial" size="2"><br>
                      &nbsp;<input type="text" name="Codigo" size="6"></font></b></td>
                  </tr>
                </table>
                <p align="left"><b><font color="#000000" face="Arial" size="2">
                Tel�fono: <input type="text" name="Area" size="3"><input type="text" name="tele" size="10">
                Fax:<input type="text" name="areafax" size="3"><input type="text" name="tele" size="10">&nbsp;</font></b><b><font face="Arial" size="2" color="#000000">
                </font></b><font face="Arial" color="#000000" size="1">(Si
                disponible)</font><b><font color="#000000" face="Arial" size="2"><br>
                <br>
                E-Mail:</font></b><b><font face="Arial" size="2" color="#000000">
                </font></b><font face="Arial" color="#000000" size="1">(Si
                disponible)</font><b><font color="#000000" face="Arial" size="2"><br>
                <input type="text" name="Email" size="39"><br>
                </font></b><b><font face="Arial" size="2" color="#000000">P�gina
                Web: </font></b><font face="Arial" color="#000000" size="1">(Si
                disponible)<br>
                </font><b><font color="#000000" face="Arial" size="2"><input type="text" name="website" size="39"></font></b></p>
                <p align="left"><b><font color="#000000" face="Arial" size="2">�Si
                no tiene una pagina web para su restaurante,<br>
                estaria interesado en obtener uno?&nbsp;<br>
                <select size="1" name="InteresEnWeb">
                  <option selected>Elija...</option>
                  <option>Si, quiero un website para mi restaurant</option>
                  <option>No, no estoy interasado en un website</option>
                  <option>Quiero mas informaci�n</option>
                  <option>Solo quiero publicar el men�</option>
                </select><br>
                </font></b></p>
              </blockquote>
              <table border="0" width="100%" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="100%" bgcolor="#4880E8"><b>Informaci�n </b><b>de
                    contacto -</b> Para verificaci�n de datos</td>
                </tr>
              </table>
              <table border="0" width="100%" cellspacing="1" height="192">
                <tr>
                  <td width="56%" height="149"><font color="#000000"><b>Nombre :</b><input type="text" name="NombreRemite" size="33"><br>
                    <b>Posici�n :</b></font><select size="1" name="PosContact">
                    <option selected>Due�o</option>
                    <option>Manager</option>
                    <option>Encargado Legal</option>
                    <option>Socio</option>
                    <option>Otro...</option>
                  </select><font color="#000000"><br>
                    <b>E-Mail&nbsp; : <input type="text" name="EmailRemite" size="33"><br>
                    Tel�fono :<input type="text" name="TelContacto1" size="9">Tel.
                    2<input type="text" name="TelContacto" size="9"><font size="2">Ej:
                    3019853058</font></b></font>
                    <p><font color="#000000"><b>Sus comentarios de este restaurante:<br>
                    <textarea rows="3" name="Opinion" cols="41"></textarea><br>
                    </b></font></td>
                  <td width="44%" valign="middle" bgcolor="#FF9933" height="149">
                    <p align="center"><font color="#000000"><b>PUBLIQUE SU
                    MENU&nbsp;<br>
                    POR SOLO $5.00/mes<br>
                    <br>
                    DISE�O&nbsp; INCLUIDO<br>
                    <br>
                    ESCOJA ENTRE&nbsp;<br>
                    VARIOS DISE�OS&nbsp;</b><br>
                    </font></td>
                </tr>
              </table>
              <p align="left"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
              <p align="left">&nbsp;</p>
              <p align="left">&nbsp;</p>
              <p align="left">&nbsp;</p>
              <p align="left">&nbsp;</p>
              <p align="left">&nbsp;</p>
            </form>
                </td>
              </tr>
            </table>
            <p align="left">&nbsp;<p align="left">&nbsp;<p align="left">&nbsp;<p align="left">&nbsp;</td>
          <td width="23%" style="float: left" height="110" bgcolor="#000000" valign="top">
            <p align="center"><img border="0" src="images/ddpainAni.gif" width="125" height="110"><font color="#FFFFFF"><br>
            <a href="http://cdnow.com/latin/from=cr-9336387-1/newlanguage=spa/"><img border="0" src="images/spa_125x125.gif" width="125" height="125">
            </a></font>
            </p>
            <p align="center"><font color="#FFFFFF">
            <br>
            </font>
            </p>
          </td>
        </tr>
      </table>

</body>