<!--#include virtual="/includes/topofpage.asp"-->
<%
	Dim States

	Dim SQL1, SQL2, SQL3, SQL4
	Dim Conn, RS, RS2, RS3, RS4

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Application("conn_string")
	
	SQL1 = "Select * from States where country_id = '2'"
	Set RS=Conn.Execute(SQL1)
    Do While Not RS.EOF
       States = States & "<OPTION value='" & RS("State_Abbr") & "'>" & RS("State_Abbr") & "</OPTION>" & Chr(13)
       RS.MoveNext()
    Loop

	'SQL2 = "Select * from Entity E inner join (Group_Entity_Map GEM inner join (Att_Group_Map AGM Inner Join Attribute_Type A on AGM.ATT_ID = A.ATT_ID) on GEM.Group_ID = AGM.Group_ID)	on E.Entity_ID = GEM.Entity_ID Where E.Entity_ID = '" & Request.QueryString("Entity_ID") & "'"
	'Set RS2=Conn.Execute(SQL2)

	If UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then

		Dim DestDir, Image_Type_ID, Group_ID
		
		'Path to save images to.
		DestDir = "D:\Images"
		
		'Image Type ID -- defines the image constraints, image type.
		Image_Type_ID = "10" ' Destination Map Image Type
		Group_ID = "6071" ' vif group id
		Realm_ID = "1" ' Vacation in Florida Destination Pages Realm

		SQL3 = "Select * from Image_Type Where Image_Type_ID = '" & Image_Type_ID & "'"
		Set RS3=Conn.Execute(SQL3)

		DIM Acceptor,RequestSize,j
		
		'on error resume next
		'Err.Clear
		'Set Acceptor=Session("Demo2Acceptor")
		'if Err.number<>0 then 
		
			Set Acceptor = Server.CreateObject("AEPA.Acceptor")
			Acceptor.ProcessDBF = True
			Acceptor.ProcessZIP = True

		'end if  
		'on error goto 0
		'Set Session("Demo2Acceptor")=Acceptor

		RequestSize = Request.TotalBytes  

		If Request.TotalBytes>0 then
			Acceptor.ProcessRequest(Request.BinaryRead(RequestSize))  
		end if

		If Acceptor.Expired then
			%>Unable to Continue. Please e-mail us at webmaster@<% Request.ServerVariables("SERVER_NAME") %> to report this problem.<%
			Response.End
		End If

		Dim FPath, FName, FSize, FExt
		Dim i,t,tn

		For i=0 to Acceptor.FileCount-1
			
			FName=Acceptor.FileName(i)
			FPath=Acceptor.FilePath(i)
			FSize=Acceptor.FileSize(i)
			FExt=Mid(FName, InStrRev(FName, "."), Len(FName) - InStrRev(FName, ".") +1)
			FCap=Request.Form("Name") & " - " & RS3("Short_Description")
			FCap=Request.Form("Name") & " - " & RS3("Short_Description")

			SQL4 = "Add_Image_Realm"
			Set RS4=Conn.Execute(SQL3)

			'ImageID=

			NewFile=ImageID & Ext
  
    i=DestDir
    If Right(i,1)<>"\" then i=i&"\"
    If Acceptor.FileSaveTo(t,i&tn) then
      strSQL = "Update Affiliate Set Aff_Image = '" & tn & "' Where Aff_ID='" & RS1("Aff_ID") & "'"
      objCN.Execute(strSQL)

      Response.Write "Your Image ""<b>"&t&"</b>"" was successfuly saved to your profile.<br><br>"
      Response.Write "<a href=""account-management.asp"">Click here to continue</a><br><br>"
    else
      Response.Write "Error saving file ""<b>"&t&"</b>"" "
      Response.Write "to your profile. <br><br> "
      Response.Write "Please report this problem to the webmaster. <br><br>"
    end if


		Next    

		
	End If 

%>



<html>
<STYLE>
BODY {SCROLLBAR-FACE-COLOR: #5e5ebe; SCROLLBAR-HIGHLIGHT-COLOR: #5e5ebe; SCROLLBAR-SHADOW-COLOR: #5e5ebe; SCROLLBAR-3DLIGHT-COLOR: #5e5ebe; SCROLLBAR-ARROW-COLOR:  #6666CC; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</STYLE>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
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_findObj(n, d) { //v4.0
  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 && document.getElementById) x=document.getElementById(n); return x;
}

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];}
}

function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<link rel="stylesheet" href="../Style-sheets/headline.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/icon-return-to-main-2.gif','images/icon-submit-changes-2.gif','images/icon-continue-wizard-2.gif')">
<form name="form1" method="post" action="" enctype="multipart/form-data">
  <table width="525" border="0" cellspacing="0" cellpadding="2" align="center">
  <tr bgcolor="#FFFFFF"> 
    <td width="467">&nbsp;</td>
    <td align="right" width="58">&nbsp;</td>
  </tr>
  <tr bgcolor="#5e5ebe"> 
      <td width="467" align="center" class="headline-ffffff">Destination Map Page 
        Creation</td>
    <td bgcolor="#5e5ebe" align="right" width="58"><a href="javascript:;" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','images/icon-return-to-main-2.gif',1)" onClick="MM_goToURL('parent','default.asp');return document.MM_returnValue"><img src="images/icon-return-to-main.gif" width="75" height="17" usemap="#returntomain" border="0" name="Image1"></a></td>
  </tr>
  <tr> 
    <td width="467">&nbsp;</td>
    <td width="58">&nbsp;</td>
  </tr>
</table>
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td width="162">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Name:</td>
      <td width="228"> 
        <input type="text" name="Name">
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">State:</td>
      <td width="228"> 
        <select name="State">
        <OPTION value="" selected>Select</OPTION>
		<%= States %>
        </select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Map Image:</td>
      <td width="228"> 
        <input type="file" name="file">
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold" height="22">Active Realms:</td>
      <td width="228" height="22"> 
        <select name="select" size="3" multiple>
          <option>Vacation in Florida</option>
          <option>Campground Network</option>
          <option>Western RV News</option>
          <option>Mexico Rving</option>
        </select>
      </td>
      <td width="110" height="22">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
  </table>
<table width="525" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor="#5e5ebe"> 
    <td align="right" width="49%" height="18"><a href="javascript:;" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('submitchanges','','images/icon-submit-changes-2.gif',1)" onClick="MM_goToURL('parent','default.asp');return document.MM_returnValue"><img src="images/icon-submit-changes.gif" width="200" height="15" name="submitchanges" border="0"></a></td>
      <td width="51%" height="18"><a href="destination-page-content-create.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','images/icon-continue-wizard-2.gif',1)"><img src="images/icon-continue-wizard.gif" width="150" height="15" usemap="#continue" border="0" name="Image2"></a></td>
  </tr>
  <tr> 
    <td width="49%">&nbsp;</td>
    <td width="51%">&nbsp;</td>
  </tr>
</table></form>
</body>
</html>
