Foros del Web - Ver Mensaje Individual

engonga · #4 (**permalink**) 17/05/2007, 00:37

aqui la parte 2 del codigo que es la que procesa el formulario

Código PHP:

  Sub Send
' xelupload
%>
<%
 
 
'composo el correu
fnom = objUpload.Form("nom")
fcognoms = objUpload.Form("Cognoms")
fhorari = objUpload.Form("horari")
ftel1 = objUpload.Form("Tel_1")
ftel2 = objUpload.Form("Tel_2")
fmail = objUpload.Form("Mail")
fadreca=objUpload.Form("adreca")
fpoblacio=objUpload.Form("poblacio")
fprovincia=objUpload.Form("provincia")
fCP=objUpload.Form("codi_post")
fpubli=objUpload.Form("publi")
fquevol=objUpload.Form("quevol")
fFitxeradjunt = Request.Form("adjunt")
'segueixo xelupload
set objFich = objUpload.Ficheros("adjunt")
    if (objFich.Tamano <= maxtam)and (objFich.TipoContenido = tipo or objFich.TipoContenido = tipo2 or o)  then
  'Es el fichero correcto, vamos a guardarlo en todas partes. :-)
 
 
 
 'ara agafo l'extensio del fitxer
    strExt =  Right(objFich.Nombre, 4)
    'ara agafo enom del fitxer original
    strNom = objFich.Nombre
 
 
    'Ahora, en el directorio upload, con la fecha de hoy como nombre
    strNombreFichero = fnom & fcognoms & data & strExt
    objFich.GuardarComo strNombreFichero, aonguardo
    end if
    'netejo els objectes
 
 
sMessage = "<b>Incrició a l'oferta"&fquevol&"</b><br><br><br>"_
&"<b>Nom:</b> " & fnom &  "<br><br>" _
&"<b>Cognoms: </b>" & fcognoms &  "<br><br>" _
&"<b>Horari que el podem trucar: </b>" & fhorari &  "<br>" _
&"<b>Tel 1: </b>" & ftel1 &  "<br>" _
&"<b>Tel 2: </b>" & ftel2 &  "<br>" _
&"<b>Mail: </b>" & fmail &   "<br>" _
&"<b>Adre&#231;a: </b>" & fadreca &  "<br><br>" _
&"<b>Poblacio: </b>" & fpoblacio &  "<br>" _
&"<b>Provincia: </b>" & fprovincia &   "<br>" _
&"<b>Codi Postal: </b>" & fCP & "<br>" _
&"<b>Publi: </b>" & fpubli & "<br>"
'per enviar el correu
Set oMail = Server.CreateObject("CDO.Message")
'reemplazar aqui las variables principales
'para = "[email protected]"
para = "[email protected]"
de = fmail
asunto = "Formulari Area Candidat <b>"&fquevol&"</b>"
mensaje = sMessage
 
oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.htmlBody ="<html><body class=""text_titol_camp"" bgcolor=#ffffff>" &mensaje& "</BODY></HTML>" 
if fFitxeradjunt <> "" then
oMail.AddAttachment (aonguardo &"/"& strNombreFichero)
 
else
end if
 
 
 
 
 
 
On Error Resume Next
oMail.Send 
 
'Mail.Sendtoqueue
End sub
%>
             <%Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in request.Form
If ValidateField(objUpload.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If objUpload.Form.Count <> 0 And dictFields.Count  = 0 Then
%>
          <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br><br />
<div align="center">
           <span class="text_titol_camp"><b>Gr&agrave;cies<br>
             </b>               Aviat ens posarem amb contacte<br />
           [ <a href="#" class="contentstyle2" onclick="javascript:window.close()">Tanca la finestra</a> ]             </span>
             <%
Call Send
Set oMail = Nothing
set oFich = nothing
set objUpload = nothing
Else
ShowForm
End If
%>
</div>
</body>
</html>

[/php]