Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Mod of a MOD
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Rrok007
Junior Member

USA
149 Posts

Posted - 10 September 2004 :  02:51:52  Show Profile  Send Rrok007 an AOL message  Send Rrok007 a Yahoo! Message
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.
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.7 seconds. Powered By: Snitz Forums 2000 Version 3.4.07