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"> <br> <font color="red"><b>Text 1</b></font><br> <input size="10" name="Keyword" value="<%=Request("Keyword")%>"></td> <td width="50%" align="center"> <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"> <br> <font color="green"><b>Text 3</b></font><br> <input size="10" name="Keywordc" value="<%=Request("Keywordc")%>"></td> <td width="50%" align="center"> <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"> <br> <font color="purple"><b>Text 5</b></font><br> <input size="10" name="Keyworde" value="<%=Request("Keyworde")%>"></td> <td width="50%" align="center"> <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>
Bookmarks