SitePoint Sponsor

User Tag List

Results 1 to 2 of 2
  1. #1
    SitePoint Guru
    Join Date
    Aug 2004
    Location
    Canada
    Posts
    730
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    resizing columns

    Can someone correct the sizing of the columns?

    http://i.domaindlx.com/wheelofgod/bibletext.asp

    Code:
    <%Option Explicit%>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    
    <html>
    <head>
    <title>demo of linked listboxese</title>
    </head>
    <body>
    
    <form name="myForm" action="showverse.asp" method="get" target="ifrVerse">
    <table border="1" bgcolor="beige" align="center">
            <tr>
              <td width="50%" align="center">&nbsp;<br>
              <font color="red"><b>Text 1</b></font><br>
                <input size="10" name="Keyword" value="<%=Request("Keyword")%>"></td>
              <td width="50%" align="center">&nbsp;<br>
                <font color="blue"><b>Text 2</b></font><br>
                <input size="10" name="Keywordb" value="<%=Request("Keywordb")%>"></td>
            </tr>
            <tr>
              <td width="50%" align="center">&nbsp;<br>
                <font color="green"><b>Text 3</b></font><br>
                <input size="10" name="Keywordc" value="<%=Request("Keywordc")%>"></td>
              <td width="50%" align="center">&nbsp;<br>
                <font color="orange"><b>Text 4</b></font><br>
                <input size="10" name="Keywordd" value="<%=Request("Keywordd")%>"></td>
            </tr>
            <tr>
              <td width="50%" align="center">&nbsp;<br>
                <font color="purple"><b>Text 5</b></font><br>
                <input size="10" name="Keyworde" value="<%=Request("Keyworde")%>"></td>
              <td width="50%" align="center">&nbsp;<br>
                <font color="aqua"><b>Text 6</b></font><br>
                <input size="10" name="Keywordf" value="<%=Request("Keywordf")%>"></td>
            </tr>
    
    	<tr>
    		<th colspan="1" align="center">
    			book
    		</th>
    		<th colspan="1" align="center">
    			chapter
    		</th>
    	</tr>
    
    	<tr>
    		<td>
    			<%
    			'This function checks to see that numerical values are valid
    			Function ValidateInt(SomeInt)
    				if IsNumeric(SomeInt) = False or SomeInt = "" then
    					SomeInt = 1
    				end if
    				
    				ValidateInt = SomeInt
    			End Function
    			
    			
    			'Setting up search variables
    			Dim Book
    			Dim Chapter
    			Dim Verse
    			
    			Book 		= ValidateInt(request("book"))
    			Chapter 	= ValidateInt(request("Chapter"))
    			Verse 		= request("Verse")
    			%>
    			<script language="JavaScript" type="text/javascript">
    			<!--
    			function go1(){
    					location = "tripledemo.asp?Book=" + document.myForm.Book.options[document.myForm.Book.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 = "tripledemo.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>
    			
    			<%
    			
    			'Setting up my database variables
    			Dim DSNName
    			DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
    			DSNName = DSNName & Server.MapPath("kjv.mdb")
    			DSNName = DSNName & ";PWD=" & "mypass"
    			
    			Dim Conn
    			Dim RS
    			Dim SQL1
    			
    			'Opening Database connection
    			Set Conn = Server.CreateObject("ADODB.Connection")
    			Conn.Open DSNName
    			
    			set RS = Server.CreateObject("ADODB.recordset")
    			
    			'This SQL statement creates a list of books
    			SQL1 = "Select DISTINCT(Book_Title), Book FROM Bible ORDER BY Book ASC"
    			
    			rs.Open sql1,conn, 1
    				%>
    			<a name="bcv"><select name="Book" size="5" style="width:150;" onchange="go1();"></a>
    					<%
    					Do until RS.eof
    						%>
    						<option <%if int(book) = int(RS("Book")) then response.write "selected" end if%> value="<%=RS("Book")%>"><%=RS("Book_Title")%></option>
    						<%
    						RS.movenext
    						if RS.eof then
    							exit do
    						end if
    					loop
    					%>
    					</select>
    			<%
    			RS.Close
    			%>
    		</td>
    		<td colspan="1" align="center">
    			<%
    			'This SQL statement creates a list of books
    			SQL1 = "Select DISTINCT(Chapter), Book FROM Bible WHERE Book = " & Book & " ORDER BY Chapter ASC"
    			rs.Open sql1,conn, 1
    				%>
    				<select name="Chapter" size="5" style="width:75;" onchange="go2();">
    				<%
    				Do until RS.eof
    					%>
    					<option <%if int(Chapter) = int(rs("Chapter")) then response.write "selected" end if%> value="<%=RS("Chapter")%>"><%=RS("Chapter")%></option>
    					
    					<%
    					rs.movenext
    					if rs.eof then
    						exit do
    					end if
    				Loop
    				%>
    				</select>
    				<%
    			rs.close
    			
    			%>
    		</td>
    		<td colspan="2" align="center">
    			<%
    			'This SQL statement creates a list of verses
    			SQL1 = "Select Verse FROM Bible WHERE Book = " & Book & " AND Chapter = " & Chapter & " ORDER BY Verse ASC"
    			'SQL1 = "Select DISTINCT(Verse), Book, Chapter FROM Bible ORDER BY Verse ASC"
    			rs.Open sql1,conn, 1
    				%>
    
    
    
    	</tr>
    	<tr colspan="2" align="center">
    		<th colspan="3" align="center">
    			verse
    		</th>
    	</tr>
            <td colspan="2" align="center">
            
    				<select multiple name="verse" size="5" style="width:120;">
    				<option <%if verse = "" then response.write "selected" end if%> value="all">(All Verses)</option>
    				<%
    				Do until RS.eof
    					%>
    					<option <%if int(verse) = int(rs("verse")) then response.write "selected" end if%> value="<%=RS("verse")%>"><%=RS("verse")%></option>
    					
    					<%
    					rs.movenext
    					if rs.eof then
    						exit do
    					end if
    				Loop
    				%>
    				</select>
    				<%
    			rs.close
    			
    			conn.close
    			%>
              </td>
              <tr>
    
    		<td colspan="4" align="center">
    			<input type="submit" value=" Search ">
    		    <input type="Reset" value=" Clear ">
    		</td>
    	</tr>
    	<tr>
    		<td align="center" colspan="2">
    			<iframe name="ifrVerse" id="ifrVerse" src="about:blank" style="height:800; width:450;"></iframe>
    		</td>
    	</tr>
    </table>
    </form>
    </body>
    </html>
    Compare bible texts (and other tools):
    TheWheelofGod

  2. #2
    SitePoint Evangelist figbeam's Avatar
    Join Date
    Jun 2004
    Location
    Sweden
    Posts
    508
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Well..., what exactly did you have in mind. I took a peek at it and there's nothing obvious.


Bookmarks

Posting Permissions

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