Database Discussion - i never saw this error

Print Page | Close Window

i never saw this error

Printed From: Web Wiz Forums
Category: General Discussion
Forum Name: Database Discussion
Forum Description: Discussion and chat on database related topics.
URL: https://forums.webwiz.net/forum_posts.asp?TID=12602
Printed Date: 28 March 2026 at 9:37am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: i never saw this error

Posted By: BlueMask
Subject: i never saw this error
Date Posted: 19 November 2004 at 2:25am

did you see ever ?

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.

i searced by google, but i didn't find anything.

can you help me ?

Replies:

Posted By: Mart
Date Posted: 19 November 2004 at 5:02am

Maybe you have an incorrect connection string

Posted By: dj air
Date Posted: 19 November 2004 at 5:25am

ive had this sometimes. alot of the time its when the query isn't correct (wrong table name or field name) .

thats the sort of error message when its not correct, the other error message you can get is

"The field cannot be found"

but thats when you use Connection("Field") , after the connection is made

Posted By: dpyers
Date Posted: 19 November 2004 at 12:52pm

Try this google link

http://www.google.com/search?sourceid=navclient&ie=UTF-8&q=0x80040E21 - http://www.google.com/search?sourceid=navclient&ie=UTF-8 &q=0x80040E21

-------------

Lead me not into temptation... I know the short cut, follow me.

Posted By: BlueMask
Date Posted: 19 November 2004 at 12:57pm

i want to upload his asp file to here or code, but code is very long.

ok guys, i need your helps. i will tray to add part of my file.

Part 1

[code]

<%
Dim strDate
Dim strMonth
Dim strYear
Dim dtmNextMonthDate
Dim dtmLastMonthDate
Dim dtmNextYearDate
Dim strNow
Dim intCalendarLoopCounter
Dim strEvent
Dim blnForumStatsNewPost
Dim strCookieHide
Dim strHide
Dim blnShowSubLinks
Dim strNewestForumPostSubject
Dim intTotalMembers
Dim intTotalTopics
Dim intTotalThreads
Dim intTotalPosts
Dim rsNewestForumPosts
Dim strTempTableColour
Dim strTempTableBgColour
Dim strTempTableBorderColour

'On Error Resume Next

strHide = formatSQLInput(Request.QueryString("Hide"))

If CBool(Request.Cookies("Hide")("SubLinks")) = True OR IsEmpty(Request.Cookies("Hide")("SubLinks")) = True Then
blnShowSubLinks = True
Else
blnShowSubLinks = False
End If

Function CreateCookie(strCookieName)
If Request.Cookies("Hide")(strCookieName) = "" Then Response.Cookies("Hide")(strCookieName) = True
If CBool(Request.Cookies("Hide")(strCookieName)) = True OR isEmpty(Request.Cookies("Hide")(strCookieName)) = True Then
  Response.Cookies("Hide")(strCookieName ) = False
  Response.Cookies("Hide").Expires = DateAdd("yyyy", 1, Now())
Else
  Response.Cookies("Hide")(strCookieName ) = True
  Response.Cookies("Hide").Expires = DateAdd("yyyy", 1, Now())
End If
End Function

If strHide <> "" Then
Call CreateCookie(strHide)

Set rsCommon = Nothing
Set adoCon = Nothing

If IsEmpty(Request.QueryString("Redirect")) = True Then
Response.Redirect("default.asp")
Else
Response.Redirect(DecodeRedirect(Request.QuerySt ring("Redirect")))
End If
End If

Dim strFormatTopTableAlign

Function FormatTopTable(strTableWidth)
If strTempTableColour = "" Then strTempTableColour = strTableColour
If strTempTableBgColour = "" Then strTempTableBgColour = strTableBgColour
If strTempTableBorderColour = "" Then strTempTableBorderColour = strTableBorderColour
If strFormatTopTableAlign = "" Then strFormatTopTableAlign = "center"

