<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 Dim Con, sql, sql2, sql3, sql4, sql5, sql6, sql7, sql8, strCon, ObjRS, ObjRS2, ObjRS3, ObjRS4, ObjRS5, ObjRS6, ObjRS7, ObjRS8, mod_date, previous_text Dim strFirst, strLast, strImage, strAddress1, strStreet, strSuite,strCity, strState, strZip, strEmail, strPhone, strFax, strPosition_ID, strCounsel, strLocation, strDate, strAOS, strId, ToHTML Set Con = Server.CreateObject( "ADODB.Connection" ) strCon = "Data Source=phelp3.phelps;User ID=phelp3;Password=dunbar3;" Con.Open strCon strId = Trim(Request.Querystring("id")) sql = "select first, last, image, address1, street, suite, city, state, zip, email, phone, fax, position_id, counsel, location, image, wc1_heading, wc2_heading, wc3_heading, wc4_heading from profiles where profile_id = '" & strId & "';" set ObjRS = Con.Execute(sql) sql2 = "select bullet_text from education where profile_id = '" & strId & "';" Set ObjRS2 = Con.Execute(sql2) sql3 = "select bullet_text, text_formatting from wildcard1 where profile_id = '" & strId & "';" Set ObjRS3 = Con.Execute(sql3) sql4 = "select bullet_text, text_formatting from wildcard2 where profile_id = '" & strId & "';" Set ObjRS4 = Con.Execute(sql4) sql5 = "select bullet_text, text_formatting from wildcard3 where profile_id = '" & strId & "';" Set ObjRS5 = Con.Execute(sql5) sql8 = "select bullet_text, text_formatting from wildcard4 where profile_id = '" & strId & "';" Set ObjRS8 = Con.Execute(sql8) sql6 = "select aos_listing.aos_id, aos from aos_listing, aos where aos_listing.profile_id = '" & strId & "' and aos.aos_id = aos_listing.aos_id;" Set ObjRS6 = Con.Execute(sql6) sql7 = "select bullet_text from practice where profile_id = '" & strId & "';" Set ObjRS7 = Con.Execute(sql7) %> <% If ObjRS("first") <> "" and ObjRS("last") <> "" Then Response.write "" & ObjRS("first") & " " & ObjRS("last") & "
" End If Response.write "" If ObjRS("address1") <> "" Then Response.write ObjRS("address1") & "
" End If If ObjRS("street") <> "" Then Response.write ObjRS("street") If ObjRS("suite") <> "" Then Response.write ", Suite " & ObjRS("suite") End If Response.write "
" End If If ObjRS("city") <> "" Then Response.write ObjRS("city") If ObjRS("state") <> "" Then Response.write ", " & ObjRS("state")& " " End If If ObjRS("zip") <> "" Then Response.write ObjRS("zip") End If Response.write "
" End If If ObjRS("phone") <> "" Then Response.write "Direct: " & ObjRS("phone") & "
" End If If ObjRS("fax") <> "" Then Response.write "Fax: " & ObjRS("fax") & "
" End If If ObjRS("email") <> "" Then Response.write "e-mail: " & ObjRS("email") & "
" End If ' vcard Dim vRS : Set vRs = server.CreateObject("ADODB.Recordset") vRs.Open("select id,ffile,fname from vcards where id = " & clng(strId) & ";"), Con if not vRs.EOF then if not isnull(vRs("ffile")) then %>vCard:  "><% If ObjRS("first") <> "" and ObjRS("last") <> "" Then Response.write ObjRS("last")&", "&ObjRS("first") else Response.write (trim(vRs("fname"))) End If %>
<% end if end if vRs.Close Set vRs=nothing ' - vcard Response.write "
 
Service Areas
" While Not ObjRS6.EOF Response.write "
" & ObjRS6("aos") & "" ObjRS6.movenext Wend Response.write "


" If Not ObjRS7.EOF Then Response.write "Practice

