<%@LANGUAGE="VBSCRIPT"%>
<% on error resume next %>
<!--#include file="Connections/connGODRUGFREE.asp" -->
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If Request("SVALIDO") <> Request("SVALID") Then

Response.Redirect("failed.asp")

End If

  If (Not MM_abortEdit) Then
      ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_connGODRUGFREE_STRING
    MM_editCmd.CommandText = "INSERT INTO godrugfree.tbllisting (sNAME, sDESC, sURL, sCATID, sKEYWORD, locCITY, locSTATE, locCOUNTRY, sEMAIL, sRECURL, sDATE) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 255, Request.Form("sNAME")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, -1, Request.Form("sDESC")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, -1, Request.Form("sURL")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("sCAT"), Request.Form("sCAT"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, -1, Request.Form("sKEYWORD")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 255, Request.Form("locCITY")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 255, Request.Form("locSTATE")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 255, Request.Form("locCOUNTRY")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 100, Request.Form("sEMAIL")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, -1, Request.Form("sRECURL")) ' adLongVarChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 135, 1, -1, MM_IIF(Request.Form("sDATE"), Request.Form("sDATE"), null)) ' adDBTimeStamp
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
  End If
End If
%>
<%
Dim rsCAT
Dim rsCAT_numRows

Set rsCAT = Server.CreateObject("ADODB.Recordset")
rsCAT.ActiveConnection = MM_connGODRUGFREE_STRING
rsCAT.Source = "SELECT sID, sNAME FROM tblcat ORDER BY sNAME ASC"
rsCAT.CursorType = 0
rsCAT.CursorLocation = 2
rsCAT.LockType = 1
rsCAT.Open()

rsCAT_numRows = 0
%>
<% 
sDATE1 = date()

sDATESPLIT = split(sDATE1,"/")
sDATESPLITM = sDATESPLIT(0)
sDATESPLITD = sDATESPLIT(1) 
sDATESPLITY = sDATESPLIT(2)
sDATE = sDATESPLITY & "-" & sDATESPLITM & "-" & sDATESPLITD

%>
<% 

Dim intLowerBound 
Dim intUpperBound

Dim intRangeSize
Dim sngRandomValue 
Dim intRandomInteger 
	intLowerBound = 1000000
	intUpperBound = 10000000
If  intLowerBound > intUpperBound Then
	Dim iTemp
	iTemp = intLowerBound
	intLowerBound = intUpperBound
	intUpperBound = iTemp
End If
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)


strT1 =replace((intRandomInteger),"1","1.jpg")
strT2 =replace(strT1,"2","2.jpg")
strT3 =replace(strT2,"3","3.jpg")
strT4 =replace(strT3,"4","4.jpg")
strT5 =replace(strT4,"5","5.jpg")
strT6 =replace(strT5,"6","6.jpg")
strT7 =replace(strT6,"7","7.jpg")
strT8 =replace(strT7,"8","8.jpg")
strT9 =replace(strT8,"9","9.jpg")
strT0 =replace(strT9,"0","0.jpg")
	
strTOTAL = strT0  	

strS1 = Split(strTOTAL,".jpg")
strS2 = strS1(0)
strS3 = strS1(1)
strS4 = strS1(2)
strS5 = strS1(3)
strS6 = strS1(4)
strS7 = strS1(5)
strS8 = strS1(6)


if strS3 = "" then
strS3 = "null"
else
strS3 = strS3
end if

strIMG = "<img src='images/num/_"&strS2&".jpg'>"&"<img src='images/num/_"&strS3&".jpg'>"&"<img src='images/num/_"&strS4&".jpg'>"&"<img src='images/num/_"&strS5&".jpg'>"&"<img src='images/num/_"&strS6&".jpg'>"&"<img src='images/num/_"&strS7&".jpg'>"&"<img src='images/num/_"&strS8&".jpg'>"