Response.Write(vbCrLf & "<table cellspacing=""0"" cellpadding=""0"" border=""0"" width=""" & strTableWidth & """ align=""" & strFormatTopTableAlign & """>")
Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td width=""100%"" colspan=""3"">")

If blnShowTopTableGraphics = True Then
       Response.Write(vbCrLf & " <table cellspacing=""0"" cellpadding=""0"" width=""100%"" align=""center"">")
  Response.Write(vbCrLf & "   <tr>")
  Response.Write(vbCrLf & "    <td><img src=""" & strImagePath & "top-left.gif""></td>")
  Response.Write(vbCrLf & "    <td width=""100%"" bgcolor=""" & strTableColour & """ background=""" & strImagePath & "top-bg.gif""><img src=""" & strImagePath & "1px_spacer.gif"" width=""100%"" height=""1""></td>")
  Response.Write(vbCrLf & "    <td><img src=""" & strImagePath & "top-right.gif""></td>")
  Response.Write(vbCrLf & "   </tr>")
  Response.Write(vbCrLf & " </table>")
End If

Response.Write(vbCrLf & " <table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">")
Response.Write(vbCrLf & " <tr>")

If blnShowSideTableGraphics = True Then Response.Write(vbCrLf & " <td background=""" & strImagePath & "left-side-table-bg.gif""><img src=""" & strImagePath & "left-side-table-bg.gif""></td>")

Response.Write(vbCrLf & "    <td width=""100%"">")
Response.Write(vbCrLf & "    <table cellpadding=""0"" cellspacing=""0"" width=""100%"" border=""0"">")
Response.Write(vbCrLf & "     <tr>")

If blnShowTopTableGraphics Then
  Response.Write(vbCrLf & "      <td width=""100%"" style=""border-left: 1px solid " & strTableBorderColour & ";border-right: 1px solid " & strTableBorderColour & ";"">")
ElseIf blnShowTableGraphics Then
  Response.Write(vbCrLf & "      <td width=""100%"" style=""border-left: 1px solid " & strTableBorderColour & ";border-top: 1px solid " & strTableBorderColour & ";border-right: 1px solid " & strTableBorderColour & ";"">")
Else
  Response.Write(vbCrLf & "      <td width=""100%"" style=""border-left: 1px solid " & strTableBorderColour & ";border-top: 1px solid " & strTableBorderColour & ";border-bottom: 1px solid " & strTableBorderColour & ";border-right: 1px solid " & strTableBorderColour & ";"">")
End If

Response.Write(vbCrLf & " <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""5"" bgcolor=""" & strTableBgColour & """>")

strTempTableColour = ""
strTempTableBgColour = ""
strTempTableBorderColour = ""
strFormatTopTableAlign = ""
End Function

Dim intBoxID
intBoxID = 0

Function FormatTopTable2(strTableWidth)
If strTempTableColour = "" Then strTempTableColour = strTableColour
If strTempTableBgColour = "" Then strTempTableBgColour = strTableBgColour
If strTempTableBorderColour = "" Then strTempTableBorderColour = strTableBorderColour

Response.Write(vbCrLf & "<table cellspacing=""0"" cellpadding=""0"" border=""0"" width=""" & strTableWidth & """ align=""center"">")
Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td width=""100%"" colspan=""3"">")

If blnShowTopTableGraphics = True Then
       Response.Write(vbCrLf & " <table cellspacing=""0"" cellpadding=""0"" width=""100%"" align=""center"">")
  Response.Write(vbCrLf & "   <tr>")
  Response.Write(vbCrLf & "    <td><img src=""" & strImagePath & "top-left.gif""></td>")
  Response.Write(vbCrLf & "    <td width=""100%"" bgcolor=""" & strTempTableColour & """ background=""" & strImagePath & "top-bg.gif""><img src=""" & strImagePath & "1px_spacer.gif"" width=""100%"" height=""1""></td>")
  Response.Write(vbCrLf & "    <td><img src=""" & strImagePath & "top-right.gif""></td>")
  Response.Write(vbCrLf & "   </tr>")
  Response.Write(vbCrLf & " </table>")
End If

Response.Write(vbCrLf & " <table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">")
Response.Write(vbCrLf & " <tr>")

If blnShowSideTableGraphics = True Then Response.Write(vbCrLf & " <td background=""" & strImagePath &am

Posted By: BlueMask
Date Posted: 19 November 2004 at 12:58pm

part 2

[code]

'Small Calendar
Function FormatSmallCalendar()
Dim strHighLightCalendarDays
Dim saryHighLightCalendarDays
Dim intEventHightLightCellCounter
Dim dtmSCNextMonthDate
Dim dtmSCLastMonthDate
Dim strSCMonth
Dim strSCYear
Dim strSCDate

Call FormatTableTitleTop2(strTxtCalendar, "SmallCalendar", "100%", 7)

If Request.Cookies("box" & intBoxID) = "Hide" Then Response.Write(vbCrLf & "<script lanauge=""Javascript"">showhide('box" & intBoxID & "');</script>")

strSCMonth = Clng(Request.QueryString("SM"))
strSCYear = Clng(Request.QueryString("SY"))

If strSCMonth = 0 Then strSCMonth = Month(Now())
If strSCYear = 0 Then strSCYear = Year(Now())

dtmSCNextMonthDate = strSCMonth + 1
dtmSCLastMonthDate = strSCMonth - 1

  If dtmSCNextMonthDate = 13 Then dtmSCNextMonthDate = 1
  If dtmSCLastMonthDate = 0 Then dtmSCLastMonthDate = 12
  If strSCMonth = 12 Then dtmNextYearDate = strSCYear + 1 Else dtmNextYearDate = strSCYear

strSCDate = MonthName(strSCMonth) & " 1 " & strSCYear

strHighLightCalendarDays = ""

  If strDatabaseType = "SQLServer" Then
   strSQL = "EXECUTE " & strDbProc & "SmallCalendar @strDay = " & Day(strSCDate) & ", @strMonth = " & Month(strSCDate) & ", @strYear = " & Year(strSCDate)
  Else
   strSQL = "SELECT " & strDbTable & "Calendar.Day, " & strDbTable & "Calendar.Month, " & strDbTable & "Calendar.Year FROM " & strDbTable & "Calendar "
   strSQL = strSQL & "WHERE " & strDbTable & "Calendar.Month = " & Month(strSCDate) & " AND " & strDbTable & "Calendar.Year = " & Year(strSCDate) & " AND " & strDbTable & "Calendar.Private = False;"
  End If

rsCommon.Open strSQL, adoCon

  If NOT rsCommon.EOF Then
   DO UNTIL rsCommon.EOF
    strHighLightCalendarDays = strHighLightCalendarDays & rsCommon("Day") & ";"
   rsCommon.MoveNext
   Loop
  End If

rsCommon.Close

saryHighLightCalendarDays = Split(strHighLightCalendarDays, ";")

  Response.Write(vbCrLf & "   <tr>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableTitleColour2 & """ background=""" & strTableTitleBgImage2 & """ class=""tiHeading"" colspan=""7"" align=""center"">" & MonthName(strSCMonth) & "</td>")
  Response.Write(vbCrLf & "   </tr>")
  Response.Write(vbCrLf & "   <tr>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ width=""14%"" align=""center"" class=""table"">S</td>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ width=""14%"" align=""center"" class=""table"">M</td>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ width=""14%"" align=""center"" class=""table"">T</td>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ width=""14%"" align=""center"" class=""table"">W</td>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ width=""14%"" align=""center"" class=""table"">T</td>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ width=""14%"" align=""center"" class=""table"">F</td>")
  Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ width=""14%"" align=""center"" class=""table"">S</td>")
  Response.Write(vbCrLf & "   </tr>")
  Response.Write(vbCrLf & "   <tr>")

  For intCalendarLoopCounter = 1 to Weekday(strSCDate) - 1
    Response.Write(vbCrLf & "    <td bgcolor=""" & strLastMonthColour & """ width=""14%"" class=""table""> </td>")
   Next

DO
Response.Write(vbCrLf & " <td width=""14%"" bgcolor=""")

    If Month(strSCDate) < Month(Now()) Then
     Response.Write(strNextMonthCol our)
    ElseIf strSCDate = Date() Then
     Response.Write(strTodayMonthCo lour)
    ElseIf Year(strSCDate) < Year(Now()) Then
     Response.Write(strNextMonthCol our)
    ElseIf strSCDate => Date() Then
     Response.Write(strThisMonthCol our)
    ElseIf Month(strSCDate) = Month(Now()) Then
     Response.Write(strThisMonthCol our)
    Else
     Response.Write(strLastMonthCol our)
    End If

    For intLoopCounter = 0 to UBound(saryHighLightCalendarDays)
     If saryHighLightCalendarDays(intLoopCounter) = "" & Day(strSCDate) Then Response.Write(""" style=""background-color: " & strCalendarHighLightColour & ";""")
    Next

Response.Write(""" width=""14%"" height=""20"" align=""center"" class=""table""><a href=""event.asp?Day=" & Day(strSCDate) & "&Month=" & Month(strSCDate) & "&Year=" & Year(strSCDate) & """ class=""smLink"" style=""font-size: 8px;""><b>" & Day(strSCDate) & "</b></a></b></td>")

If WeekDay(strSCDate) = 7 AND NOT DateSerial(Year(strSCDate), Month(strSCDate) + 1, 0) = strSCDate Then Response.Write(vbCrLf & " </tr>" & vbCrLf & " <tr>")

strSCDate = DateAdd("d", 1, strSCDate)
Loop Until (Month(strSCDate) <> CInt(strSCMonth))

   If Weekday(strSCDate) <> 1 Then
    For intCalendarLoopCounter = Weekday(strSCDate) to 7
     Response.Write(" <td bgcolor=""" & strNextMonthColour & """ class=""table""> </td>")
    Next
   End If

strSCDate = DateSerial(strSCYear, strSCMonth, 1)

   Response.Write(vbCrLf & "   </tr>")
   Response.Write(vbCrLf & "   <tr>")
   Response.Write(vbCrLf & "    <td bgcolor=""" & strTableColour & """ colspan=""7"" align=""center"" class=""table""><br>")

   Dim strNextMonthURL
   Dim strLastMonthURL
   Dim strTempQueryString

   strLastMonthURL = Request.ServerVariables("SCRIPT_NAME")
   strNextMonthURL = Request.ServerVariables("SCRIPT_NAME")
   strTempQueryString = Request.ServerVariables("QUERY_STRING")

Posted By: BlueMask
Date Posted: 19 November 2004 at 12:59pm

part 3

[code]

   If strDatabaseType = "SQLServer" Then
    strSQL = "EXECUTE " & strDbProc & "LatestForumPosts @lngLoggedInUserID=" & lngLoggedInUserID & ", @intGroupID=" & intGroupID & ", @intForumGroupPermission=" & intForumGroupPermission
   Else
    strSQL = "SELECT Top 15 tblThread.Message, tblThread.Author_ID, tblThread.Topic_ID, tblThread.Thread_ID, tblThread.Message_date, tblAuthor.Username, tblTopic.Subject, tblTopic.Last_entry_date, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Password, " & strDbTable & "Forum.Forum_code FROM " & strDbTable & "Category, " & strDbTable & "Forum, tblTopic " & _
     "INNER JOIN (" & strDbTable & "Author INNER JOIN " & strDbTable & "Thread ON " & strDbTable & "Author.Author_ID = " & strDbTable & "Thread.Author_ID) ON " & strDbTable & "Topic.Last_entry_date = " & strDbTable & "Thread.Message_date " & _
     "WHERE ((" & strDbTable & "Category.Cat_ID = " & strDbTable & "Forum.Cat_ID AND " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Topic.Forum_ID)) " & _
     "AND (" & strDbTable & "Forum.[Read] <= " & intForumGroupPermission & " OR (" & strDbTable & "Topic.Forum_ID IN (" & _
     "SELECT " & strDbTable & "Permissions.Forum_ID " & _
     "FROM " & strDbTable & "Permissions " & _
     "WHERE " & strDbTable & "Permissions.Author_ID=" & lngLoggedInUserID & " OR " & strDbTable & "Permissions.Group_ID = " & intGroupID & " AND " & strDbTable & "Permissions.[Read]=" & CBoolConvert(1) & "))) " & _
     "ORDER BY " & strDbTable & "Topic.Last_entry_date DESC;"
   End if

rsCommon.Open strSQL, adoCon

   If rsCommon.EOF Then
    Response.Write(vbCrLf & "     <tr>")
    Response.Write(vbCrLf & "      <td bgcolor=""" & strTableColour & """ width=""100%"" class=""content"" align=""center""><span class=""smText"">There are no forum posts, or you do not have permission to view any of the posts.<br><br>[ <a href=""" & strExtraForumPath & "registration_rules.asp?FID=0&Redirect=" & RedirectFullPath("") & """ class=""smLink"">Register</a> | <a href=""" & strExtraForumPath & "login_user.asp?FID=0&Redirect=" & RedirectFullPath("") & """ class=""smLink"">Login</a> ]</span></td>")
    Response.Write(vbCrLf & "     </tr>")
   Else
    Response.Write(vbCrLf & "      <tr>")
    Response.Write(vbCrLf & "       <td bgcolor=""" & strTableColour & """ width=""100%"" height=""200"" valign=""top"" class=""content""><span class=""smText"">")
    Response.Write(vbCrLf & "       <div class=""ScrollBox"">")
    Response.Write(vbCrLf & "       <table cellpadding=""1"" cellspacing=""1"" width=""100%"">")

    Do UNTIL rsCommon.EOF
     strNewestForumPostSubject = decodeString(rsCommon("Subject"))
     dbmLastForumPost = rsCommon("Last_entry_date")
     strFirstPostMsg = rsCommon("Message")

If InStr(1, strFirstPostMsg, "<edited>", 1) Then strFirstPostMsg = removeEditorAuthor(strFirstPostMsg)

strFirstPostMsg = Replace(strFirstPostMsg, "<br>", vbCrLf, 1, -1, 1)
strFirstPostMsg = removeHTML(strFirstPostMsg)

     If Month(dbmLastForumPost) = Month(Now()) AND Year(dbmLastForumPost) = Year(Now()) AND Day(dbmLastForumPost) = Day(Now()) Then
      strLastForumPost = "Today at " & TimeFormat(dbmLastForumPost, saryDateTimeData)
     Else
      strLastForumPost = "on " & DateFormat(dbmLastForumPost, saryDateTimeData) & ", " & TimeFormat(dbmLastForumPost, saryDateTimeData)
     End If

If Len(strFirstPostMsg) > 250 Then strFirstPostMsg = Left(strFirstPostMsg, 250) & "... "

     If Len(strNewestForumPostSubject) > 30 Then
      strNewestForumPostSubjec t = Left(strNewestForumPostSubject, 30) & "... "
     Else
      strNewestForumPostSubjec t = strNewestForumPostSubject
     End If

     Response.Write(vbCrLf & "        <tr>")
     Response.Write(vbCrLf & "         <td width=""100%""><b>�</b> <a href=""" & strExtraForumPath & "forum_posts.asp?TID=" & rsCommon("Topic_ID") & "&get=last#" & rsCommon("Thread_ID") & """ title=""Forum: " & rsCommon("Forum_name") & vbCrLf & "Last Reply: " & strLastForumPost & vbCrLf & "Last Message by " & rsCommon("Username") & " " & strLastForumPost & ": " & vbCrLf & "---------------------" & vbCrLf &strFirstPostMsg & """ class=""smLink""><b>" & strNewestForumPostSubject & "</b></a><br><span class=""smText"">Last Reply By <a href=""javascript:openWin('" & strExtraForumPath & "pop_up_profile.asp?PF=" & rsCommon("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scroll bars=1,resizable=1,width=590,height=425')"" class=""smLink"">" & rsCommon("Username") & "</a></span></td>")
     Response.Write(vbCrLf & "        </tr>")
    rsCommon.Movenext
    Loop

    Response.Write(vbCrLf & "       </table>")
    Response.Write(vbCrLf & "       </div>")
    Response.Write(vbCrLf & "       </span>")
    Response.Write(vbCrLf & "      </td>")
    Response.Write(vbCrLf & "     </tr>")
   End if

   If Err.Number <> 0 Then
    adoCon.Execute("DROP PROCEDURE [wwfSpLatestForumPosts]")
    adoCon.Execute("CREATE PROCEDURE [dbo].[wwfSpLatestForumPosts] (@intForumGroupPermission int, @lngLoggedInUserID int, @intGroupID int) AS SELECT Top 15 tblThread.Message, tblThread.Author_ID, tblThread.Topic_ID, tblThread.Thread_ID, tblThread.Message_date, tblAuthor.Username, tblTopic.Subject, tblTopic.Last_entry_date, tblForum.Forum_name, tblForum.Password, tblForum.Forum_code FROM tblCat

Posted By: BlueMask
Date Posted: 19 November 2004 at 1:00pm

and last part of my file

[code]

DO UNTIL rsCommon.EOF
     If Request.Form("voteChoice") <> "" Then
      If blnAlreadyVoted = False AND Clng(rsCommon("Choice_ID")) = Clng(Request.Form("voteChoice")) Then
       strSQL = "UPDATE tblPollChoice SET tblPollChoice.Last_vote_IP = '" & getIP() & "', tblPollChoice.Votes = " & rsCommon("Votes") + 1 & " WHERE tblPollChoice.Choice_ID=" & rsCommon("Choice_ID") & ";"
       adoCon.Execute(str SQL)

strSQL = "UPDATE tblPoll SET tblPoll.Author_ID = " & lngLoggedInUserID & ", tblPoll.Last_vote_IP = '" & getIP() & "' WHERE tblPoll.Poll_ID=" & lngPollID & ";"
adoCon.Execute(str SQL)

Response.Cook ies(strCookieName)("PID" & lngPollID) = lngPollID
Response.Cook ies(strCookieName).Expires = Now() + 360

blnAlreadyVoted = True

       rsCommon.Requery
      End If
     End If

     lngTotalPollVotes = lngTotalPollVotes + rsCommon("Votes")
    rsCommon.MoveNext
    Loop

rsCommon.MoveFirst

DO UNTIL rsCommon.EOF
intRecordLoopCounter = intRecordLoopCounter + 1

     Response.Write(vbCrLf & "     <tr>")
     Response.Write(vbCrLf & "      <td bgcolor=""")
     If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePollEvenRowColour) Else Response.Write(strTablePollOddRowColour)
     Response.Write(""" class=""content"">")
     Response.Write(vbCrLf & "      <table cellpadding=""1"" cellspacing=""1"" class=""smText"">")

     If blnVote = True AND blnForumLocked = False AND blnTopicLocked = False AND blnActiveMember = True AND blnAlreadyVoted = False Then
      Response.Write(vbCrLf & "       <tr>")
      Response.Write(vbCrLf & "        <td><input type=""radio"" name=""voteChoice"" value=""" & rsCommon("Choice_ID") & """> " & rsCommon("Choice") & "</td>")
      Response.Write(vbCrLf & "       </tr>")
     Else
      If lngTotalPollVotes = 0 Then
       dblPollVotePercent age = FormatPercent(0, 1)
      Else
       dblPollVotePercent age = FormatPercent((rsCommon("Votes") / lngTotalPollVotes), 0)
      End If

      Response.Write(vbCrLf & "       <tr>")
      Response.Write(vbCrLf & "        <td colspan=""2"">" & rsCommon("Choice") & "</td>")
      Response.Write(vbCrLf & "       </tr>")
      Response.Write(vbCrLf & "       <tr>")
      Response.Write(vbCrLf & "        <td width=""90%"">")
      Response.Write(vbCrLf & "        <table cellpadding=""0"" cellspacing=""0"" width=""")

      If dblPollVotePercentage = "0%" Then
       Response.Write("5" )
      Else
       Response.Write(dbl PollVotePercentage)
      End If

      Response.Write(""">")
      Response.Write(vbCrLf & "         <tr>")
      Response.Write(vbCrLf & "          <td><img src=""" & strImagePath & "left-poll.gif""></td>")
      Response.Write(vbCrLf & "          <td background=""" & strImagePath & "/bar_graph_image.gif"" width=""100%""></td>")
      Response.Write(vbCrLf & "          <td><img src=""" & strImagePath & "right-poll.gif""></td>")
      Response.Write(vbCrLf & "         </tr>")
      Response.Write(vbCrLf & "        </table>")
      Response.Write(vbCrLf & "        </td>")
      Response.Write(vbCrLf & "        <td width=""10%"" align=""right"" nowrap>" & dblPollVotePercentage & " (" & rsCommon("Votes") & ")</td>")
      Response.Write(vbCrLf & "       </tr>")
     End If
     Response.Write(vbCrLf & "      </table>")
     Response.Write(vbCrLf & "      </td>")
     Response.Write(vbCrLf & "     </tr>")
    rsCommon.MoveNext
    Loop

   Response.Write(vbCrLf & "     <tr>")
    Response.Write(vbCrLf & "      <td bgcolor=""" & strTableColour & """ class=""content""><span class=""smText"">")
    Response.Write(vbCrLf & "      <center>")

    If blnForumLocked = True OR blnTopicLocked = True Then
     Response.Write(strTxtThisTopic IsClosedNoNewVotesAccepted)
    ElseIf blnActiveMember = False OR blnVote = False Then
     Response.Write(strsTxYouCanNot NotVoteInThisPoll)
    ElseIf blnAlreadyVoted = True Then
     Response.Write(strTxtYouHaveAl readyVotedInThisPoll)
    Else
     Response.Write(vbCrLf & "      <br><input type=""submit"" value=""" & strTxtVote & """>")
    End If

Response.Write(vbCrLf & " <br><br>" & strTxtTotalVotes & " " & lngTotalPollVotes & "<br><br><s

Posted By: BlueMask
Date Posted: 19 November 2004 at 1:02pm

i am taking error by line 1098.

thank you for everythings...

Posted By: Mart
Date Posted: 19 November 2004 at 1:13pm

Do you expect us to read and debug that code? Just show us relevant lines

Posted By: dj air
Date Posted: 19 November 2004 at 1:19pm

i had the problem again today,

it was/is because the table/field name in the SQL is not correct. make sure all SQL's are correct, with correct table names and field names.

if this is the case we aren't able to help as we don't know your Database structure.

Posted By: dpyers
Date Posted: 19 November 2004 at 1:29pm

Are you by any chance trying to update a row that has just been inserted?

-------------

Lead me not into temptation... I know the short cut, follow me.

Posted By: BlueMask
Date Posted: 19 November 2004 at 7:20pm

dpyers wrote:

Are you by any chance trying to update a row that has just been inserted?

i didn't do anythink. i try 2 different pc. in the first pc had this error, but in the another pc it run. 2 days later i had this error from the another pc. its so interesting...

the page is here : http://necrophilic_coder.spymac.net/omer/format_page.zip - Click here for donwload

Posted By: BlueMask
Date Posted: 19 November 2004 at 7:21pm

dj air wrote:

i had the problem again today,

it was/is because the table/field name in the SQL is not correct. make sure all SQL's are correct, with correct table names and field names.

if this is the case we aren't able to help as we don't know your Database structure.

sorry but, i am using access.

Posted By: dj air
Date Posted: 20 November 2004 at 5:51am

sorry i wasn't clear its not an SQL Database related issue i wrote about.

when i said SQL's i ment like

strSQL = "Select TableName.fieldname, From tablename"

make sure the statements are correct. like the above i just did would be wrong as the tablename is not the same as the first one / the database one.

they are CaSe Sensative.