|
АНКЕТА - СОИСКАТЕЛЯ
НА ПОИСК РАБОТЫ В РОССИИ ДЛЯ ИНОСТРАННЫХ СПЕЦИАЛИСТОВ
(размещение резюме)
<%function repdblquot(sText)
if sText<>"" then repdblquot = replace(sText,"""",""")
end function
function repquot(sText)
if sText<>"" then
repquot_result = Replace(sText,"'","''")
repquot_result = Replace(repquot_result,"<","<")
repquot_result = Replace(repquot_result,">",">")
repquot=repquot_result
end if
end function
IF request("mod")="post_data" THEN
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
foto_string=""
mySmartUpload.AllowedFilesList = "jpg,gif,bmp,png"
mySmartUpload.upload
if mySmartUpload.Files.TotalBytes>0 Then
file_name1=replace(mySmartUpload.Files.Item(1).FileName," ","_")
'mySmartUpload.files.Item(1).Saveas "d:\home\mmc-rspp\html\photos\resume_photo\"&file_name1&""
'file_name=replace(mySmartUpload.Files.Item(1).FileName," ","_")
dates= ""&date/time&"_"&file_name1&""
mySmartUpload.files.Item(1).Saveas "d:\home\mmc-rspp\html\photos\resume_photo\"&dates&""
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'file_name=replace(mySmartUpload.Files.Item(1).FileName," ","_")
Set MyImage = Server.CreateObject("AspImage.Image")
'filename of original image w/ extension
Dim strOrigImg
strOrigImg = ""&dates&""
'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "min_"&dates&""
'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath ="d:\home\mmc-rspp\html\photos\resume_photo\"
'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = "d:\home\mmc-rspp\html\photos\resume_photo\"
Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName
'load original image
MyImage.LoadImage strOriginal
'Set Resize factor for X
ResizedX = 113
'Get orignal size of image
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y
'MyImage.JPEGQuality = 90
%>
<% If X > 250 Then %>
<%
'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY
'saving thumbnail to disk
MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage
'MyImage.AutoClear = true
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "d:\home\mmc-rspp\html\photos\resume_photo\"&dates&""
name_foto = ""&strThumbName&""
%>
<% Else %>
<% name_foto = ""&dates&""
end If %>
<%
foto_string="![]() "
end if
if mySmartUpload.Form("ur_email").Values<>"" then from_ad=mySmartUpload.Form("ur_email").Values else from_ad="postmaster@mmc-rspp.ru"
Set objMail = CreateObject("EasyMail.SMTP")
objMail.MailServer = "mmc-rspp.ru"
objMail.FromAddr = from_ad
objMail.AddRecipient "", "interjob@mmc-rspp.ru", 1
objMail.AddRecipient "Master", "", 2
if mySmartUpload.Files.TotalBytes>0 then add_atach=objMail.AddAttachment ("d:\home\mmc-rspp\html\photos\resume_photo\"&name_foto&"", 0)
objMail.Subject = "Анкета соискателя на поиск работы в России"
objMail.CharSet = "windows-1251"
objMail.BodyFormat = 1
Header=""& chr(13)& chr(10)&_
""
s_sex="не указан"
if mySmartUpload.Form("s_sex").Values="m" then s_sex="мужской"
if mySmartUpload.Form("s_sex").Values="f" then s_sex="женский"
if mySmartUpload.Form("s_grazhd_other").Values<>"" then s_grazhd=mySmartUpload.Form("s_grazhd_other").Values else s_grazhd=mySmartUpload.Form("s_grazhd").Values
BodyText="АНКЕТА-СОИСКАТЕЛЯ НА ПОИСК РАБОТЫ В РОССИИ
СВЕДЕНИЯ О СОИСКАТЕЛЕ:"& chr(13)& chr(10)&_
"| Фамилия: | "& mySmartUpload.Form("s_familiya").Values& " | "&foto_string&" | " & chr(13)& chr(10)&_
"| Имя: | "& mySmartUpload.Form("s_name").Values& " | "& chr(13)& chr(10)&_
"| Отчество: | "& mySmartUpload.Form("s_otchestvo").Values& " | "& chr(13)& chr(10)&_
"| Дата рождения: | "& mySmartUpload.Form("s_birth_date").Values& " | "& chr(13)& chr(10)&_
"| Пол: | "& s_sex & " | "& chr(13)& chr(10)&_
"| Страна гражданства: | "& s_grazhd &" | "& chr(13)& chr(10)& chr(13)& chr(10)&_
"| Адрес и телефон в стране гражданства: | "& mySmartUpload.Form("s_grazhd_address").Values& " | "& chr(13)& chr(10)&_
" "
BodyText=BodyText+"
СВЕДЕНИЯ О ПРОЖИВАНИИ В НАСТОЯЩЕЕ ВРЕМЯ:"& chr(13)& chr(10)&_
"| Страна: | "& mySmartUpload.Form("now_country").Values& " | " & chr(13)& chr(10)&_
"| Адрес: | "& mySmartUpload.Form("now_address").Values& " | "& chr(13)& chr(10)&_
"| Город: | "& mySmartUpload.Form("now_city").Values& " | "& chr(13)& chr(10)&_
"Телефон с региональным
или международным кодом: | "& mySmartUpload.Form("now_phone").Values& " | " & chr(13)& chr(10)&_
"| Адрес электронной почты: | "& mySmartUpload.Form("now_email").Values &" | " & chr(13)& chr(10)&_
" "
if mySmartUpload.Form("job_sphere_other").Values<>"" then job_sphere=mySmartUpload.Form("job_sphere_other").Values else job_sphere=mySmartUpload.Form("job_sphere").Values
if mySmartUpload.Form("job_specialnost_other").Values<>"" then job_specialnost=mySmartUpload.Form("job_specialnost_other").Values else job_specialnost=mySmartUpload.Form("job_specialnost").Values
job_job_type_day="не указан"
if mySmartUpload.Form("job_job_type_day").Values="1" then job_job_type_day="полный"
if mySmartUpload.Form("job_job_type_day").Values="2" then job_job_type_day="неполный"
job_job_type="не указан"
if mySmartUpload.Form("job_job_type").Values="1" then job_job_type="постоянная"
if mySmartUpload.Form("job_job_type").Values="2" then job_job_type="временная"
BodyText=BodyText+"
ИНФОРМАЦИЯ О ТРЕБУЕМОЙ РАБОТЕ:"& chr(13)& chr(10)&_
"| Город в РФ, в котором ищется работа: | "& mySmartUpload.Form("job_city_job").Values& " | " & chr(13)& chr(10)&_
"| Отрасль: | "& job_sphere & " | "& chr(13)& chr(10)&_
"| Специальность: | "& job_specialnost & " | "& chr(13)& chr(10)&_
"| Заработная плата: | "& mySmartUpload.Form("job_zp").Values & " | " & chr(13)& chr(10)&_
"| Условия работы: | | "& chr(13)& chr(10)&_
"| рабочий день: | "& job_job_type_day & " | "& chr(13)& chr(10)&_
"| вид работы: | "& job_job_type & " | "& chr(13)& chr(10)&_
"| Дата когда соискатель готов приступить к работе: | "& mySmartUpload.Form("job_job_start_day").Values & " | "& chr(13)& chr(10)&_
" "
add_appart_req=""
if mySmartUpload.Form("add_appart_req").Values="y" then add_appart_req="Да"
if mySmartUpload.Form("add_appart_req").Values="n" then add_appart_req="Нет"
add_appart_descr=repdblquot(mySmartUpload.Form("add_appart_descr").Values)
set rgexp = new Regexp
rgexp.Pattern=chr(13)&chr(10)
rgexp.Ignorecase=false
rgexp.Global=true
if rgexp.Test(add_appart_descr) then
for i=0 to 2
set matches = rgexp.Execute(add_appart_descr)
if matches.count=0 then exit for
i=0
for Each aMatch in matches
other_left=left(add_appart_descr, aMatch.FirstIndex)
other_right=right(add_appart_descr,(len(add_appart_descr)-(aMatch.FirstIndex+2)))
other_new=other_left&"
"&other_right
exit for
next
add_appart_descr=other_new
next
end if
add_job_order=""
if mySmartUpload.Form("add_job_order").Values="y" then add_job_order="да"
if mySmartUpload.Form("add_job_order").Values="n" then add_job_order="нет"
add_reg_order=""
if mySmartUpload.Form("add_reg_order").Values="y" then add_reg_order="да"
if mySmartUpload.Form("add_reg_order").Values="n" then add_reg_order="нет"
BodyText=BodyText+"
ДОПОЛНИТЕЛЬНЫЕ ТРЕБОВАНИЯ К РАБОТОДАТЕЛЮ:"& chr(13)& chr(10)&_
"| Требуется ли вам проживание: | "& add_appart_req & " | " & chr(13)& chr(10)&_
"| Требования к условиям проживания: | | "& chr(13)& chr(10)&_
""& add_appart_descr & "
| "& chr(13)& chr(10)&_
"| Требуется ли оформление работодателем разрешения на работу: | "& add_job_order & " | "& chr(13)& chr(10)&_
"| Требуется ли оформление регистрации по месту пребывания в РФ: | "& add_reg_order & " | " & chr(13)& chr(10)&_
" "
info_edu_descr=repdblquot(mySmartUpload.Form("info_edu_descr").Values)
set rgexp = new Regexp
rgexp.Pattern=chr(13)&chr(10)
rgexp.Ignorecase=false
rgexp.Global=true
if rgexp.Test(info_edu_descr) then
for i=0 to 2
set matches = rgexp.Execute(info_edu_descr)
if matches.count=0 then exit for
i=0
for Each aMatch in matches
other_left=left(info_edu_descr, aMatch.FirstIndex)
other_right=right(info_edu_descr,(len(info_edu_descr)-(aMatch.FirstIndex+2)))
other_new=other_left&"
"&other_right
exit for
next
info_edu_descr=other_new
next
end if
info_job_descr=repdblquot(mySmartUpload.Form("info_job_descr").Values)
set rgexp = new Regexp
rgexp.Pattern=chr(13)&chr(10)
rgexp.Ignorecase=false
rgexp.Global=true
if rgexp.Test(info_job_descr) then
for i=0 to 2
set matches = rgexp.Execute(info_job_descr)
if matches.count=0 then exit for
i=0
for Each aMatch in matches
other_left=left(info_job_descr, aMatch.FirstIndex)
other_right=right(info_job_descr,(len(info_job_descr)-(aMatch.FirstIndex+2)))
other_new=other_left&"
"&other_right
exit for
next
info_job_descr=other_new
next
end if
info_comments=repdblquot(mySmartUpload.Form("info_comments").Values)
set rgexp = new Regexp
rgexp.Pattern=chr(13)&chr(10)
rgexp.Ignorecase=false
rgexp.Global=true
if rgexp.Test(info_comments) then
for i=0 to 2
set matches = rgexp.Execute(info_comments)
if matches.count=0 then exit for
i=0
for Each aMatch in matches
other_left=left(info_comments, aMatch.FirstIndex)
other_right=right(info_comments,(len(info_job_descr)-(aMatch.FirstIndex+2)))
other_new=other_left&"
"&other_right
exit for
next
info_comments=other_new
next
end if
BodyText=BodyText+"
ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ:"& chr(13)& chr(10)&_
"| Образование: | | "& chr(13)& chr(10)&_
""& info_edu_descr & "
| "& chr(13)& chr(10)&_
"| Опыт работы: | | "& chr(13)& chr(10)&_
""& info_job_descr & "
| "& chr(13)& chr(10)&_
"| Знание иностранных языков: | "& mySmartUpload.Form("info_langs").Values & " | "& chr(13)& chr(10)&_
"| Знание ПК: | "& mySmartUpload.Form("info_pc") & " | "& chr(13)& chr(10)&_
"| Дополнительная информация: | | "& chr(13)& chr(10)&_
"| "& info_comments & " | "& chr(13)& chr(10)&_
" "
BodyText=BodyText+""
objMail.BodyText = Header+BodyText
mail_sent=objMail.Send
if mail_sent<>0 then
Response.Write "
При отправке запроса произошла ошибка!
Отправьте пожалуйста на адрес следующий текст:
"& Request.ServerVariables("PATH_INFO") &"
Mail failure occured. Reason: " & mail_sent
else
%>
<%
'Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'mySmartUpload.Upload
fio=repquot(mySmartUpload.Form("s_familiya").Values)
dolzhnost=repquot(mySmartUpload.Form("dolzhnost").Values)
if mySmartUpload.Form("job_sphere_other").values<>"" then
sphere=repquot(mySmartUpload.Form("job_sphere_other").values)
else
sphere=repquot(mySmartUpload.Form("job_sphere").values)
end if
if mySmartUpload.Form("job_specialnost_other").values<>"" then
specialnost=repquot(mySmartUpload.Form("job_specialnost_other").values)
else
specialnost=repquot(mySmartUpload.Form("job_specialnost").values)
end if
if mySmartUpload.Form("s_grazhd_other").Values<>"" then grazhdanstvo=repquot(mySmartUpload.Form("s_grazhd_other").Values) else grazhdanstvo=repquot(mySmartUpload.Form("s_grazhd").Values)
s_sex="не указан"
if mySmartUpload.Form("s_sex").values="m" then s_sex="мужской"
if mySmartUpload.Form("s_sex").values="f" then s_sex="женский"
edu=repquot(mySmartUpload.Form("info_edu_descr").values)
expir=repquot(mySmartUpload.Form("info_job_descr").values)
prof_nav=repquot(mySmartUpload.Form("info_comments").values)
CommandText="INSERT INTO resume_mmc (pub_date,fio,dolzhnost,otrasl,specialnost,grazhdanstvo,age,salary,sex,job_graph,zanatost,city,edu,exp,prof_nav,lang,s_birth_date,s_grazhd_address,now_country,now_address,now_phone,now_email,job_city_job,job_job_start_day,add_appart_req,add_appart_descr,add_reg_order,ur_lang,info_pc,add_job_order) VALUES (convert(smalldatetime,'"&mySmartUpload.Form("pub_date").values&"',104),'"&fio&"','"&dolzhnost&"','"&sphere&"','"&specialnost&"','"&grazhdanstvo&"','"&mySmartUpload.Form("age").values&"','"&mySmartUpload.Form("job_zp").values&"','"&s_sex&"','"&mySmartUpload.Form("job_job_type_day").values&"','"&mySmartUpload.Form("job_job_type").values&"','"&mySmartUpload.Form("now_city").values&"','"&edu&"','"&expir&"','"&prof_nav&"','"&mySmartUpload.Form("lang").values&"','"&mySmartUpload.Form("s_birth_date").values&"','"&mySmartUpload.Form("s_grazhd_address").values&"','"&mySmartUpload.Form("now_country").values&"','"&mySmartUpload.Form("now_address").values&"','"&mySmartUpload.Form("now_phone").values&"','"&mySmartUpload.Form("now_email").values&"','"&mySmartUpload.Form("job_city_job").values&"','"&mySmartUpload.Form("job_job_start_day").values&"','"&mySmartUpload.Form("add_appart_req").values&"','"&mySmartUpload.Form("add_appart_descr").values&"','"&mySmartUpload.Form("add_reg_order").values&"','"&mySmartUpload.Form("info_langs").values&"','"&mySmartUpload.Form("info_pc").values&"','"&mySmartUpload.Form("add_job_order").values&"')"
conn.execute(CommandText)
if not(mySmartUpload.Files.Item("foto").IsMissing) Then
set oRs1 = conn.execute("select IDENT_CURRENT('resume_mmc') last_rec")
' Set objFSO = CreateObject("Scripting.FileSystemObject")
'objFSO.DeleteFile "d:\home\mmc-rspp\html\photos\resume_photo\"&dates&""
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = conn
oRs.Source = "SELECT id, FILEname, file_ct, foto FROM resume_mmc where Id="&ors1("last_rec")
oRs.CursorType = 3
oRs.LockType = 3
oRs.Open
oRs("FILENAME") = ""&name_foto&""
oRs.Update
%>
<% End If %>
Ваша заявка выслана менеджеру Межгосударственного Миграционного Центра.
В ближайшее время мы свяжемся с Вами для уточнения деталей.
<%end if
else%>
РЕКОМЕНДАЦИИ ПО ЗАПОЛНЕНИЮ АНКЕТЫ !!!!!!!
УВАЖАЕМЫЕ СОИСКАТЕЛИ НА ПОИСК РАБОТЫ В РОССИИ!!!!
для того чтобы ваша анкета была рвссмотрена, просим вас,
соблюдать наши рекомендации по заполнению анкеты:
1. Поля отмеченные символом  обязательны для заполнения.
2. Не забудьте указать хотя бы один контактный телефон и обязательно адрес e-mail;
3. Обязательно указывайте вашу дату рождения, для определения вашего возраста;
4. Обязательно указывайте ваше гражданство;
5. Обязательно указывайте ваше образование,когда и что заканчивали;
6. Обязательно подробно опишите ваш опыт работы и вашу квалификацию,
с указанием компаний где работали, датой начала и окончания работы в компании,
должностей и обязанностей.
7. Обязательно вставляете ваше фото, большинство работодателей рассматривает
анкеты только при наличии фотографии .
<%end if%>
|
|
