<%@ Language=VBScript %> <% Option Explicit Dim conn Dim DevotionItem,DevotionItem1,Currentdate Dim Devotion_S set conn = server.createobject ("adodb.connection") conn.open "backtothebible", "backtothebible", "sbs*buz!" if not isempty(request.QueryString("CurrentDate"))then Currentdate=request.QueryString("CurrentDate") else Currentdate=1 end if set DevotionItem = conn.execute("select * from devotion_sinhala where PID="& Currentdate &"") set Devotion_S = conn.execute("select * from devo_S where PID="& Currentdate &"") %> Welcome Back to the Bible Sri Lanka
 
 
 
oji  "../images/devo_d11.gif" <%else %> "../images/devo_d1.gif"<% end if%> width="30" height="29" border="0"> "../images/devo_d22.gif" <%else %> "../images/devo_d2.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d33.gif" <%else %> "../images/devo_d3.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d44.gif" <%else %> "../images/devo_d4.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d55.gif" <%else %> "../images/devo_d5.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d66.gif" <%else %> "../images/devo_d6.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d77.gif" <%else %> "../images/devo_d7.gif" <% end if%> width="31" height="29" border="0">  
<%=server.HTMLEncode(replace(Devotion_S("Top_Topic"),"z","'"))%>

<%=server.HTMLEncode(replace(Devotion_S("Top_Para"),"z","'"))%>

<%Do until DevotionItem.eof Dim repara repara=replace(DevotionItem("paragraph"),"z","'") %> <%DevotionItem.movenext loop %>
<%=server.HTMLEncode(replace(Devotion_S("Topic"),"z","'"))%>
<%=server.HTMLEncode(repara)%>
<%=server.HTMLEncode(replace(Devotion_S("Bottom_para"),"z","'"))%>
   
oji  "../images/devo_d11.gif" <%else %> "../images/devo_d1.gif"<% end if%> width="30" height="29" border="0"> "../images/devo_d22.gif" <%else %> "../images/devo_d2.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d33.gif" <%else %> "../images/devo_d3.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d44.gif" <%else %> "../images/devo_d4.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d55.gif" <%else %> "../images/devo_d5.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d66.gif" <%else %> "../images/devo_d6.gif" <% end if%> width="30" height="29" border="0"> "../images/devo_d77.gif" <%else %> "../images/devo_d7.gif" <% end if%> width="31" height="29" border="0">  
   
     
© Back to the Bible. All Rights Reserved. Site by Affno
Home