Results 1 to 11 of 11
  1. #1
    Join Date
    Jul 2004
    Posts
    494

    Unanswered: how to include id# field of db in url?

    There's a problem with dropdown's name="id" (referring to the id field taken from the value="<%=rs("id")%>").

    WHen I change name="id" to name="book" and value="<%=rs("id")%>" to value="<%=rs("book")%>" I would get:
    showverse.asp?book=(with the right number with the beginning of that book. But it needs to be more precise, down to the right id)

    But if I leave it as "id" although the url will give:
    showverse.asp?id=(with the right number but goes to the very first book and chapter)

    Code:
    <form name="books" action="showverse.asp" method="get" target="ifrVerse">
    
    <select name="id" size="10" style="width:200;" onchange="go1();">
    
                        <%
                        Do until RS.eof
                            %>
                            <option selected value="<%=RS("id")%>"><%=RS("Book_Title")%>&nbsp;<%=RS("Chapter")%>:<%=RS("Verse")%></option>
                            <%
                            RS.movenext
                            if RS.eof then
                                exit do
                            end if
                        loop
                        %>
                        </select>
    
            </td>
    
                     <tr>
                     <td align="center">
                     <input type="submit" value=" Search ">
                     <input type="Reset" value=" Clear the words ">
                     </td>
                     </tr>
    			
    </form>
    attachment is the action="showverse.asp" in .txt
    Attached Files Attached Files
    Compare bible texts (and other tools):
    TheWheelofGod

  2. #2
    Join Date
    Nov 2003
    Location
    Christchurch, New Zealand
    Posts
    1,618
    Why not do something like this?? Note the 'pipe' between the id and the book fields.....
    Code:
    <form name="books" action="showverse.asp" method="get" target="ifrVerse">
    
    <select name="id" size="10" style="width:200;" onchange="go1();">
    
                        <%
                        Do until RS.eof
                            %>
                            <option selected value="<%=RS("book")%>|<%=RS("id")%>"><%=RS("Book_Title")%>&nbsp;<%=RS("Chapter")%>:<%=RS("Verse")%></option>
                            <%
                            RS.movenext
                            if RS.eof then
                                exit do
                            end if
                        loop
                        %>
                        </select>
    
            </td>
    
    <tr>
             <td align="center">
                 <input type="submit" value=" Search ">
                 <input type="Reset" value=" Clear the words ">
             </td>
    </tr>
    </form>
    So in your show verse page you can do something like
    Code:
    values = request("id")
    arrValues() = values.Split("|")
    id = arrValues(0)
    book = arrValues(0)
    HTH. Syntax may not be right but I'm sure after all these months you will be able to figure it out.

    Good to see you still around. Hope you had a good Xmas.

  3. #3
    Join Date
    Jul 2004
    Posts
    494
    Thanks rokslide. Happy New Year.

    If name="id" then the url will show ?id= .
    If there's a way to display the id alone on the url I'll be satisfied. But what it's doing is showing the very first chapter of the very first book. It's not even giving the proper result listed on the url.

    If that doesn't work then the next option is to have:
    ?book=23&chapter=85&verse=32
    Compare bible texts (and other tools):
    TheWheelofGod

  4. #4
    Join Date
    Jul 2004
    Posts
    494
    Ok so I did:
    Code:
    <form name="books" action="showversea.asp" method="get" target="ifrVerse">
    <select name="id" size="10" style="width:200;" onchange="go1();">
    
                        <%
                        Do until RS.eof
                            %>
                            <option selected value="<%=RS("id")%>"><%=RS("Book_Title")%>&nbsp;<%=RS("Chapter")%>:<%=RS("Verse")%></option>
                            <%
                            RS.movenext
                            if RS.eof then
                                exit do
                            end if
                        loop
                        %>
                        </select>
    
            </td>
    
                     <tr>
                     <td align="center">
                     <input type="submit" value=" Search ">
                     <input type="Reset" value=" Clear the words ">
                     </td>
                     </tr>
    			
    </form>
    Code:
    dim values
    values = request("id")
    arrValues() = values.Split("|")
    id = arrValues(0)
    'book = arrValues(0)
    But I got:
    Microsoft VBScript runtime error '800a01a8'

    Object required: '4894'

    /wheelofgod/showversea.asp, line 124
    Compare bible texts (and other tools):
    TheWheelofGod

  5. #5
    Join Date
    Nov 2003
    Location
    Christchurch, New Zealand
    Posts
    1,618
    okie, forget everything I said.... I just looked at the attachment.... the problem would appear to me that you are not actually using Id in any of your databae queries... atleast not that I can see (it's a bit hard to make stuff out when there is no indenting of any kind).

  6. #6
    Join Date
    Jul 2004
    Posts
    494
    I don't understand why id doesn't work.
    Attached Files Attached Files
    Last edited by gilgalbiblewhee; 12-30-05 at 11:15.
    Compare bible texts (and other tools):
    TheWheelofGod

  7. #7
    Join Date
    Jul 2004
    Posts
    494
    Ok I see what went wrong. I modified this:
    Code:
    id=Request("id")
    
    
    'This SQL statement creates a list of books
    SQL1 = "Select * FROM Bible WHERE id = " & id & " ORDER BY id ASC"
    
    rs.Open sql1,conn, 1
    How can I have two dropdowns side-by-side with the same results through asp?
    As you see the first dropdown is full and the 2nd empty:
    Code:
    <td>
    <form name="booksa" action="showversea.asp" method="get" target="ifrVerse">
    <select name="id" size="10" style="width:200;" onchange="go1();">
    
                        
                            <option  value="4894">Deuteronomy&nbsp;1:1</option>
                            
                            <option  value="1911">Exodus&nbsp;14:21</option>
                            
                            <option  value="1916">Exodus&nbsp;14:26</option>
    
                            
                            <option  value="1917">Exodus&nbsp;14:27</option>
                            
                            <option  value="1922">Exodus&nbsp;15:1</option>
                            
                            <option  value="1943">Exodus&nbsp;15:22</option>
                            
                            <option  value="2026">Exodus&nbsp;18:26</option>
                            
                            <option  value="3204">Leviticus&nbsp;16:2</option>
    
                            
                            <option  value="3940">Numbers&nbsp;7:89</option>
                            
                            <option  value="4145">Numbers&nbsp;14:36</option>
                            
                            <option  value="10964">1 Chronicles&nbsp;21:29</option>
                            
                            <option  value="18878">Isaiah&nbsp;63:11</option>
                            
                            <option  value="23921">Matthew&nbsp;23:2</option>
    
                            
                            <option  value="28570">1 Corinthians&nbsp;10:2</option>
                            
                        </select>
            </td>
    
                     <tr>
                     <td align="center">
                     <input type="submit" value=" Search ">
                     <input type="Reset" value=" Clear the words ">
    
                     </td>
                     </tr>
    			
    </form>		
    </td>
    
    <tr>
    <form name="booksb" action="showversea.asp" method="get" target="ifrVerse2">
    <select name="id" size="10" style="width:200;" onchange="go1();">
    
                        
                        </select>
            </td>
    
                     <tr>
                     <td align="center">
                     <input type="submit" value=" Search ">
                     <input type="Reset" value=" Clear the words ">
                     </td>
                     </tr>
    			
    </form>		
    </tr>
    Compare bible texts (and other tools):
    TheWheelofGod

  8. #8
    Join Date
    Jul 2004
    Posts
    494
    I did a Do Loop and it worked. I used x in between and when x < 1 it would write the first dropdown along with other things. And when x > 1 it would write the 2nd dropdown and end the page.

    The problem now is an iFrame issue. The page kjvresp.asp has two iFrames. And within each iFrame there is another iFrame (I haven't used the first level of iFrames, only the second level.) The problem is that the fisrt dropdown is opening in the 1st iFrame but the 2nd dropdown opens in a new window instead of opening in the 2nd iFrame.

    Code:
    <table>
    <td>
    <form name="booksa" action="showversea.asp" method="get" target="ifrVerse">
    <select name="id" size="10" style="width:200;" onchange="go1();">
    
                        
                            <option  value="4894">Deuteronomy&nbsp;1:1</option>
                            
                            <option  value="1911">Exodus&nbsp;14:21</option>
                            
                            <option  value="1916">Exodus&nbsp;14:26</option>
    
                            
                            <option  value="1917">Exodus&nbsp;14:27</option>
                            
                            <option  value="1922">Exodus&nbsp;15:1</option>
                            
                            <option  value="1943">Exodus&nbsp;15:22</option>
                            
                            <option  value="2026">Exodus&nbsp;18:26</option>
                            
                            <option  value="3204">Leviticus&nbsp;16:2</option>
    
                            
                            <option  value="3940">Numbers&nbsp;7:89</option>
                            
                            <option  value="4145">Numbers&nbsp;14:36</option>
                            
                            <option  value="10964">1 Chronicles&nbsp;21:29</option>
                            
                            <option  value="18878">Isaiah&nbsp;63:11</option>
                            
                            <option  value="23921">Matthew&nbsp;23:2</option>
    
                            
                            <option  value="28570">1 Corinthians&nbsp;10:2</option>
                            
                        </select>
            </td>
    
                     <tr>
                     <td align="center">
                     <input type="submit" value=" Search ">
                     <input type="Reset" value=" Clear the words ">
    
                     </td>
                     </tr>
    			
    </form>		
    </td>
    
    <td>
    <form name="booksb" action="showversea.asp" method="get" target="ifrVerse2">
    <select name="id" size="10" style="width:200;" onchange="go1();">
    
                        
                            <option  value="4894">Deuteronomy&nbsp;1:1</option>
                            
                            <option  value="1911">Exodus&nbsp;14:21</option>
                            
                            <option  value="1916">Exodus&nbsp;14:26</option>
    
                            
                            <option  value="1917">Exodus&nbsp;14:27</option>
                            
                            <option  value="1922">Exodus&nbsp;15:1</option>
                            
                            <option  value="1943">Exodus&nbsp;15:22</option>
                            
                            <option  value="2026">Exodus&nbsp;18:26</option>
                            
                            <option  value="3204">Leviticus&nbsp;16:2</option>
    
                            
                            <option  value="3940">Numbers&nbsp;7:89</option>
                            
                            <option  value="4145">Numbers&nbsp;14:36</option>
                            
                            <option  value="10964">1 Chronicles&nbsp;21:29</option>
                            
                            <option  value="18878">Isaiah&nbsp;63:11</option>
                            
                            <option  value="23921">Matthew&nbsp;23:2</option>
    
                            
                            <option  value="28570">1 Corinthians&nbsp;10:2</option>
                            
                        </select>
            </td>
    
                     <tr>
                     <td align="center">
                     <input type="submit" value=" Search ">
                     <input type="Reset" value=" Clear the words ">
    
                     </td>
                     </tr>
    			
    </form>		
    </td>
    
    </table>
    <td>
    <iframe
    src ="/wheelofgod/kjvresplistboxa.asp"
    width="300" height="1200" name="ifrverse" id="ifrVerse">
    </iframe>
    </td>
    <td>
    <iframe
    src ="/wheelofgod/kjvresplistboxb.asp"
    width="300" height="1200" name="ifrverse2" id="ifrVerse2">
    </iframe>
    </td>
    Compare bible texts (and other tools):
    TheWheelofGod

  9. #9
    Join Date
    Jul 2004
    Posts
    494

    not opening in iFrame

    Here are the three files. Unless you know what you're looking for you'll be lost.
    kjvresp.asp has the two dropdowns and a pair of iFrames.

    Within the first iFrames there is kjvresplistbox.asp. It has an iFrame within itself.

    Within the iFrame there is showversea.asp. showversea.asp is where there is the result. The problem is that the first opens correctly within the showversea.asp iFrame, but the second opens in a separate page.
    Attached Files Attached Files
    Compare bible texts (and other tools):
    TheWheelofGod

  10. #10
    Join Date
    Jul 2004
    Posts
    494

    reorganized code - easier to read

    reorganized code - easier to read
    How do you make the dropdown go to the javascript to write the address of the url to be opened and what's wrong (recycled code) with the javascript?

    Code:
    <% 'Option Explicit
    Response.Buffer=false%>
    <%
    Const DB_NAME           = "kjv.mdb" ' Name of our database file
    Const INTRO             = "introduction to the wheelofgod.asp"
    Const THECYCLES         = "cycles.asp"
    Const SCRIPT_NAME       = "kjv.asp"  ' Name of this script
    Const SCRIPT_NAMES      = "kjvresp.asp"
    const SCRIPT_SAVED      = "redirect.asp"
    Const SCRIPT_FEEDBACK   = "mailto.asp"
    Const SCRIPT_TEXT       = "bibletext.asp"
    
    Const RECORDS_PER_PAGE  = 10            ' Number of records per page
    
    Const adOpenForwardOnly = 0
    Const adLockReadOnly = 1
    Const adCmdTableDirect = &H0200
    Const adUseClient = 3
    
    Private Function GetConnectionString()
    	GetConnectionString =   "Driver={Microsoft Access Driver (*.mdb)};" & _
    		"DBQ=" & Server.MapPath(DB_NAME) & ";" & _
    		"UID=;PWD=;"
    End Function
    
    Set Conn = server.createobject("ADODB.Connection")
    Conn.open GetConnectionString
    
    Dim x
    x=0
    do until x = 2
    %>
    
    <!--#include file=query.asp-->
    
    <%
    set RS = Server.CreateObject("ADODB.Recordset")
    rs.PageSize= RECORDS_PER_PAGE
    rs.CursorLocation = adUseClient
    rs.CacheSize = 20
    RS.Open SQL, Conn, adOpenForwardOnly, adLockReadOnly
    
    rscount=rs.RecordCount
    rspage=rs.PageCount
    
    if request.querystring("page")="" then 
    		page=1
    	else
       		page=cint((request.querystring("page")))
    end if
    
    if x < 1 then
    	response.write sql
    	%>
    	</br>
    	<!--#include file="kingjamespagetop.txt"-->
    	
    	<script language="JavaScript" type="text/javascript">
    	<!--
    		function go1(){
    			location = "kjvresplistbox.asp?id=" + document.myForm.id.options[document.myForm.id.selectedIndex].value + "&Keyword=" + document.myForm.Keyword.value + "&Keywordb=" + document.myForm.Keywordb.value + "&Keywordc=" + document.myForm.Keywordc.value + "&Keywordd=" + document.myForm.Keywordd.value + "&Keyworde=" + document.myForm.Keyworde.value + "&Keywordf=" + document.myForm.Keywordf.value + "#bcv"
                }
    		function go2(){
    			location = "kjvresplistbox.asp?Book=<%=Book%>&Chapter=" + document.myForm.Chapter.options[document.myForm.Chapter.selectedIndex].value + "&Keyword=" + document.myForm.Keyword.value + "&Keywordb=" + document.myForm.Keywordb.value + "&Keywordc=" + document.myForm.Keywordc.value + "&Keywordd=" + document.myForm.Keywordd.value + "&Keyworde=" + document.myForm.Keyworde.value + "&Keywordf=" + document.myForm.Keywordf.value + "#bcv"
    			}
    	//-->
    	</script>
    	
    	<%
    	If Not rs.EOF Then
    	Response.Write "The King James Bible has <b>" & rs.RecordCount &_
    	"</b> verses matching "
    
    		If Trim(Keyword & "") <> "" Then 
    			%> 
    			<font color="red"><b><%=Keyword%></b></font><% 
    		End If 
    		If Trim(Keywordb & "") <> "" Then 
    			%> 
              	&nbsp;+&nbsp;<font color="blue"><b><%=Keywordb%></b></font><% 
    		End If 
    		If Trim(Keywordc & "") <> "" Then 
    			%> 
    			&nbsp;+&nbsp;<font color="green"><b><%=Keywordc%></b></font><% 
    		End If 
    		If Trim(Keywordd & "") <> "" Then 
    			%> 
            	&nbsp;+&nbsp;<font color="orange"><b><%=Keywordd%></b></font><% 
    		End If 
    			If Trim(Keyworde & "") <> "" Then 
    			%> 
              	&nbsp;+&nbsp;<font color="purple"><b><%=Keyworde%></b></font><% 
    		End If 
    		If Trim(Keywordf & "") <> "" Then 
    			%> 
              	&nbsp;+&nbsp;<font color="aqua"><b><%=Keywordf%></b></font><% 
    		End If
    			If Trim(Keywordg & "") <> "" Then
    			%> 
              	&nbsp;+&nbsp;<font color="aqua"><b><%=Keywordg%></b></font><%
    		End If
    		If Trim(Keywordh & "") <> "" Then
    			%>
              &nbsp;+&nbsp;<font color="aqua"><b><%=Keywordh%></b></font><%
    		End If   
    		'spoke = Request.Querystring("spoke") 
    		If Trim(spoke & "") <> "" Then 
    			%> 
            &nbsp;in&nbsp;SPOKE&nbsp;<b><%=spoke%></b><% 
    		End If
    		If Trim(number & "") <> "" Then
        		if request.QueryString("book_title")="yes" then 
          			Response.Write "&nbsp;in&nbsp;<b>" & rs("book_title") & "</b>" 
        		end if
        		if request.QueryString("book")="yes" then 
          			Response.Write "&nbsp;in&nbsp;book <b>" & number & "</b>"
        		end if
        		if request.QueryString("chapter")="yes" then 
          			Response.Write "&nbsp;in&nbsp;chapter <b>" & number & "</b>"
        		end if
        		if request.QueryString("verse")="yes" then 
          			Response.Write "&nbsp;in&nbsp;verse <b>" & number & "</b>"
        		end if 
    
    		End If
    	Response.Write ".</p>"
    	Response.Write "</br>There are " & rs.PageCount & " page(s) of result(s).</br>"
    	Response.Write "The current page is " & Page & ".<p>"
    	End if
    
    end if
    '<!--#include file=pagingrecordsets.asp-->
    %>
    <%If rs.BOF and rs.EOF Then%>
    		<H2 align="center">
    		We did not find a match of <i><b>
    		"<%=Keyword%>"&nbsp;
    		"<%=Keywordb%>"&nbsp;
    		"<%=Keywordc%>"&nbsp;
    		"<%=Keywordd%>"&nbsp;
    		"<%=Keyworde%>"&nbsp;
    		"<%=Keywordf%>"&nbsp;
    		"<%=Keywordg%>"&nbsp;
    		"<%=Keywordh%>"!</b></i></H2>
    		<h5 align=center><A HREF="<%=SCRIPT_FEEDBACK%>">Feedback Forum</A>      |
    		<A HREF="<%=SCRIPT_NAME%>">Back To Search Page</A></h5>
    
    	<%Else
    	
    	'<table border="1" cellspacing="1" bgcolor="#0066CC">
    	'<tr style="height:12.75pt">
    	'<!--#include file=sort.asp-->
    
    	'<!--#include file=tableofresults.asp--> 
    
    	'</table>%>
    <%end if%>
    <table>
    <table>
    <%
    Dim Book
    Dim Chapter
    Dim Verse
    Dim DSNName
    Dim Conn
    Dim SQL1
    Dim pagingurl
    
    if x<1 then
    	%>
    	<tr>
    	<td>
    		<form name="booksa" action="showversea.asp" method="get" target="ifrVerse">
    		<select name="id" size="10" style="width:200;" onchange="go1();">
    			<%
    			Do until RS.eof
    			%>
    				<option <%if Request.QueryString("id")=RS("id") then response.write "selected" %> value="<%=RS("id")%>"><%=RS("Book_Title")%>&nbsp;<%=RS("Chapter")%>:<%=RS("Verse")%></option>
    				<%
    					RS.movenext
    					if RS.eof then
    						exit do
                        end if
    			loop
    				%>
    		</select>
    	</td>
    	</tr>
    
    	<tr>
    		<td>
    			<input type="submit" value=" Search ">
    			<%'<input type="Reset" value=" Clear the words ">%>
    		</td>
    	</tr>
    			
    	</form>		
    	</td>
    <%
    end if
    x = x + 1
    if x>1 then
    
    %>
    	<tr>
    	<td>
    	<form name="booksb" action="showversea.asp" method="get" target="gaga">
    	<select name="id" size="10" style="width:200;" onchange="go1();">
    		<%
    		Do until RS.eof
    		%>
    			<option <%if Request.QueryString("id")=RS("id") then response.write "selected" %> value="<%=RS("id")%>"><%=RS("Book_Title")%>&nbsp;<%=RS("Chapter")%>:<%=RS("Verse")%></option>
    		<%
    			RS.movenext
    			if RS.eof then
    				exit do
    			end if
    		loop
    		%>
    	</select>
    	</td>
    	</tr>
    	<tr>
    		<td>
    			<input type="submit" value=" Search ">
    			<%'<input type="Reset" value=" Clear the words ">%>
    		</td>
    	</tr>
    	</form>		
    	
    	<%
    end if
    loop%>
    </table>
    
    
    <td>
    <iframe
    src ="/wheelofgod/kjvresplistbox.asp"
    width="300" height="1200" name="ifrverse" id="ifrVerse">
    </iframe>
    </td>
    
    <td>
    <iframe
    src ="/wheelofgod/kjvresplistbox.asp"
    width="300" height="1200" name="gaga" id="gaga">
    </iframe>
    </td>
    
    </table>
    <%
    '<!--#include file=pagingrecordsets.asp--> 
     rs.Close()%>
    <!--#include file="kingjamespagebottom.txt"-->
    Last edited by gilgalbiblewhee; 01-05-06 at 18:58.
    Compare bible texts (and other tools):
    TheWheelofGod

  11. #11
    Join Date
    Jul 2004
    Posts
    494
    I forgot to add that the url has to be like this on the javascript:
    kjvresplistbox.asp?id=<%=rs("id")%>&keyword=<%=key word%>&keywordb=<%=keywordb%>&keywordc=<%=keywordc %>&keywordd=<%=keywordd%>&keyworde=<%=keyworde%>&k eywordf=<%=keywordf%>&keywordg=<%=keywordg%>&keywo rdh=<%=keywordh%>

    basically id is from the database field, and keyword and keywordb-keywordh are the keywords searched for.
    Compare bible texts (and other tools):
    TheWheelofGod

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •