1. Advertising
    y u no do it?

    Advertising (learn more)

    Advertise virtually anything here, with CPM banner ads, CPM email ads and CPC contextual links. You can target relevant areas of the site and show ads based on geographical location of the user if you wish.

    Starts at just $1 per CPM or $0.10 per CPC.

How do you make the dropdown go to the javascript

Discussion in 'C#' started by gilgalbiblewheel, Jan 5, 2006.

  1. #1
    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?

    <% '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"-->
    	
    [COLOR=Red]	<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>[/COLOR]
    	
    	<%
    	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;" [COLOR=Red]onchange="go1();"[/COLOR]>
    			<%
    			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;" [COLOR=Red]onchange="go1();"[/COLOR]>
    		<%
    		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"-->
    Code (markup):
    I forgot to add that the url has to be like this on the javascript:

    
    kjvresplistbox.asp?id=<%=rs("id")%>&keyword=<%=keyword%>&keywordb=<%=keywordb%>&keywordc=<%=keywordc%>&keywordd=<%=keywordd%>&keyworde=<%=keyworde%>&keywordf=<%=keywordf%>&keywordg=<%=keywordg%>&keywordh=<%=keywordh%>
    
    Code (markup):
    basically id is from the database field, and keyword and keywordb-keywordh are the keywords searched for.
    SEMrush
     
    gilgalbiblewheel, Jan 5, 2006 IP
    SEMrush