%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Submit Your Link | Go Drug Free.org</title>
<link href="directory/css.css" rel="stylesheet" type="text/css" />
<script type="text/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.71
//copyright (c)1998,2002 Yaromat.com
  var a=YY_checkform.arguments,oo=true,v='',s='',err=false,r,o,at,o1,t,i,j,ma,rx,cd,cm,cy,dte,at;
  for (i=1; i<a.length;i=i+4){
    if (a[i+1].charAt(0)=='#'){r=true; a[i+1]=a[i+1].substring(1);}else{r=false}
    o=MM_findObj(a[i].replace(/\[\d+\]/ig,""));
    o1=MM_findObj(a[i+1].replace(/\[\d+\]/ig,""));
    v=o.value;t=a[i+2];
    if (o.type=='text'||o.type=='password'||o.type=='hidden'){
      if (r&&v.length==0){err=true}
      if (v.length>0)
      if (t==1){ //fromto
        ma=a[i+1].split('_');if(isNaN(v)||v<ma[0]/1||v > ma[1]/1){err=true}
      } else if (t==2){
        rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-zA-Z]{2,4}$");if(!rx.test(v))err=true;
      } else if (t==3){ // date
        ma=a[i+1].split("#");at=v.match(ma[0]);
        if(at){
          cd=(at[ma[1]])?at[ma[1]]:1;cm=at[ma[2]]-1;cy=at[ma[3]];
          dte=new Date(cy,cm,cd);
          if(dte.getFullYear()!=cy||dte.getDate()!=cd||dte.getMonth()!=cm){err=true};
        }else{err=true}
      } else if (t==4){ // time
        ma=a[i+1].split("#");at=v.match(ma[0]);if(!at){err=true}
      } else if (t==5){ // check this 2
            if(o1.length)o1=o1[a[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!o1.checked){err=true}
      } else if (t==6){ // the same
            if(v!=MM_findObj(a[i+1]).value){err=true}
      }
    } else
    if (!o.type&&o.length>0&&o[0].type=='radio'){
          at = a[i].match(/(.*)\[(\d+)\].*/i);
          o2=(o.length>1)?o[at[2]]:o;
      if (t==1&&o2&&o2.checked&&o1&&o1.value.length/1==0){err=true}
      if (t==2){
        oo=false;
        for(j=0;j<o.length;j++){oo=oo||o[j].checked}
        if(!oo){s+='* '+a[i+3]+'\n'}
      }
    } else if (o.type=='checkbox'){
      if((t==1&&o.checked==false)||(t==2&&o.checked&&o1&&o1.value.length/1==0)){err=true}
    } else if (o.type=='select-one'||o.type=='select-multiple'){
      if(t==1&&o.selectedIndex/1==0){err=true}
    }else if (o.type=='textarea'){
      if(v.length<a[i+1]){err=true}
    }
    if (err){s+='* '+a[i+3]+'\n'; err=false}
  }
  if (s!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+s)}
  document.MM_returnValue = (s=='');
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link href="CSS/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style6 {font-size: 12px; font-family: Tahoma;}
.style7 {font-weight: bold}
-->
</style>
</head>
<body onLoad="MM_preloadImages('menu/menu_01.jpg','menu/menu_02.jpg','menu/menu_03.jpg','menu/menu_04.jpg','menu/menu_05.jpg','menu/menu_06.jpg','menu/menu_07.jpg','menu/menu_08.jpg')">
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="106"><img src="imgs/layout_01.jpg" width="800" height="106" border="0" usemap="#Map" /></td>
  </tr>
  <tr background="imgs/layout_02.jpg">
    <td align="left" valign="top"><img src="imgs/layout_02.jpg" width="800" height="184" border="0" usemap="#Map2" /></td>
  </tr>
  <tr>
    <td height="51"><img src="imgs/newlayout_03.jpg" width="800" height="51" /></td>
  </tr>
  <tr background="imgs/layout_04.jpg">
    <td height="51" background="imgs/layout_04.jpg"><table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><table width="96%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><div align="center" class="text"><a href="http://www.godrugfree.org">home</a></div></td>
              <td><div align="center" class="text"><a href="http://www.godrugfree.org/about.html">about</a> </div></td>
              <td><div align="center" class="text"><a href="submit.html">submit</a></div></td>
              <td><div align="center" class="text"><a href="http://www.godrugfree.org/contact.html">contact</a></div></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td><form action="result.asp" method="post" name="form1" id="form1">
            <div align="center"><br />
                <span class="style6">Search</span>
                <input name="q" type="text" class="content" id="q" />
                <input name="Submit" type="submit" class="content" value="Submit" />
            </div>
        </form></td>
      </tr>
    </table></td>
  </tr>
  <tr background="imgs/layout_04.jpg">
    <td background="imgs/layout_04.jpg"><p>&nbsp;</p>
        <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><p class="text">Due to high levels of spam, we are forced to request manual link submissions.</p>
            <p class="text">To submit, please follow these steps.</p>
            <p class="text"><span class="style7">1.</span> <a href="mailto:?subject=Link Submission to GoDrugFree{spam}">Send us an email</a> with title: &quot;Link Submission to GoDrugFree&quot;. Remove the {spam} tag from the header and forward to webmaster [at] godrugfree.org. </p>
            <p><span class="text"><strong>2.</strong> Include:</span> </p>
            <p class="text">- Title</p>
            <p class="text">- Description of your organization</p>
            <p class="text">- URL you are submitting</p>
            <p><span class="text">- Location of a courtesy link back</span></p>
            <p class="text"><strong>3.</strong> Place place a link to our main organization website:</p>
            <p align="center" class="text">
              <textarea name="textarea" cols="60">Narconon is a non-profit <a title="Narconon Drug Rehabilitation" href="http://www.narconon.ca">drug & alcohol rehab</a> organization dedicated to eliminating drug abuse and addiction through prevention, education and rehabilitation.</textarea>
            </p>
            <p align="center" class="text">                <span class="text_small">Will look like this:</span></p>
            <p align="center" class="text">Narconon is a non-profit <a title="Narconon Drug Rehabilitation" href="http://www.narconon.ca">drug rehab</a> organization dedicated to eliminating drug abuse and addiction through prevention, education and rehabilitation.</p>
            <p align="center" class="text">___________________________________________________________________________</p>
            <p align="center" class="textheader"><strong>PLEASE NOTE: Any improper submissions, poorly written and irrelevant will be promptly trashed. We only accept real drug related and rehabilitation websites.</strong></p>            </td>
          </tr>
        </table>        
        <p>&nbsp;</p></td>
  </tr>
  <tr background="imgs/layout_05.jpg">
    <td height="50" align="center" valign="top" class="text"><p>
      <script 
  type="text/JavaScript" 
  language="JavaScript">
<!-- 
//
// format date as dd-mmm-yy
// example: 12-Jan-99
//
function date_ddmmmyy(date)
{
  var d = date.getDate();
  var m = date.getMonth() + 1;
  var y = date.getYear();

  // handle different year values 
  // returned by IE and NS in 
  // the year 2000.
  if(y >= 2000)
  {
    y -= 2000;
  }
  if(y >= 100)
  {
    y -= 100;
  }

  // could use splitString() here 
  // but the following method is 
  // more compatible
  var mmm = 
    ( 1==m)?'Jan':( 2==m)?'Feb':(3==m)?'Mar':
    ( 4==m)?'Apr':( 5==m)?'May':(6==m)?'Jun':
    ( 7==m)?'Jul':( 8==m)?'Aug':(9==m)?'Sep':
    (10==m)?'Oct':(11==m)?'Nov':'Dec';

  return "" +
    (d<10?"0"+d:d) + "-" +
    mmm + "-" +
    (y<10?"0"+y:y);
}


//
// get last modified date of the 
// current document.
//
function date_lastmodified()
{
  var lmd = document.lastModified;
  var s   = "Unknown";
  var d1;

  // check if we have a valid date
  // before proceeding
  if(0 != (d1=Date.parse(lmd)))
  {
    s = "" + date_ddmmmyy(new Date(d1));
  }

  return s;
}

//
// finally display the last modified date
// as DD-MMM-YY
//
document.write( 
  "This page was updated on " + 
  date_lastmodified() );

// -->
</script>
      <span class="text_small"></span>. All Rights Reserved. 2006-2008. <a href="http://www.godrugfree.org">GoDrugFree.org</a>.</p>    </td>
  </tr>
</table>
<map name="Map" id="Map">
  <area shape="rect" coords="52,32,499,85" href="http://www.godrugfree.org" />
</map>
<map name="Map2" id="Map2">
  <area shape="rect" coords="65,43,184,64" href="index.html" />
  <area shape="rect" coords="67,108,152,126" href="affiliates.html" />
  <area shape="rect" coords="66,131,148,147" href="forum.html" />
  <area shape="rect" coords="70,149,167,169" href="submit.html" />
  <area shape="rect" coords="68,66,179,84" href="drug-resources.html" />
  <area shape="rect" coords="66,88,147,107" href="articles.html" />
</map>
<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-652560-8";
urchinTracker();
</script></body>
</html>
<%
rsCAT.Close()
Set rsCAT = Nothing
%>