Microsoft VBScript runtime (0x800A01A8)
I am facing this problem
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/hca/careers.asp, line 110
carrier.asp
<body>
<%
flage="t"
sName=Request.form("txtName")
sEmail=Request.form("txtEmailId")
phone=Request.form("txtphone")
post=Request.form("postappliedfor")
cv=request.form("T2")
dim b
dim a
b=split(cv,".")
a=split(cv,"\")
'response.Write(a(4))
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.abc.com"
.Item(cdoSMTPServerPort)=25
.Item(cdoSMTPAuthenticate) = 1
.Item(cdoSendUsername) = "test@abc.com"
.Item(cdoSendPassword) = "test123"
.Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = sName&"<"&semail&">"
cdoMessage.To = "pkgupta@gmail.com"
for each file in Upload.Files
fn=File.ExtractFilename
cdoMessage.AddAttachment Server.MapPath(fn),fn
next
if(b(1)="doc") then
.Subject = subject
.htmlBody = sMsg
.Send
flage="t"
else
flage="f"
end if
cdoMessage.Subject = "Application from "&sName
cdoMessage.HTMLBody =sMsg
cdoMessage.Send
End With
If Err.Number = 0 Then
Response.Write("Mail sent!")
Else
Response.Write("Error sending mail. Code: " & Err.Number)
Err.Clear
End If
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
please help me
|
Linear Mode
