%@ 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 &"") %>