|
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. |
|
Topic Locked
