<%
dim i
dim conn, rs, sql, txtChapter, strConnString
txtChapter = Request.QueryString("chapter")
if txtChapter = "" then
txtChapter = day(date)
' txtChapter = 1
end if
for i = 1 to 31
if i <> cint(txtChapter) then
response.write("Chapter " & i & "
")
else
response.write("Chapter " & i & "
")
end if
next
%>
|
|
<%
'***********************************************************************************
'* ASP Code
'***********************************************************************************
on error resume next
strConnString = "driver=MySQL;server=localhost;uid=letgod2_verse;pwd=kingj@mes;database=letgod2_kjv"
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnString
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT VerseNo, Text, Link FROM tblProverbs WHERE ChapterNo = " & txtChapter & " ORDER BY VerseNo"
'response.write("SQL STATEMENT: " & sql)
rs.Open sql, conn
response.write(vbcrlf & "" & vbcrlf)
response.write(" Proverbs " & vbcrlf)
response.write("Chapter " & txtChapter & " " & vbcrlf)
response.write("" & vbcrlf)
response.write("" & vbcrlf)
do until rs.EOF
if isnull(rs.fields("link")) then
Response.Write(vbcrlf & "" & vbcrlf & "| " & rs.fields("VerseNo") & ". | " & vbcrlf)
Response.Write("" & rs.fields("Text") & " | " & vbcrlf)
else
Response.Write(vbcrlf & "" & vbcrlf & "| " & rs.fields("VerseNo") & ". | ")
Response.Write("" & rs.fields("Text") & " | " & vbcrlf)
end if
rs.MoveNext
loop
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
|