Tema: adjuntar fichero con CDOnts
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 17/05/2007, 00:36
Avatar de engonga
engonga
Usuario no validado
  
Fecha de Ingreso: marzo-2002
Ubicación: Buenos Aires
Mensajes: 1.300
Antigüedad: 23 años, 1 mes
Puntos: 8
Re: adjuntar fichero con CDOnts
aqui el codigo partido

Código PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="xelupload.asp"-->
<%
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero, aonguardo, tipo, tipo2, tipo3
'nuestro tamaño máximo
maxtam = 2000 * 1024
tipo = "application/pdf"
tipo2 = "application/msword"
tipo3 = "application/x-compressed"
aonguardo = "C:\Gestión Iberwall\Sitios Webs\Esigual\Sumer-Consultora\admin\CVS" 
set objUpload = new xelUpload
objUpload.Upload()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%
dim quevol
quevol = request.QueryString("infoque")
if quevol <> "" then
quevol = request.QueryString("infoque")
else
quevol = "INSCRIPCIO GENERAL D'UN CANDIDAT"
end if %>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>FORMULARI -- <%=quevol%></title>
<link href="arxius/form_css.css" rel="stylesheet" type="text/css" />
<link href="../ajaxtabs/ajaxtabs.css" rel="stylesheet" type="text/css" />
<script languaje="javascript">
function habilita(form)
{ 
if (form1.avis_legal.checked = true) {
form1.Submit.disabled = false;
}
}
 
</script>
 
</head>
<body>
<%
 'em retorna la data i lora sense punts ni contrabarres 
Dim Dia, Mes, Hora, Minuts, Segons
if Day(Date) <10 Then
 Dia = 0 & Day(Date)
Else 
 Dia = Day(Date) 
 End If
if Month(Date) <10 Then
 Mes = 0 & Month(Date) 
Else
 Mes = Month(Date)
 End If
If Hour(Time) <10 Then
 Hora = 0 & Hour(Time)
Else
 Hora = Hour(Time)
 End If
If Minute(Time) <10 Then
 Minuts = 0 & Minute(Time)
Else
 Minuts = Minute(Time)
 End If
If Second(Time) <10 Then
 Segons = 0 & Second(Time)
Else
 Segons = Second(Time)
 End if
Data = Dia & Mes & Year(Date) & Hora & Minuts & Segons
'Data = Day & Month & Year(Date) & Hour & Minute & Second
%>  
<%
 
'valido el formulari
Function ValidateField(sFieldvalue, sFieldtype)
 ValidField = true
 Select Case LCase(sFieldtype)
  Case "nom"
  If Len(sFieldvalue) = 0 Then ValidField = False  
  Case "cognoms"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "horari"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "tel_1"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "adreca"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "poblacio"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "provincia"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "codi_post"
  If Len(sFieldvalue) = 0 Then ValidField = False
 
  Case "mail"
   If Len(sFieldvalue) < 5 Then
    ValidField = False
   Else
    If InStr(1, sFieldvalue, "@", 1) < 2 Then
     ValidField = False
    Else
     If InStr(1, sFieldvalue, ".", 1) < 4 Then
      ValidField = False
     End If
    End If
   End If  
  Case "else"
   ValidField = False
 End Select
ValidateField = ValidField
End Function
 
