% submitted = TRIM( Request( "submitted" ) ) ' Check for Required Values IF submitted <> "" THEN 'processing here 'pageurl=Request.ServerVariables("HTTP_REFERER") 'If Request.Form("FrmName") = "askmurali" THEN Call SendMail 'End If Sub CheckValid(MyStr) MyStr = Replace(MyStr, "'", "''") If MyStr = "" THEN MyStr = " " End If End Sub Sub SendMail() Dim strFromName, strFromEmail, strQuestion,strSubject,strToname,strToemail, strComments, strBg strFromName = Request.form("txtname") strFromEmail = Request.form("txtemail") strComments = Request.form("comments") strSubject = strFromName & " recommends the international gateway to jobs." Call CheckValid(strFromName) Call Checkvalid(strFromEmail) Call CheckValid(strComments) I = 1 Do While True strToemail = Request.Form("txtFremail" & I) strToname = Request.Form("txtFrname" & I) If Len(strToemail) = 0 Then Exit Do Else strBody = vbCrLf & vbCrLf & "Hi " & strToname & " ," & vbCrLf & vbCrLf strBody = strBody & " I visited http://www.careermosaicindia.com/ today and felt that its a cool jobsite." strBody = strBody & "It has current jobs in 12 countries including the USA, UK, Canada, France, Australia, New Zealand, Japan, Singapore, Korea, India etc. " strBody = strBody & "from employers like Coca Cola, IBM, Macromedia, Reebok, Honeywell, Nestle, Oracle, Reuters, Ericsson, Hewlett Packard, Pepsi, Nokia, " strBody = strBody & "Samsung, Sony, Lucent Technologies, Motorola, Intel, Disney, Sun Microsystems, Citibank, Johnson & Johnson, GE, Canon, Talisma, Dell and many more ...." & vbCrLf & vbCrLf strBody = strBody & "Check it out at http://www.careermosaicindia.com/" & vbCrLf & vbCrLf strBody = strBody & strComments & vbCrLf & vbCrLf strBody = strBody & "Regards" & vbCrLf strBody = strBody & strFromName & vbCrLf & vbCrLf strBody = strBody & "http://www.CareerMosaicIndia.com " & vbCrLf strBody = strBody & "Your gateway to jobs in 12 countries across the globe." & vbCrLf Call SendMailUsingSMTPsvg(strFromName,strFromEmail,strToname,strToemail,strSubject,strBody,AttachFile,CC) Response.Redirect "RThanks.asp" 'Response.Redirect ""&CMI_JOBCENTRE_JOBGALLERYROOT&"jobsgallery.htm" End If I=I+1 Loop End Sub END IF %>
|
Feedback
|
||||||||||
|
||||||||||
|
|
About
us |
Tour
| Press
section |
Partners
| Terms
of use |
Advertise
with us | Contact
us | Privacy
policy|
Disclaimer
|
Feedback |
Join Us
| Recommend
us
|
|||||||||||
|
This
site is best viewed with Microsoft Internet Explorer
|
|||||||||||
|
Copyright
� - 2001 CareerCommunity.com Ltd. All rights reserved. Disclaimer.
|