Results 1 to 10 of 10

Thread: php dhtml vbscript problem

  1. #1

    Thread Starter
    Hyperactive Member
    Join Date
    Sep 2004
    Posts
    447

    php dhtml vbscript problem

    I have a page of vbscript included by "include file" in a php.
    Line 443 shows error:

    Parse error: syntax error, unexpected T_STRING in C:\xampp\htdocs\search\cat\cdynlistbox.php on line 443
    Line 443 is:
    Code:
    sTemp = sTemp & "<xsl:stylesheet xmlns:xsl=""http://www.w3.org/TR/WD-xsl"">" & vbCrlf
    Code:
    <script language="VBScript" runat="server">
    ...
    
    	Private Function GetXSLStream()
    		Dim sTemp
    		sTemp = "<?xml version='1.0'?>" & vbCrlf
    		sTemp = sTemp & "<xsl:stylesheet xmlns:xsl=""http://www.w3.org/TR/WD-xsl"">" & vbCrlf
    		sTemp = sTemp & "<xsl:template match=""/"">" & vbCrlf
    		sTemp = sTemp & "if (!assocArray) var assocArray = new Object();<xsl:for-each select=""root/table1"">" & vbCrlf
    		sTemp = sTemp & "assocArray[""%listname%=<xsl:value-of select=""@search"" />""] = new Array(" & vbCrlf
    		sTemp = sTemp & "<xsl:for-each select=""table2"">" & vbCrlf
    		sTemp = sTemp & "<xsl:value-of select=""table2"" />    ""<xsl:value-of select=""@dvalue"" />"",""<xsl:value-of select=""@display"" />""," & vbCrlf
    		sTemp = sTemp & "</xsl:for-each>    ""EOF"");</xsl:for-each>" & vbCrlf
    		sTemp = sTemp & "</xsl:template>" & vbCrlf
    		sTemp = sTemp & "</xsl:stylesheet>" & vbCrlf
    		GetXSLStream = sTemp
    	End Function
    
    ...
    </script>
    If you want the full script then check out the attached file zipped and in a txt file.
    Attached Files Attached Files
    Compare bible texts (and other tools):
    TheWheelofGod

  2. #2
    WiggleWiggle dclamp's Avatar
    Join Date
    Aug 2006
    Posts
    3,527

    Re: php dhtml vbscript problem

    Just so you know, you typically dont mix VBCode with PHP. Are you aware of this?
    Last edited by dclamp; Dec 21st, 2007 at 05:46 PM.
    My usual boring signature: Something

  3. #3

    Thread Starter
    Hyperactive Member
    Join Date
    Sep 2004
    Posts
    447

    Re: php dhtml vbscript problem

    No I didn't know.

    I was converting old asp files to php.

    But I'm stuck at this point.

    I'm looking for a triple combo listboxes where one has "book" the other "chapter" and the third "verse". The book is populated by a database table. Once book is selected then chapter is populated and then verse.

    Any tutorial related to this?
    Compare bible texts (and other tools):
    TheWheelofGod

  4. #4
    WiggleWiggle dclamp's Avatar
    Join Date
    Aug 2006
    Posts
    3,527

    Re: php dhtml vbscript problem

    My usual boring signature: Something

  5. #5

    Thread Starter
    Hyperactive Member
    Join Date
    Sep 2004
    Posts
    447

    Re: php dhtml vbscript problem

    I like this one:
    http://www.dynamicdrive.com/dynamici...ects/index.htm

    I was using a recycled script from ASP, trying to convert it to php and feel that the same problem might reoccur. I want to use the example above.

    Populating the first listbox is alright. But when I don't know how to populate the 2nd listbox.
    Compare bible texts (and other tools):
    TheWheelofGod

  6. #6

    Thread Starter
    Hyperactive Member
    Join Date
    Sep 2004
    Posts
    447

    Re: php dhtml vbscript problem

    I'm converting ASP to PHP:
    PHP Code:
    <?php
    /*'Option Explicit*/
    ?>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <html>
        <head>
            <title>Read the King James Bible</title>
            <script language="JavaScript" type="text/javascript">
            <!--
                function go(action) {
                
                // set variables pointing to the two forms we need
                var theForm = document.forms["myForm"];
                var otherForm = window.parent.document.forms["myForm"];
                
                // construct the "search" part of the URL from all the elements
                var query = "?Book=" + theForm.Book.options[theForm.Book.selectedIndex].value;
                query += "&Chapter=" + theForm.Chapter.options[theForm.Chapter.selectedIndex].value;
                
                // test to see if a verse has been selected, if not we won't pass the values
                if( theForm.verse.selectedIndex != -1 ) {
                    for( var i=0; i < theForm.verse.options.length; i++ ) {
                        if( theForm.verse.options[i].selected ) {
                            query += "&Verse=" + theForm.verse.options[i].value;
                        }
                    }
                }
                
                query += "&Keyword=" + escape(otherForm.Keyword.value);
                query += "&Keywordb=" + escape(otherForm.Keywordb.value);
                query += "&Keywordc=" + escape(otherForm.Keywordc.value);
                query += "&Keywordd=" + escape(otherForm.Keywordd.value);
                query += "&Keyworde=" + escape(otherForm.Keyworde.value);
                query += "&Keywordf=" + escape(otherForm.Keywordf.value);
                query += "&";
                
                // either redirect this page or the child frame depending on which select was changed
                if(action == "refresh") {
                    location.href = "showbook.php" + query;
                } else {
                    ifrVerse.location.href = "showverse.php" + query;
                }
                
                }
            //-->
            </script>
        </head>
        <body>
            <?php
    /*
                Dim Book
                Dim Chapter
                Dim Verse

                Dim DSNName
                Dim Conn
                Dim RS
                Dim SQL1
            
                Dim Keyword
            */
    ?>
            <table border="0" bgcolor="#FFFCDC">
                <td>
                    <form name="myForm" action="showverse.php" method="get" target="ifrVerse">
                        <table border="0" bgcolor="#FFFCDC">
                            <tr>
                                <th align="center" color="white">
                            </tr>
                             <tr>
                                 <th colspan="1" align="center">book</th>
                                 <th colspan="1" align="center">chapter</th>
                             </tr>
                            <tr>
                                <td>
                                     <?php
                                         
    require_once('mysql.php');
                                         

    /*
                                    '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
                    
                                    Book        = ValidateInt(request("book"))
                                    Chapter     = ValidateInt(request("Chapter"))
                                    Verse       = request("Verse")
                                    */
    ?>
                        
                                    
                                    <?php

    ?>
                        
                        <input type="hidden" name="Keyword" value="" />
                        <input type="hidden" name="Keywordb" value="" />
                        <input type="hidden" name="Keywordc" value="" />
                        <input type="hidden" name="Keywordd" value="" />
                        <input type="hidden" name="Keyworde" value="" />
                        <input type="hidden" name="Keywordf" value="" />
                        
    <?php                                
                        
    /*
                        <a name="bcv"><select name="Book" size="5" style="width:150px;" onChange="go('refresh');" 

    ></a> */
    ?>
                                            <?php
                                        $result 
    mysql_query("SELECT DISTINCT book_title, book FROM bible");
                                        
                                        echo 
    "<a name='bcv'><select name='Book' size='5' style='width:150px;' onChange=\"go('refresh');\"></a>"."\n";
                                        while(
    $row mysql_fetch_array($result))
                                          {
                                          
                                          echo 
    "<option value='" $row['book'] . "'>";
                                          echo 
    $row['book_title'];
                                          echo 
    "</option>"."\n";
                                          
                                          }
                                        echo 
    "</select>";
                                        
    //mysql_close($con);
                                            
    /*
                                            Do until RS.eof
                                                */
    ?>
                                                <?php
    /*<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">
                                    <?php
    /*
                                    '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
                                        */
    ?>
    <?php
    /*                                    <select name="Chapter" size="5" style="width:75px;" onChange="go('refresh');" 'onchange="go2();">*/
    ?>


                                        <?php
                                        $result 
    mysql_query("SELECT DISTINCT chapter, book FROM bible WHERE book = " $row['book'] . "");
                                        
                                        echo 
    "<select name='Chapter' size='5' style='width:150px;' onChange=\"go('refresh');\">"."\n";
                                        while(
    $row mysql_fetch_array($result))
                                          {
                                          
                                          echo 
    "<option value='" $row['chapter'] . "'>";
                                          echo 
    $row['chapter'];
                                          echo 
    "</option>"."\n";
                                          
                                          }
                                        echo 
    "</select>";
                                        
    mysql_close($con);                                    
                                        
    /*
                                        Do until RS.eof
                                            */
    ?>
                                            <option <?php
    /*if int(Chapter) = int(rs("Chapter")) then response.write "selected" end if*/
    ?> value="<?php
    /*=RS("Chapter")*/
    ?>"><?php
    /*=RS("Chapter")*/
    ?></option>
                                            
                                            <?php
    /*
                                            rs.movenext
                                            if rs.eof then
                                                exit do
                                            end if
                                        Loop
                                        */
    ?>
                                        </select>
    I'm getting this error:
    <select name='Chapter' size='5' style='width:150px;' onChange="go('refresh');">
    <br />
    <b>Warning</b>: mysql_fetch_array(): supplied argument is not a valid MySQL result resource in <b>C:\xampp\htdocs\wheelofgod\search\cat\showbook.php</b> on line <b>192</b><br />

    </select>
    Compare bible texts (and other tools):
    TheWheelofGod

  7. #7
    WiggleWiggle dclamp's Avatar
    Join Date
    Aug 2006
    Posts
    3,527

    Re: php dhtml vbscript problem

    that error is telling you that there is something wrong with this:

    $result = mysql_query("SELECT DISTINCT book_title, book FROM bible");

    there must be a problem with the SQL syntax. Could be that book_title or book fields dont exist or bible table doesnt exisit
    My usual boring signature: Something

  8. #8

    Thread Starter
    Hyperactive Member
    Join Date
    Sep 2004
    Posts
    447

    Re: php dhtml vbscript problem

    I think that in itself is fine. The problem is when I start another $sql, for populating the chapters. What things have to be rename and be distinct?
    If $sql applies for the first listbox, then should i Put $sql2 for chapters? What about $result?

    Can you verify the syntax making sure that it doesn't confuse between the two?
    Compare bible texts (and other tools):
    TheWheelofGod

  9. #9
    WiggleWiggle dclamp's Avatar
    Join Date
    Aug 2006
    Posts
    3,527

    Re: php dhtml vbscript problem

    since it is 2 different queries, it should not matter... Try adding 1 at the end of the other vars
    My usual boring signature: Something

  10. #10
    VBA Nutter visualAd's Avatar
    Join Date
    Apr 2002
    Location
    Ickenham, UK
    Posts
    4,906

    Re: php dhtml vbscript problem

    Quote Originally Posted by gilgalbiblewhee
    I think that in itself is fine. The problem is when I start another $sql, for populating the chapters. What things have to be rename and be distinct?
    If $sql applies for the first listbox, then should i Put $sql2 for chapters? What about $result?

    Can you verify the syntax making sure that it doesn't confuse between the two?
    I think it is not fine. No one will know unless you put an error checking statement in. If you execute a query and it fails it will return FALSE instead of a resource.

    If you get the "not a valid MYSQL resource" error, it means your query has failed. Use the following to check.
    PHP Code:
    $result mysql_query("SELECT DISTINCT book_title, book FROM bible"); 

    if (! 
    $result) {
        echo(
    mysql_error()); // remove both these lines in production 
        
    die(); // version and replace with an error handler.

    And don't use echo t product HTML :P
    PHP || MySql || Apache || Get Firefox || OpenOffice.org || Click || Slap ILMV || 1337 c0d || GotoMyPc For FREE! Part 1, Part 2

    | PHP Session --> Database Handler * Custom Error Handler * Installing PHP * HTML Form Handler * PHP 5 OOP * Using XML * Ajax * Xslt | VB6 Winsock - HTTP POST / GET * Winsock - HTTP File Upload

    Latest quote: crptcblade - VB6 executables can't be decompiled, only disassembled. And the disassembled code is even less useful than I am.

    Random VisualAd: Blog - Latest Post: When the Internet becomes Electricity!!


    Spread happiness and joy. Rate good posts.

Posting Permissions

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



Click Here to Expand Forum to Full Width