<% ''''''''''''''''''''''''''''' '' If the domain is not the correct domain '' then redirect back to that domain ''''''''''''''''''''''''''''' sDomain = LCase(Request.ServerVariables("HTTP_HOST")) if sDomain = "www.localweb.ws" or sDomain = "localweb.ws" then Response.Redirect("http://www.medipracsolutions.com/") end if %> Mediprac Solutions

<% company = "mediprac" page = "home" set oRs = GetPageInfo(company, page) if not oRs.eof then p1 = oRs.fields("p1") p2 = oRs.fields("p2") p3 = oRs.fields("p3") p4 = oRs.fields("p4") p5 = oRs.fields("p5") img = oRs.fields("img") title = oRs.fields("title") else p1 = "This Page is currently under construction or unavailable." p2 = "" p3 = "" p4 = "" p5 = "" img = "" title = "Page Unavailable" end if %>
<%=title%>
<% if trim(p1) <> "" then %>

<%=p1%>

<% end if if trim(p2) <> "" then %>

<%=p2%>

<% end if if trim(p3) <> "" then %>

<%=p3%>

<% end if if oRs.fields("l1_1") <> "" then %>
    <% for i = 1 to 30 li1 = oRs.fields("l1_" & i) if li1 <> "" then Response.Write("
  • " & li1 & vbcrlf) end if next %>
<% end if if trim(p4) <> "" then %>

<%=p4%>

<% end if if oRs.fields("l1_2") <> "" then %>
    <% for i = 1 to 30 li2 = oRs.fields("l2_" & i) if li2 <> "" then Response.Write("
  • " & li2 & vbcrlf) end if next %>
<% end if if trim(p5) <> "" then %>

<%=p5%>

<% end if %>