Rrok007
Junior Member
 
USA
149 Posts |
Posted - 10 September 2004 : 02:51:52
|
I'm using a self-mod of OWM's Rules MOD for FAQ administration. I'm running into an error on the admin_faq_order.asp page though. The page is supoosed to let me sort the order of the questions and the catagories. However, the first thing wrong is that it lists numbers for the categories, but it doesn't list numbers for the questions. The other problem is that even though I can set the categories and it works, it still gives the error that there is a syntax error in the UPDATE statement on line 75. The line referred to is in red. Please help?
If Request.Form("Method_Type") = "Write_Configuration" Then If Request.Form("NumberCategories") <> "" Then i = 1 Do Until i > cLng(Request.Form("NumberCategories")) SelectName = Request.Form("SortCategory" & i) If isNull(SelectName) Then SelectName = cLng(Request.Form("NumberCategories")) SelectID = Request.Form("SortCatID" & i) NumberQuestions = Request.Form("NumberQuestions" & SelectID) strsql = "UPDATE " & strTablePrefix & "FAQ_CATEGORY SET FCAT_ORDER=" & SelectName & " WHERE FCAT_ID=" & SelectID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords If NumberQuestions <> "" Then j = 1 Do Until j > cLng(Request.Form("NumberQuestions" & SelectID)) SelectNamec = Request.Form("SortCat" & i & "SortQuestions" & j) If isNull(SelectNamec) Then SelectNamec = cLng(Request.Form("NumberQuestions" & SelectID)) SelectIDc = Request.Form("SortCatID" & i & "SortQuestionsID" & j) strsql = "UPDATE " & strTablePrefix & "FAQ SET FAQ_ORDER=" & SelectNamec & " WHERE FAQ_ID = " & SelectIDc & " AND FAQ_CAT = " & SelectID response.write strSql my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords j = j + 1 Loop End If i = i + 1 Loop End If Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Order Submitted!</font></p>" & vbNewline & _ " <script language=""javascript1.2"">self.opener.location.reload();</script>" & vbNewLine & _ " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Congratulations!</font></p>" & vbNewline Else |
Believe disbelief and contemplate the simple. |
|