" ToHTML = ObjRS7("bullet_text") ToHTML = Replace(ToHTML, vbCrLf, "
") ToHTML = Replace(ToHTML, vbCr, "
") ToHTML = Replace(ToHTML, vbLf, "
") Response.write "
 " & ToHTML & "


" End If If not ObjRS2.EOF Then Response.write "Education


" End If If not ObjRS3.EOF Then If ObjRS("wc1_heading") <> "" Then Response.write "" & ObjRS("wc1_heading") & "
" session("previous_text") = "text" session("wc_first") = 1 While not ObjRS3.EOF ToHTML = ObjRS3("bullet_text") ToHTML = Replace(ToHTML, vbCrLf, "
") ToHTML = Replace(ToHTML, vbCr, "
") ToHTML = Replace(ToHTML, vbLf, "
") If ObjRS3("text_formatting") <> "" Then session("text_formatting") = ObjRS3("text_formatting") Else session("text_formatting") = "bullet" End If If session("previous_text") = Null or session("previous_text") = "" Then session("previous_text") = "bullet" End If If session("text_formatting") = "bullet" and session("previous_text") = "bullet" Then 'If session("wc_first") = 1 Then 'response.write "

" End If If session("previous_text") <> "bullet" Then response.write "
" End If End If End If session("previous_text") = "text" If not ObjRS4.EOF Then If ObjRS("wc2_heading") <> "" Then Response.write "
" & ObjRS("wc2_heading") & "
" session("wc_first") = 1 While not ObjRS4.EOF ToHTML = ObjRS4("bullet_text") ToHTML = Replace(ToHTML, vbCrLf, "
") ToHTML = Replace(ToHTML, vbCr, "
") ToHTML = Replace(ToHTML, vbLf, "
") If ObjRS4("text_formatting") <> "" Then session("text_formatting") = ObjRS4("text_formatting") Else session("text_formatting") = "bullet" End If If session("previous_text") = Null or session("previous_text") = "" Then session("previous_text") = "bullet" End If If session("text_formatting") = "bullet" and session("previous_text") = "bullet" Then 'If session("wc_first") = 1 Then 'response.write "" End If If session("previous_text") <> "bullet" Then response.write "
" End If End If End If session("previous_text") = "text" If not ObjRS5.EOF Then If ObjRS("wc3_heading") <> "" Then Response.write "
" & ObjRS("wc3_heading") & "
" session("wc_first") = 1 While not ObjRS5.EOF ToHTML = ObjRS5("bullet_text") ToHTML = Replace(ToHTML, vbCrLf, "
") ToHTML = Replace(ToHTML, vbCr, "
") ToHTML = Replace(ToHTML, vbLf, "
") If ObjRS5("text_formatting") <> "" Then session("text_formatting") = ObjRS5("text_formatting") Else session("text_formatting") = "bullet" End If If session("previous_text") = Null or session("previous_text") = "" Then session("previous_text") = "bullet" End If If session("text_formatting") = "bullet" and session("previous_text") = "bullet" Then 'If session("wc_first") = 1 Then 'response.write "" End If If session("previous_text") <> "bullet" Then response.write "
" End If End If End If session("previous_text") = "text" If not ObjRS8.EOF Then If ObjRS("wc4_heading") <> "" Then Response.write "
" & ObjRS("wc4_heading") & "
" session("wc_first") = 1 While not ObjRS8.EOF ToHTML = ObjRS8("bullet_text") ToHTML = Replace(ToHTML, vbCrLf, "
") ToHTML = Replace(ToHTML, vbCr, "
") ToHTML = Replace(ToHTML, vbLf, "
") If ObjRS8("text_formatting") <> "" Then session("text_formatting") = ObjRS8("text_formatting") Else session("text_formatting") = "bullet" End If If session("previous_text") = Null or session("previous_text") = "" Then session("previous_text") = "bullet" End If If session("text_formatting") = "bullet" and session("previous_text") = "bullet" Then 'If session("wc_first") = 1 Then 'response.write "" End If If session("previous_text") <> "bullet" Then response.write "
" End If End If End If %>