Syntax Error in FROM Clause

<i><b>Originally posted by : David Highlander (dhighlander@pdq.net)</b></i><br />My Syntax Error is the line <br />"rsRecords.Open SQL, dbConn, 3"<br />and reads "Syntax error in FROM clause. "<br />Here is all my code. PLEASE HELP!!!<br /><br /><%<br />strFieldName = Request("company")<br />strTableName = Request("clientengagement")<br />strOrderByField = Request("OrderBy")<br />SValue = Request("SValue")<br />SType = Request("SType")<br /><br />For i = 1 to len(SValue)<br /> If mid(SValue, i, 1) = " " Then <br /> WordCounter = WordCounter + 1<br /> End If<br />Next<br /><br />WordCounter = WordCounter + 1<br /><br />Dim Word(100)<br /><br />CurrentWord = 1<br />For i = 1 to len(SValue)<br /> If mid(SValue, i, 1) = " " Then<br /> CurrentWord = CurrentWord + 1<br /> Else<br /> Word(CurrentWord) = Word(CurrentWord) + mid(SValue, i, 1)<br /> End If<br />Next<br /><br />SQL = "SELECT * FROM " & strTableName & " WHERE "<br /><br /> For i = 1 to WordCounter<br /> If SType = "AllWords" Then<br /> If i <> WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%' AND "<br /> ElseIf i = WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%'"<br /> End If<br /> ElseIf SType = "AnyWord" Then<br /> If i <> WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%' OR "<br /> ElseIf i = WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%'"<br /> End If<br /> End If<br /> Next<br /> <br />if Len(strOrderByField) > 0 then<br /> SQL = SQL & SQL1 & " ORDER BY " & strOrderByField<br />Else<br /> SQL = SQL & SQL1<br />End If<br />%><br /><br /><%<br />Set dbConn = Server.CreateObject("ADODB.Connection")<br />dbConn.Open "DSN=client"<br />Set rsRecords = Server.CreateObject("ADODB.Recordset")<br />rsRecords.Open SQL, dbConn, 3<br />%><br /><br /><%<br />If Not rsRecords.EOF And Not rsRecords.BOF Then<br />%><br /> <TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="1" BORDER=1><br /> <TR><br /> <% For i = 0 to rsRecords.Fields.Count-1 %><br /> <TH><FONT FACE="Arial"><%=rsRecords.Fields(i).Name%> <br /> </FONT></TH><br /> <% Next %><br /> </TR><br /> <TR></TR><TR></TR><TR></TR><br /> <%<br /> Do While Not rsRecords.EOF<br /> %><br /> <TR><br /> <% For i = 0 to rsRecords.Fields.Count-1 %><br /> <TD ALIGN=CENTER><%Response.Write(rsRecords(i))%><br /> <% Next %><br /> </TR><br /> <%rsRecords.MoveNext%><br /> <%<br /> Loop<br /> %><br /> </TABLE><br /><%<br />Else<br /> Response.Write("<FONT SIZE=5><B>Unable to find an entry</B>")<br /> Response.Write("</FONT></CENTER>")<br />End If<br />%><br />

<i><b>Originally posted by : steve</b></i><br />not to sound like this is no help but the BEST way in formatting sql is do a response.write and paste that into the query analyzer or query window and parse it that way.<br /><br />steve<br /><br /><br />------------<br />David Highlander at 5/4/2000 4:48:19 PM<br /><br />My Syntax Error is the line <br />"rsRecords.Open SQL, dbConn, 3"<br />and reads "Syntax error in FROM clause. "<br />Here is all my code. PLEASE HELP!!!<br /><br /><%<br />strFieldName = Request("company")<br />strTableName = Request("clientengagement")<br />strOrderByField = Request("OrderBy")<br />SValue = Request("SValue")<br />SType = Request("SType")<br /><br />For i = 1 to len(SValue)<br /> If mid(SValue, i, 1) = " " Then <br /> WordCounter = WordCounter + 1<br /> End If<br />Next<br /><br />WordCounter = WordCounter + 1<br /><br />Dim Word(100)<br /><br />CurrentWord = 1<br />For i = 1 to len(SValue)<br /> If mid(SValue, i, 1) = " " Then<br /> CurrentWord = CurrentWord + 1<br /> Else<br /> Word(CurrentWord) = Word(CurrentWord) + mid(SValue, i, 1)<br /> End If<br />Next<br /><br />SQL = "SELECT * FROM " & strTableName & " WHERE "<br /><br /> For i = 1 to WordCounter<br /> If SType = "AllWords" Then<br /> If i <> WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%' AND "<br /> ElseIf i = WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%'"<br /> End If<br /> ElseIf SType = "AnyWord" Then<br /> If i <> WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%' OR "<br /> ElseIf i = WordCounter Then<br /> SQL1 = SQL1 & strFieldName & " LIKE '%" & Word(i) & "%'"<br /> End If<br /> End If<br /> Next<br /> <br />if Len(strOrderByField) > 0 then<br /> SQL = SQL & SQL1 & " ORDER BY " & strOrderByField<br />Else<br /> SQL = SQL & SQL1<br />End If<br />%><br /><br /><%<br />Set dbConn = Server.CreateObject("ADODB.Connection")<br />dbConn.Open "DSN=client"<br />Set rsRecords = Server.CreateObject("ADODB.Recordset")<br />rsRecords.Open SQL, dbConn, 3<br />%><br /><br /><%<br />If Not rsRecords.EOF And Not rsRecords.BOF Then<br />%><br /> <TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="1" BORDER=1><br /> <TR><br /> <% For i = 0 to rsRecords.Fields.Count-1 %><br /> <TH><FONT FACE="Arial"><%=rsRecords.Fields(i).Name%> <br /> </FONT></TH><br /> <% Next %><br /> </TR><br /> <TR></TR><TR></TR><TR></TR><br /> <%<br /> Do While Not rsRecords.EOF<br /> %><br /> <TR><br /> <% For i = 0 to rsRecords.Fields.Count-1 %><br /> <TD ALIGN=CENTER><%Response.Write(rsRecords(i))%><br /> <% Next %><br /> </TR><br /> <%rsRecords.MoveNext%><br /> <%<br /> Loop<br /> %><br /> </TABLE><br /><%<br />Else<br /> Response.Write("<FONT SIZE=5><B>Unable to find an entry</B>")<br /> Response.Write("</FONT></CENTER>")<br />End If<br />%><br />