'mostro el dormulari
Sub ShowForm%>
 
   <form id="form1" name="form" enctype="multipart/form-data" method="post" action="<%= Request.ServerVariables("Script_Name") %>">
 <table width="392" border="0" align="center" cellpadding="0" cellspacing="5">
      <tr>
        <td width="92" height="20" class="text_titol_camp" >Nom*</td>
        <td width="300" valign="top" class="text_titol_camp"><input name="Nom" type="text" class="camo_form"  id="Nom" value="<%=objUpload.Form("nom") %>" size="40" />
          <%If dictFields(LCase("nom")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
 
      <tr>
        <td class="text_titol_camp" >Cognoms*</td>
        <td valign="top" class="text_titol_camp"><input name="Cognoms" type="text" class="camo_form"  id="Cognoms" value="<%=objUpload.Form("cognoms") %>" size="40" />
          <%If dictFields(LCase("cognoms")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp">Horari que et podem trucar * </td>
        <td valign="top" class="text_titol_camp"><input name="horari" type="text" class="camo_form" id="horari" value="<%=objUpload.Form("horari") %>" size="40" />
  <%If dictFields(LCase("horari")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp">Tel&egrave;fon1*</td>
        <td valign="top" class="text_titol_camp"><input name="Tel_1" type="text" class="camo_form"  id="Tel_1" value="<%=objUpload.Form("tel_1") %>" size="30" />
  <%If dictFields(LCase("tel_1")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp">Tel&egrave;fon2</td>
        <td valign="top" class="text_titol_camp"><input name="Tel_2" type="text" class="camo_form"  id="Tel_2" value="<%=objUpload.Form("tel_2") %>" size="30" /></td>
      </tr>
      <tr>
        <td class="text_titol_camp" >E-mail*</td>
        <td valign="top" class="text_titol_camp"><input name="Mail" type="text" class="camo_form"  id="Mail" value="<%=objUpload.Form("mail") %>" size="40" />
          <%If dictFields(LCase("mail")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp"><p>Adre&ccedil;a*</p>          </td>
        <td valign="top" class="text_titol_camp"><input name="adreca" type="text" class="camo_form"  id="adreca" value="<%=objUpload.Form("adreca") %>" size="40" />
          <%If dictFields(LCase("adreca")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp"><p >Poblaci&oacute;*</p>          </td>
        <td valign="top" class="text_titol_camp"><input name="Poblacio" type="text" class="camo_form"  id="Poblacio" value="<%=objUpload.Form("poblacio") %>" size="40" />
          <%If dictFields(LCase("poblacio")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp"><p >Prov&iacute;ncia*</p>          </td>
        <td valign="top" class="text_titol_camp"><input name="Provincia" type="text" class="camo_form"  id="Provincia" value="<%=objUpload.Form("provincia") %>" size="40" />
          <%If dictFields(LCase("provincia")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp"><p>Codi Postal * </p>          </td>
        <td valign="top" class="text_titol_camp"><input name="codi_post" type="text" class="camo_form"  id="codi_post" value="<%=objUpload.Form("codi_post") %>" size="20" />
          <%If dictFields(LCase("codi_post")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp">CV</td>
        <td class="text_titol_camp"><input name="adjunt"  id="adjunt" type="file" class="camo_form" size="30"></td>
      </tr>
   <tr>
     <td class="text_titol_camp">&nbsp;</td>
     <td class="text_titol_camp">&nbsp;</td>
      </tr>
    <tr>
        <td class="text_titol_camp" >Et podem enviar informaci&oacute;? </td>
        <td class="text_titol_camp"><input name="publi" type="checkbox" class="camo_form" id="Publi" value="si" checked="checked"  />
          <span >si estic d'acord que SUMER CONSULTORA m'envi&iuml; informaci&oacute; </span></td>
      </tr>
       <tr>
         <td>&nbsp;</td>
         <td><span class="text_titol_camp">
         <!-- <input name="avis_legal" type="checkbox" class="camo_form" id="avis_legal" value="1"  onclick="this.form.Submit.disabled = this.checked" checked="checked" />-->  
   <input name="avis_legal" type="checkbox" class="camo_form" id="avis_legal" value="1"  onclick="habilita(this.form)" />
 
         &nbsp;&nbsp;He llegit <a href="../sumer_legal.asp" target="_blank">l'av&iacute;s legal</a> i estic dacord </span></td>
       </tr>
      <tr>
        <td>&nbsp;</td>
        <td><%dim quevol
 
%>
<input type="hidden" name="quevol" id="quevol" value="<%=quevol%>" />
<input type="hidden" name="data" id="data" value="<%=data%>" /></td>
      </tr>
      <tr>
        <td class="text_titol_camp">&nbsp;</td>
        <td class="text_titol_camp"><input  name="Submit" id="Submit" type="submit" class="enviar" value="      Enviar       " disabled="disabled" /> 
        *camps obligatoris </td>
      </tr>
    </table>
         </form>
 
 
        <%
End sub