Quantcast
Channel: Troubleshooting
Viewing all articles
Browse latest Browse all 1814

Help Me Plzzzzzzzzzzzzzzzzz

$
0
0

hi all i have problem in my site on Career page . when some one upload cv and send application the mail it reaching to HR mail without any attachment i haven't experienced in ASP plz help me i copied source code from Career.aspFrown

<%@ codepage=1256%>
<!-- #include file="Content/inc_db.asp" -->
<%
set Conn=server.createobject("ADODB.Connection")
Conn.open ConnString
%>
<!-- #include file="Content/inc_functions.asp" -->

<!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>

  <!-- #include file="Content/setting.asp" -->
      <style>
<!--
body{display:none;}body{display:block !important;}body {font-family:Segoe UI, Tahoma,Verdana,Arial,sans-serif;line-height:normal;}BODY{font-size:83%}body.Win6 {font-family:Segoe UI, Tahoma,Verdana,Arial,sans-serif;line-height:normal;}BODY.IE{cursor:progress;}.App .Middle {font-size:90%}.ExternalClass {font-family:Segoe UI, Tahoma,Verdana,Arial,sans-serif;line-height:normal;}.ExternalClass{font-size:10pt;}-->

</style>
</head>


<body >
    <div align="center">
 
 <div > <!-- #include file="Banner.asp" --></div>
 
  <div > <!-- #include file="upmenu.asp" --></div>

        <br />
        <!-- Start-Code -->
         <div >  
         <br />
         <br />
         <br />
         <br />
         
         <table width="950" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="left" valign="top" width="129">
    
    

    
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<%
            tname=request.form("tname")
            tage=request.form("tage")
            tuni=request.form("tuni")
                tunii=request.form("tunii")
                uplod=request.form("uplod")
                
         
            
            if tname="" or tage="" or tuni="" or tunii="" or uplod=""then
            %>
                <font color="#FF0000">Please don't leave fields empty </font>
                <p>
                
                
                
            <%
            else
 

Dim ObjectSendMail
Dim Conf
Dim Fields

Set Mail = CreateObject("CDO.Message")

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") =***********
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =***********
Mail.Configuration.Fields.Update
Mail.Subject="Website: Resume to HR"
Mail.From=******
Mail.To=*******

    MyBody = "My Name is:  " & tname  &  vbCrLf & "My Phone:  " & tage &  vbCrLf & "My Email:  " & tuni & vbCrLf & "Job Title:  " & tunii  &  vbCrLf & "Resume:  " & uplod  &  vbCrLf

                

Mail.TextBody = MyBody

Mail.AddAttachment  


Mail.Send
Set Mail = Nothing    
                            

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

if Err.Number<> 0 then
    response.write Err.Description
    'response.redirect "test.asp"
else
    response.write "Your comment / request has been successfully submitted. It will be forwarded to the concerned department and we will reply to you as soon as possible. Meanwhile please take some time to explore our website and social networks."
    'response.redirect "test.asp"
end if
%><%
            end if     
            %>




</td>
    </tr>
    </table>


         
         </div>
<!-- End-Code -->
<br />
<br />
<br />
<br />
<br />

 
 <div > <!-- #include file="downmenu.asp" --></div>
    
</div>
</map></body>
</html>
<%
Conn.close
set Conn=nothing
%>


Viewing all articles
Browse latest Browse all 1814

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>