<%CID = request("CID") if CID = "" then 'errFlag = "True" else Set Jpeg = Server.CreateObject("Persits.Jpeg") set rs = server.CreateObject("ADODB.RECORDSET") strSQL = "SELECT tblCompany.CompanyName, tblCompany.Field1Title, tblCompany.Field2Title, tblCompany.Field3Title, tblCompany.Field1Body, tblCompany.Field2Body, tblCompany.Field3Body, tblCompany.CompanyAddress, tblCompany.CompanyPhone, tblLocations.LocationName," for x = 1 to 25 if x > 1 then strSQL = strSQL & "," end if strSQL = strSQL & "tblCompany.Pict" & x next strSQL = strSQL & " FROM tblCompany inner join tblLocations on tblCompany.LocationID = tblLocations.LocationID where (tblCompany.CompanyID ='" & CID & "')" rs.open strSQL, conn Dim ImgArray(25) if not rs.bof then for x = 0 to 24 if PictureName = "" then PictureName = rs("Pict"&x+1) end if if isnull(PictureName) then PictureName = "" end if PictName = rs("Pict"&x+1) if isnull(PictName) then PictName = "" end if ImgArray(x) = PictName next CompanyName = rs("CompanyName") CompanyAddress = rs("CompanyAddress") if isnull(CompanyAddress) then CompanyAddress = "" end if LocationName = rs("LocationName") CompanyPhone = rs("CompanyPhone") if isnull(CompanyPhone) then CompanyPhone = "" end if Field1Title = rs("Field1Title") if isnull(Field1Title) then Field1Title = "" end if Field1Body = rs("Field1Body") if isnull(Field1Body) then Field1Body = "" end if Field2Title = rs("Field2Title") if isnull(Field2Title) then Field2Title = "" end if Field2Body = rs("Field2Body") if isnull(Field2Body) then Field2Body = "" end if Field3Title = rs("Field3Title") if isnull(Field3Title) then Field3Title = "" end if Field3Body = rs("Field3Body") if isnull(Field3Body) then Field3Body = "" end if end if rs.close end if IF PictureName = "" then 'errFlag = "True" end if%> Untitled Document

<%=CompanyName%>
<%if CompanyAddress <> "" then response.write(CompanyAddress) end if if LocationName <> "" then response.write(" " & LocationName) end if%>
<%if CompanyPhone <> "" then%> <%=CompanyPhone%> <%end if%>


<%if Field1Title <> "" then%>

<%=Field1Title%>
 <%=replace(Field1Body,chr(10),"
")%>

<%end if%> <%if Field2Title <> "" then%>

<%=Field2Title%>
 <%=replace(Field2Body,chr(10),"
")%>

<%end if%> <%if Field3Title <> "" then%>

<%=Field3Title%>
 <%=replace(Field3Body,chr(10),"
")%>

<%end if%> <%strSQL = "SELECT * FROM tblCompanyJobs where Active ='Y' and Approved ='Y' and CompanyID ='" & CID & "' order by JobTitle" rs.open strSQL, conn if not rs.bof then%>

Positions Available

<%rs.movefirst do while not rs.eof JobTitle = rs("JobTitle") ContactName = rs("ContactName") ContactPhone = rs("ContactPhone") if isnull(ContactPhone) then ContactPhone = "" end if ContactEmail = rs("ContactEmail") if isnull(ContactEmail) then ContactEmail = "" end if JobDesc = rs("JobDesc") if isnull(JobDesc) then JobDesc = "" end if JobDesc = replace(JobDesc,chr(10),"
") if ContactPhone <> "" and ContactEmail <> "" then ContactString = "For more information, please contact " & ContactName & " at " & ContactPhone & " or "&ContactEmail&"" elseif ContactPhone <> "" then ContactString = "For more information, please contact " & ContactName & " at " & ContactPhone else ContactString = "For more information, please contact " & ContactName & " at "&ContactEmail&"" end if%>

Title: <%=JobTitle%>

Description: <%=JobDesc%>

<%=ContactString%>

<%rs.movenext loop end if rs.close%> 		Click photos to enlarge <% y = 0 for x = 0 to ubound(ImgArray) if ImgArray(x) <> "" then if y mod 2 = 0 then response.write("") y = 0 end if y = y + 1 Jpeg.Open server.MapPath("/images/businesspictures/"&ImgArray(x)) Width = jpeg.Width + 37 Height = jpeg.Height + 45 JPeg.close %> <%end if next%>