 |
<%
S=request.querystring("s")
Select Case S
case 1
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strConn
%>
Abajo están publicadas las ofertas de trabajo disponibles: <%= request("catname") %>
<%
Set rsJobs = Server.CreateObject("ADODB.Recordset")
strParms=request("id") &"," & siteId
Sql="SELECT * FROM jobs WHERE cat=" &request("id")& " AND active=1 and" & " siteid=" & siteid
'Set rsJobs = oConn.Execute("exec sp_jobs_item " & strParms )
rsJobs.Open sql, oConn, adOpenStatic,adLockReadOnly,adCmdText
if rsJobs.eof then
%>
Lo sentimos, pero no hay ofertas disponibles para la categoría escogida. Por favor escoge otraback
to search
<% else
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
rsJobs.PageSize = 2
rsJobs.AbsolutePage = intPage
intRecCount = rsJobs.PageSize
intPageCount = rsJobs.PageCount
response.write "Your search results " & rsJobs.recordcount & " record(s), this is page " & intPage &" of " & intPageCount & " page(s)
"
Do While ((Not rsJobs.EOF) And (intRecCount > 0))
%>
| Posición: |
<%=rsJobs("title")%> |
| Descripción:
|
<%=rsJobs("descr")%> |
| Salario:
|
<%=rsJobs("salary")%> |
| Fecha de Inicio:
|
<%=rsJobs("start_date")%> |
| Contacto:
|
<%=rsJobs("contact")%>
<% if rsJobs("contact_email")<>null or rsJobs("contact_email")<>"" then %>
("><%=rsJobs("contact_email")%>)
<% end if %>
|
| # de Posiciones:
|
<%=rsJobs("no_pos")%> |
| Características Deseadas
|
<%=rsJobs("qualifications")%> |
| Ubicación:
|
<%=rsJobs("location")%> |
| Instrucciones Especiales:
|
<%=rsJobs("special")%> |
| Categoría: |
<%=request("catname")%> |
| |
Si estás interesado en esta posición, por favor llena y envía ?s=2&jid=<%=rsJobs("id")%>">nuestra
solicitud. |
<% intRecCount = intRecCount - 1
rsJobs.movenext
Loop
end if
%>
<% Response.Write "Page "
For intNum = 1 To intPageCount
if int(intNum)<>int(intPage) then
Response.Write "" & intNum & " "
else
Response.Write ""& intNum &" "
end if
Next
Response.Write "
Regresar"
set rsJobs=nothing
set oConn =nothing
%>
<% case 2 %>
<%
required="*"
%>
Solicitud de Empleo.
<% set oConn = nothing
case 3
dim filePathName(1), fileName(1), value(1), byteCount, RequestBin
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
Fname = UploadRequest.Item("fname").Item("Value")
Lname = UploadRequest.Item("lname").Item("Value")
address = UploadRequest.Item("address").Item("Value")
city = UploadRequest.Item("city").Item("Value")
prov = UploadRequest.Item("prov").Item("Value")
postal = UploadRequest.Item("postal").Item("Value")
day_phone = UploadRequest.Item("day_phone").Item("Value")
eve_phone = UploadRequest.Item("eve_phone").Item("Value")
cell_phone = UploadRequest.Item("cell_phone").Item("Value")
fax = UploadRequest.Item("fax").Item("Value")
email = UploadRequest.Item("email").Item("Value")
full_part = UploadRequest.Item("full_part").Item("Value")
income = UploadRequest.Item("income").Item("Value")
available = UploadRequest.Item("available").Item("Value")
relocate = UploadRequest.Item("relocate").Item("Value")
comments = UploadRequest.Item("comments").Item("Value")
headline = UploadRequest.Item("headline").Item("Value")
objective = UploadRequest.Item("objective").Item("Value")
technical = UploadRequest.Item("technical").Item("Value")
accomplishments = UploadRequest.Item("accomplishments").Item("Value")
education = UploadRequest.Item("education").Item("Value")
current_position = UploadRequest.Item("current_position").Item("Value")
experience = UploadRequest.Item("experience").Item("Value")
filepathname(0) = UploadRequest.Item("upfile").Item("FileName")
filename(0) = Right(filepathname(0),Len(filepathname(0))-InstrRev(filepathname(0),"\")) '"
value(0) = UploadRequest.Item("upfile").Item("Value")
dim scriptObject, Myfile
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
dim j, strPPath
strPPath = server.mappath(Request.ServerVariables("PATH_INFO"))
strPPath = left(strPPath, instr(strPPath, "jobs.asp")-1)
if (filename(0)<>"" or filename(0)<>null) then 'delete old ones
'first find old ones
set resumeFolder=ScriptObject.GetFolder(strPPath&"resumes")
For each objFile in resumeFolder.files
if InStr(objfile.name,email)>0 then
resumefile=objfile.name
ScriptObject.deletefile strPPath&"resumes"&"/"&objfile.name
end if
Exit for
next
Set MyFile = ScriptObject.CreateTextFile(strPPath&"resumes"&"/"&email &filename(0),true)
For i = 1 to LenB(value(j))
MyFile.Write chr(AscB(MidB(value(j),i,1)))
Next
MyFile.Close
fpath="resumes"&"/"&email &filename(0)
else
fpath=""
end if
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strConn
Set rsJobsEmail = Server.CreateObject("ADODB.Recordset")
strParms="'" & email& "'" & ", " & siteId
Set rsJobsEmail = oConn.Execute("exec sp_jobs_email " & strParms )
today=date()
upperbound=99999
lowerbound=1112
pass=Int((upperbound - lowerbound + 1) * Rnd)
strParms="'" & encode(Fname) &"',"& "'" & encode(Lname) &"',"& "'" & encode(fpath) &"'," & "'" & date() &"',"& "'" & encode(address) &"',"& "'" & encode(city) &"',"& "'" & encode(prov) & " ',"& "'" & encode(postal) &"',"& "'" & encode(day_phone) &"',"& "'" & encode(eve_phone) &"',"& "'" & encode(cell_phone) &"',"& "'" & encode(fax) & "',"& "'" & encode(email) &"',"& "'" & encode(headline) &"',"& "'" & encode(objective) &"',"& "'" & encode(technical) &"',"& "'" & encode(accomplishments) &"',"& "'" & encode(education) &"',"& "'" & encode(current_position) &"',"&"'" & encode(experience) &"',"& "'" & encode(full_part) &"',"& "'" & encode(income) &"',"& "'" & encode(available) &"',"& "'" & encode(relocate) & "','" & encode(comments) &"',"& "'" & encode(pass) & "'," & siteid
if rsJobsEmail.eof then
'then write to jobseekers table
set rs = Server.CreateObject("ADODB.Recordset")
set oCmdAll = Server.CreateObject("ADODB.Command")
oCmdAll.ActiveConnection = oConn
oConn.Execute("exec sp_insert_jobseeker " & strParms )
rsJobsMaxid = Server.CreateObject("ADODB.Recordset")
strParms=siteId
Set rsJobsMaxid = oConn.Execute("exec sp_choose_Maxid " & strParms )
js_id=rsJobsMaxid("maxid")
set rsJobsMaxid=nothing
else
js_id=rsJobsEmail("id")
'update the seeker information in database
strParms=strParms &"," & js_id
oConn.Execute("sp_update_seeker" & strParms)
'Add a tracer for this application - which job, which jobseeker, etc.
jid=request.querystring("jid")
strParms=jid &"," & js_id& ",'" & date() & "'," &" 0, 0," & siteid
Sql="INSERT INTO applications (job_id, jobseeker_id, date_submitted, readz, consider,siteid) VALUES (" & jid &"," & js_id& ",'" & date() & "'," &" 0, 0," & siteid &")"
oConn.Execute Sql
'oConn.Execute ("sp_insert_application" & strParms)
'Get some of the Job Posting details to include in the emails that get sent out
rsJobsJid = Server.CreateObject("ADODB.Recordset")
strParms=jid &"," & siteId
Set rsJobsJid = oConn.Execute("exec sp_Job_Jid " & strParms )
jtitle=rsJobsJid("title")
Contact=rsJobsJid("contact")
contact_email=rsJobsJid("contact_email")
if email="" or email="" then
email="no_email@worldsites.net"
end if
DIM myMail
SET myMail = Server.CreateObject("CDONTS.Newmail")
myMail.From =email
myMail.To =reception_email
myMail.Subject = "Job Application-" & jtitle
Body1="Dear :" & contact & VbCrlf
Body1=Body1 & "Reporte de Solicitudes de " &jtitle & VbCrlf
Body1=Body1 &"Solicitante Reporte :"
Body=Body & Fname &" "& Lname& VbCrlf
Body=Body & address & VbCrlf
Body=Body & city &" " & prov& VbCrlf
Body=Body & postal & VbCrlf
Body=Body &"Teléfono Oficina:" &day_phone & VbCrlf
Body=Body &"Teléfono Casa:" & eve_phone& VbCrlf
Body=Body &"Celular: " & cell_phone& VbCrlf
Body=Body &"Fax:" & fax& VbCrlf
Body=Body &"Email:" & email& VbCrlf
Body=Body &"Tiempo Completo / Medio Tiempo:" & full_part& VbCrlf
Body=Body &"Salario: " & income& VbCrlf
Body=Body &"hay :" & available& VbCrlf
Body=Body &"Dispuesto :" & relocate& VbCrlf & VbCrlf
Body=Body &"Encabezado " & headline& VbCrlf
Body=Body &"Objetivos " &objective& VbCrlf & VbCrlf
Body=Body &"Habilidades Técnicas:"& VbCrlf
Body=Body & technical& VbCrlf & VbCrlf
Body=Body &"Logros:"& VbCrlf
Body=Body &accomplishments & VbCrlf
Body=Body &"Educación:"& VbCrlf
Body=Body &education& VbCrlf & VbCrlf
Body=Body &"Empleo Actual:"
Body=Body ¤t_position& VbCrlf & VbCrlf
Body=Body &"Experiencia" & VbCrlf
Body=Body &experience& VbCrlf & VbCrlf
Body=Body & "Comentarios:"& VbCrlf
Body=Body & comments
myMail.Body = Body1 & Body
if (filename(0)<>"" or filename(0)<>null) then
myMail.AttachFile (strPPath&"resumes"&"/"&email &filename(0))
end if
myMail.Send
SET myMail = Nothing
'send response e mail to the user
SET myMail = Server.CreateObject("CDONTS.Newmail")
myMail.From =company_email
myMail.To =email
myMail.Subject = "Gracias " & jtitle
Body2="Gracias " & Fname &" "& Lname & VbCrlf
Body2=Body2 & " tu solicitud para " & jtitle & "fue enviada exitosamente"& VbCrlf
Body2=Body2 & "Diariamente recibimos una gran cantidad que evaluamos de acuerdo a nuestros requerimientos. Tu solicitud se evaluará y la almacenaremos en nuestra base de datos. ."& VbCrlf & VbCrlf
Body2=Body2 &"Nosotros te contactaremos pronto:"& VbCrlf
Body2=Body2 &VbCrlf
Body2=Body2 & "Saludos Cordiales."& VbCrlf
Body2=Body2 &contact & VbCrlf
Body2=Body2 &company_name & VbCrlf
Body2=Body2 &company_url & VbCrlf
myMail.Body = Body2
myMail.Send
SET myMail = Nothing
end if
%>
<%
if fname<>"" or fname<>null then %> Gracias, <%= fname%>, <% else %> Gracias, <% end if %> por tu solicitud para la posición
of <%=jtitle%> with <%= company_name %>
Como podrás imaginar, diariamente recibimos una gran cantidad de solicitudes para esta posición.
Si eres escogido para una entrevista, nosotros te contactaremos pronto.
Gracias,
<%=contact %>
<%=company_name %>
<%=company_url %>
>Regresar
|
<%
Case 4
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
keywords=request("keywords")
if keywords<>null or keywords<>"" then
strcondition=stringdelimter(keywords)
strst="select * from jobs where "& strcondition &" and siteid=" & siteid
else
strst="select * from jobs where siteid=" & siteid & " order by title"
end if
%>
<%
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strConn
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strst, oConn, adOpenStatic,adLockReadOnly,adCmdText
if rs.eof then %>
Lo sentimos! No hay ofertas disponibles que contengan las palbras clave que elegiste. Por favor has una nueva búsqueda o regresa en otra ocasión para checar actualizaciones. Regresar
to search. |
<% else
rs.PageSize = 2
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
response.write "
Tus resultados de búsqueda " & rs.recordcount & " record(s), this is page " & intPage &" of " & intPageCount & " page(s)
"
Do While ((Not rs.EOF) And (intRecCount > 0))
%>
| Posición: |
<%=rs("title")%> |
| Descripción:
|
<%=rs("descr")%> |
| Salario:
|
<%=rs("salary")%> |
| Fecha de Inicio:
|
<%=rs("start_date")%> |
| Contacto:
|
<%=rs("contact")%> ("><%=rs("contact_email") %>) |
| (# de Posiciones:
|
<%=rs("no_pos")%> |
| Características Deseadas:
|
<%=rs("qualifications")%> |
| Ubicación:
|
<%=rs("location")%> |
| Instrucciones Especiales:
|
<%=rs("special")%> |
| Categoría: |
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
strParms= rs("cat")& ", " & siteId
Set rs1 = oConn.Execute("exec sp_jobs_catchoose " & strParms )
%>
<%=rs1("name")%> |
| |
Si estás interesado en esta posición, por favor llena y envía ?s=2&jid=<%=rs("id")%>">nuestra
solicitud. |
<% intRecCount = intRecCount - 1
rs.movenext
Loop
Response.Write "Page "
For intNum = 1 To intPageCount
if int(intNum)<>int(intPage) then
Response.Write "" & intNum & " "
else
Response.Write ""& intNum &" "
end if
Next
Response.Write "
Regresar a la búsqueda
"
end if
%>
<% Case else %>
Categoría de Búsqueda:
<% set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strConn
set rsJobcat=Server.CreateObject("ADODB.Recordset")
strParms= siteId
Set rsJobcat = oConn.Execute("exec sp_jobs_cat " & strParms )
if rsJobcat.eof then %>
| (No hay oportunidades disponibles, por favor regresa en otra ocasión. Gracias. |
<% else
do while not rsJobcat.eof
%>
?s=1&id=<%=rsJobcat("id")%>&catname=<%=Server.URLEncode(rsJobcat("name"))%>"><%=rsJobcat("name")%>
<% rsJobcat.movenext
Loop
end if
set rsJobcat=nothing
end select%>
| | | | |
<%=title%>