Empleo

<% @Language=VBScript %> <% Response.Buffer = True %> <% Function ActiveUrl( url ) If Not Left( url, 7 ) = "http://" Then ActiveUrl = "http://" & url Else ActiveUrl = url End If End Function function SQLSafe(SQLStr) if Trim(SQLStr) <> "" then SQLStr = Replace(SQLstr, "'", "Chr(146)") SQLStr = Replace(SQLStr, """", "Chr(148)") SQLSafe = SQLStr end if end function function DisplayStr(SQLStr) if Trim(SQLStr) <> "" then SQLStr = Replace(SQLstr, "Chr(146)", "'") SQLStr = Replace(SQLStr, "Chr(148)", """") SQLStr = Replace(SQLStr, vblf, "
") end if DisplayStr = SQLStr end function %> <% set conn = Server.CreateObject("ADODB.Connection") conn.Open(Application("conn_str")) jt = request("jt") strSQL = "SELECT locations.state_name, jobs.job_id, jobs.job_title, jobs.job_title_sp, jobs.job_desc, " & _ "jobs.job_desc_sp, jobs.job_type, jobs.hours " & _ "FROM locations INNER JOIN jobs ON locations.loc_id = jobs.state " if trim(jt) <> "" and isNumeric(jt) then if jt < 2 then strSQL = strSQL & "WHERE job_type = '" & jt & "' and display = '1' " end if end if strSQL = strSQL & "ORDER BY locations.state_name, jobs.job_title, job_title_sp" set rs = conn.Execute(strSQL) %> Empleo

English | Español

<% if not rs.EOF then st_name = rs("state_name") %>
<% end if %> <% Dim bcolor bcolor= "#E4E4E4" do while not rs.EOF if st_name <> rs("state_name") then st_name = rs("state_name") bcolor = "#E4E4E4" %> <% end if %> > <% rs.MoveNext if bcolor = "#E4E4E4" then bcolor = "#FFFFFF" else bcolor = "#E4E4E4" end if %> <% loop %>

<%=page_title%>
Nombre del Puesto		Tipo del Puesto
<%= st_name %>

<%= st_name %>
	<%=DisplayStr(Trim(rs("job_title")))%>	<%if rs("hours") = 0 then Response.Write ("Seasonal-FT") end if %> <%if rs("hours") = 1 then Response.Write ("Seasonal-PT") end if %> <%if rs("hours") = 2 then Response.Write ("Year Round-FT") end if %> <%if rs("hours") = 3 then Response.Write ("Year Round-PT") end if %>	&jt=<%=rs("job_type")%>" class="blue">Detalles!

<% conn.close set rs = nothing set conn = nothing %>

Rural Opportunities, Inc. © 2006 | Si hay preguntas sobre este pagina de internet contacta a Eric Shoen