|
|
You're in the
iis smtp nntp
group:NEED HELP....!!!! How to convert this page to "CDOSYS"
iis smtp nntp:
Hello Group,
I am a web designer and I have a BIG problem in my application. My programmer is out and my client is screaming at ME. Please go to following link : http://www.excelstaffingmn.com/onlineapplication.html Which after clicking on "Submit" button goes to "http://www.excelstaffingmn.com/submitapp.asp page, which is showing a error. I talked to people which are hosting this website and they tol me that I need to change my code to "CDOSYS". NOW I have NO IDEA how to do that. SO I AM DESPERATLY looking for help here. THANKS. Naresh Here's the code for Submitapp.asp page <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = true %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Online Application</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% ' Option Explicit 'Declare the variables Dim tdate, fname, mi, lname, address, city, lststate, zip, Phone, alternate, email Dim aboutexcel, ifpermanent, shiftspref, dateavailabletowork, is18yearsorolder, modeoftrans, convictedoffelony, workenviron 'Educational History Dim schoolname, schoolcity, schoolstate, schoolcountry, graduate, major, specialskills 'Work History Dim offname, offcity, offstate, offzip, offphone, startdate, enddate, position, supervisor, jobduties, startsal, endsal, reasonforleaving 'Additional Info Dim otherinfo 'Retrieve the user information from the Form tdate = request.form("datefield") fname = request.form("txtname") mi = request.form("txtmiddle") lname = request.form("txtlastname") address = request.form("txtadd") pobox = request.form("txtpobox") city = request.form("txtcity") lststate = request.form("lststate") zip = request.form("txtzip") Phone = request.form("txtphone") alternate = request.form("txtalt") email = request.form("txtemail") aboutexcel = request.form("lstaboutexcel") ifpermanent = request.form("radiogrpperm") shiftspref = request.form("lstshift") dateavailabletowork = request.form("txtdateavailable") is18yearsorolder = request.form("lstage") modeoftrans = request.form("lsttransportation") convictedoffelony = request.form("radiogrpfelony") workenviron = request.form("radiogrpfelony") 'Retreive Educational History schoolname = request.form("txtschool") schoolcity = request.form("txtschoolcity") schoolstate = request.form("txtstate") schoolcountry = request.form("txtcountry") graduate = request.form("radiogrpgrad") major = request.form("txtmajor") specialskills = request.form("txtareaskills") 'Retreive Work History offname = request.form("txtcompanyname") offcity = request.form("txtoffcity") offstate = request.form("lstoffstate") offzip = request.form("txtoffphone") offphone = request.form("txtoffphone") startdate = request.form("txtstrtdate") enddate = request.form("txtenddate") position = request.form("txtposition") supervisor = request.form("txtsupervisor") jobduties = request.form("txtareajobduties") startsal = request.form("txtstartsal") endsal = request.form("txtendsal") reasonforleaving = request.form("txtreason") 'Retreive other info otherinfo = request.form("txtareaotherinfo") 'Create an CDONTS object Dim objCDOMail Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.To = "keaneetha@yahoo.com; nareshnaik@hotmail.com" ' the destination objCDOMail.From = "nareshnaik@hotmail.com"'email ' the sender 'Preparing Message for the Email. Dim txtmessage txtMessage = "Applicant Information" & vbCrLf txtMessage = txtMessage & "Date : " & tdate & vbcrlf txtMessage = txtMessage & "First Name : " & fname & vbcrlf txtMessage = txtMessage & "Middle Initial : " & mi & vbcrlf txtMessage = txtMessage & "Last Name : " & lname & vbcrlf txtMessage = txtMessage & "Address : " & address & vbcrlf txtMessage = txtMessage & "P O Box : " & pobox & vbcrlf txtMessage = txtMessage & "City : " & city & vbcrlf txtMessage = txtMessage & "State : " & lststate & vbcrlf txtMessage = txtMessage & "Zip : " & zip & vbcrlf txtMessage = txtMessage & "Phone : " & phone & vbcrlf txtMessage = txtMessage & "Alternate : " & alternate & vbcrlf txtMessage = txtMessage & "Email: " & email & vbcrlf txtMessage = txtMessage & "How did you learn about excel staffing ? " & aboutexcel & vbcrlf txtMessage = txtMessage & "Are you looking for permanent work now ? " & ifpermanent & vbcrlf txtMessage = txtMessage & "Shifts Preferred : " & shiftspref & vbcrlf txtMessage = txtMessage & "Date available to work : " & dateavailabletowork & vbcrlf txtMessage = txtMessage & "Are you 18 years of age or older ? " & is18yearsolder & vbcrlf txtMessage = txtMessage & "Mode of transportation : " & modeoftrans & vbcrlf txtMessage = txtMessage & "Convicted of a felony ? " & convictedoffelony & vbcrlf txtMessage = txtMessage & "Work environments in which you cannot work : " & workenviron & vbcrlf txtMessage = txtMessage & "Educational History" & vbcrlf txtMessage = txtMessage & "School Name : " & schoolname & vbcrlf txtMessage = txtMessage & "City : " & schoolcity & vbcrlf txtMessage = txtMessage & "State : " & schoolstate & vbcrlf txtMessage = txtMessage & "Country : " & schoolcountry & vbcrlf txtMessage = txtMessage & "Did you graduate : " & graduate & vbcrlf txtMessage = txtMessage & "Major : " & major & vbcrlf txtMessage = txtMessage & "Special Skills : " & specialskills & vbcrlf txtMessage = txtMessage & "Work History" & vbcrlf txtMessage = txtMessage & "Company Name : " & offname & vbcrlf txtMessage = txtMessage & "City : " & offcity & vbcrlf txtMessage = txtMessage & "State : " & offstate & vbcrlf txtMessage = txtMessage & "Zip : " & offzip & vbcrlf txtMessage = txtMessage & "Phone : " & offphone & vbcrlf txtMessage = txtMessage & "Start Date : " & startdate & vbcrlf txtMessage = txtMessage & "End Date : " & enddate & vbcrlf txtMessage = txtMessage & "Position : " & position & vbcrlf txtMessage = txtMessage & "Supervisor : " & supervisor & vbcrlf txtMessage = txtMessage & "Job Duties : " & jobduties & vbcrlf txtMessage = txtMessage & "Starting Salary : " & startsal & vbcrlf txtMessage = txtMessage & "Ending Salary : " & endsal & vbcrlf txtMessage = txtMessage & "Reason for leaving : " & reasonforleaving & vbcrlf txtMessage = txtMessage & "Other Information : " txtMessage = txtMessage & otherinfo objCDOMail.Subject = "Resume from : " & fname 'the subject objCDOMail.Body = txtMessage ' the body objCDOMail.Send 'send email Set objCDOMail = nothing Response.Redirect "confirmation.html" %> </body> </html>
Try this:
http://www.hosting.fast-trak.net/tutorials/cdosys_asp_tutorial.htm In general, you should only have to change around the CDONTS elements with CDOSYS ones. -- Christopher A. Reed "The oxen are slow, but the earth is patient." [quoted text, click to view] "Neo" <nareshnaik@hotmail.com> wrote in message
news:1142824148.589200.66460@e56g2000cwe.googlegroups.com... > Hello Group, > > I am a web designer and I have a BIG problem in my application. My > programmer is out and my client is screaming at ME. Please go to > following link : > http://www.excelstaffingmn.com/onlineapplication.html > > Which after clicking on "Submit" button goes to > "http://www.excelstaffingmn.com/submitapp.asp page, which is showing > a error. I talked to people which are hosting this website and they tol > me that I need to change my code to "CDOSYS". NOW I have NO IDEA how to > do that. SO I AM DESPERATLY looking for help here. > > THANKS. > Naresh > > > Here's the code for Submitapp.asp page > > > > <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> > <% Response.Buffer = true %> > <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" > "http://www.w3.org/TR/html4/loose.dtd"> > <html> > <head> > <title>Online Application</title> > <meta http-equiv="Content-Type" content="text/html; > charset=iso-8859-1"> > </head> > > <body> > <% > ' Option Explicit > > 'Declare the variables > Dim tdate, fname, mi, lname, address, city, lststate, zip, Phone, > alternate, email > Dim aboutexcel, ifpermanent, shiftspref, dateavailabletowork, > is18yearsorolder, modeoftrans, convictedoffelony, workenviron > 'Educational History > Dim schoolname, schoolcity, schoolstate, schoolcountry, graduate, > major, specialskills > 'Work History > Dim offname, offcity, offstate, offzip, offphone, startdate, enddate, > position, supervisor, jobduties, startsal, endsal, reasonforleaving > 'Additional Info > Dim otherinfo > > 'Retrieve the user information from the Form > tdate = request.form("datefield") > fname = request.form("txtname") > mi = request.form("txtmiddle") > lname = request.form("txtlastname") > address = request.form("txtadd") > pobox = request.form("txtpobox") > city = request.form("txtcity") > lststate = request.form("lststate") > zip = request.form("txtzip") > Phone = request.form("txtphone") > alternate = request.form("txtalt") > email = request.form("txtemail") > > > aboutexcel = request.form("lstaboutexcel") > ifpermanent = request.form("radiogrpperm") > shiftspref = request.form("lstshift") > dateavailabletowork = request.form("txtdateavailable") > is18yearsorolder = request.form("lstage") > modeoftrans = request.form("lsttransportation") > convictedoffelony = request.form("radiogrpfelony") > workenviron = request.form("radiogrpfelony") > > 'Retreive Educational History > schoolname = request.form("txtschool") > schoolcity = request.form("txtschoolcity") > schoolstate = request.form("txtstate") > schoolcountry = request.form("txtcountry") > graduate = request.form("radiogrpgrad") > major = request.form("txtmajor") > specialskills = request.form("txtareaskills") > > 'Retreive Work History > offname = request.form("txtcompanyname") > offcity = request.form("txtoffcity") > offstate = request.form("lstoffstate") > offzip = request.form("txtoffphone") > offphone = request.form("txtoffphone") > startdate = request.form("txtstrtdate") > enddate = request.form("txtenddate") > position = request.form("txtposition") > supervisor = request.form("txtsupervisor") > jobduties = request.form("txtareajobduties") > startsal = request.form("txtstartsal") > endsal = request.form("txtendsal") > reasonforleaving = request.form("txtreason") > > 'Retreive other info > otherinfo = request.form("txtareaotherinfo") > > 'Create an CDONTS object > Dim objCDOMail > Set objCDOMail = Server.CreateObject("CDONTS.NewMail") > objCDOMail.To = "keaneetha@yahoo.com; nareshnaik@hotmail.com" ' the > destination > objCDOMail.From = "nareshnaik@hotmail.com"'email ' the sender > > 'Preparing Message for the Email. > > Dim txtmessage > txtMessage = "Applicant Information" & vbCrLf > txtMessage = txtMessage & "Date : " & tdate & vbcrlf > txtMessage = txtMessage & "First Name : " & fname & vbcrlf > txtMessage = txtMessage & "Middle Initial : " & mi & vbcrlf > txtMessage = txtMessage & "Last Name : " & lname & vbcrlf > txtMessage = txtMessage & "Address : " & address & vbcrlf > txtMessage = txtMessage & "P O Box : " & pobox & vbcrlf > txtMessage = txtMessage & "City : " & city & vbcrlf > txtMessage = txtMessage & "State : " & lststate & vbcrlf > txtMessage = txtMessage & "Zip : " & zip & vbcrlf > txtMessage = txtMessage & "Phone : " & phone & vbcrlf > txtMessage = txtMessage & "Alternate : " & alternate & vbcrlf > txtMessage = txtMessage & "Email: " & email & vbcrlf > > txtMessage = txtMessage & "How did you learn about excel staffing ? " > & aboutexcel & vbcrlf > txtMessage = txtMessage & "Are you looking for permanent work now ? > " & ifpermanent & vbcrlf > txtMessage = txtMessage & "Shifts Preferred : " & shiftspref & vbcrlf > txtMessage = txtMessage & "Date available to work : " & > dateavailabletowork & vbcrlf > txtMessage = txtMessage & "Are you 18 years of age or older ? " & > is18yearsolder & vbcrlf > txtMessage = txtMessage & "Mode of transportation : " & modeoftrans & > vbcrlf > txtMessage = txtMessage & "Convicted of a felony ? " & > convictedoffelony & vbcrlf > txtMessage = txtMessage & "Work environments in which you cannot work > : " & workenviron & vbcrlf > > txtMessage = txtMessage & "Educational History" & vbcrlf > txtMessage = txtMessage & "School Name : " & schoolname & vbcrlf > txtMessage = txtMessage & "City : " & schoolcity & vbcrlf > txtMessage = txtMessage & "State : " & schoolstate & vbcrlf > txtMessage = txtMessage & "Country : " & schoolcountry & vbcrlf > txtMessage = txtMessage & "Did you graduate : " & graduate & vbcrlf > txtMessage = txtMessage & "Major : " & major & vbcrlf > txtMessage = txtMessage & "Special Skills : " & specialskills & > vbcrlf > > txtMessage = txtMessage & "Work History" & vbcrlf > txtMessage = txtMessage & "Company Name : " & offname & vbcrlf > txtMessage = txtMessage & "City : " & offcity & vbcrlf > txtMessage = txtMessage & "State : " & offstate & vbcrlf > txtMessage = txtMessage & "Zip : " & offzip & vbcrlf > txtMessage = txtMessage & "Phone : " & offphone & vbcrlf > txtMessage = txtMessage & "Start Date : " & startdate & vbcrlf > txtMessage = txtMessage & "End Date : " & enddate & vbcrlf > txtMessage = txtMessage & "Position : " & position & vbcrlf > txtMessage = txtMessage & "Supervisor : " & supervisor & vbcrlf > txtMessage = txtMessage & "Job Duties : " & jobduties & vbcrlf
I have everythin gin CDOSYS now, but now I am getting a error meesage
CDO.Message.1 error '80040220' The "SendUsing" configuration value is invalid. /submitapp.asp, line 156 Anyone knows why??
Line 156 is "ObjSendMail.Send" without quotes any ideas?
Now I have following error message :
CDO.Message.1 error '80040220' The "SendUsing" configuration value is invalid. /submitapp.asp, line 164 On line 156 I have "objSendMail.Send" Any ideas?
Look at this: http://www.sitepoint.com/print/asp-net-server-winxp-pro
Find the section that refers to your error. -- Christopher A. Reed "The oxen are slow, but the earth is patient." [quoted text, click to view] "Neo" <nareshnaik@hotmail.com> wrote in message news:1142879523.510132.152050@i39g2000cwa.googlegroups.com... >I have everythin gin CDOSYS now, but now I am getting a error meesage > > CDO.Message.1 error '80040220' > > The "SendUsing" configuration value is invalid. > > /submitapp.asp, line 156 > > > Anyone knows why?? >
Look at this: http://www.sitepoint.com/print/asp-net-server-winxp-pro
-- Christopher A. Reed "The oxen are slow, but the earth is patient." [quoted text, click to view] "Neo" <nareshnaik@hotmail.com> wrote in message news:1142918493.356190.240160@j33g2000cwa.googlegroups.com... > Now I have following error message : > > CDO.Message.1 error '80040220' > The "SendUsing" configuration value is invalid. > /submitapp.asp, line 164 > > > On line 156 I have "objSendMail.Send" > > > Any ideas? >
Don't see what you're looking for? Try a search.
|
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
December 2007
January 2008
February 2008
March 2008
April 2008
May 2008
June 2008
| home · blog · groups | Questions? Comments? Contact the dn |