Phase-out Schedule | Legislation | Projects | Publications | Code of Practice |

 Downloads | News Room | Find a Technician | NEPA Home | Contact us

_______________________________________________________________________

Use Qualified individuals to service your Coolers,
Refrigerators and Air Conditioners.
Enter your location here and find a technician in your area.

 


<% strSearch = Request.Form("search") If strSearch <> "" Then Dim strConnect, SQL Dim RS strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ozone.mdb") & ";" SQL = "SELECT * FROM Technicians " 'WHERE INSTR(Sites.Description,'" & strSearch & "')" Set RS = Server.CreateObject("Adodb.Recordset") 'Used for pulling main categories from DB RS.Open SQL,strConnect Do Until RS.EOF If Len(strSearch) >= 1 AND LCase(strSearch) = LCase(RS("Parish")) Then %> <% 'Response.Write "" & RS("URL") &" - " & RS("Name") & "
" 'Response.Write RS("Description") & "

" End If If Len(strSearch) <= 0 Then 'Response.Write "" & RS("URL") &" - " & RS("Name") & "
" 'Response.Write RS("Description") & "

" End If RS.MoveNext LOOP RS.Close End If %>

NAME

TITLE

PARISH

CONTACT

<%Response.Write RS("Name")%>
<%Response.Write RS("Title")%>
<%Response.Write RS("Parish")%>
<%Response.Write RS("Contact")%>

 

 

CLICK HERE to request additional information