Web Wiz - Green Windows Web Hosting
Web Wiz Homepage Search Web Wiz

  New Posts New Posts RSS Feed - i never saw this error
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

i never saw this error
 Post Reply Post Reply Page  12>
Author
  Topic Search Topic Search  Topic Options Topic Options
BlueMask View Drop Down
Newbie
Newbie
Avatar

Joined: 27 April 2003
Location: Turkey
Status: Offline
Points: 19 		Post Options Post Options   Thanks (0) Thanks(0)   Quote BlueMask Quote  Post ReplyReply Direct Link To This Post Topic: i never saw this error
    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 ?
Back to Top
Mart View Drop Down
Senior Member
Senior Member
Avatar

Joined: 30 November 2002
Status: Offline
Points: 2304 		Post Options Post Options   Thanks (0) Thanks(0)   Quote Mart Quote  Post ReplyReply Direct Link To This Post Posted: 19 November 2004 at 5:02am
Maybe you have an incorrect connection string
Back to Top
dj air View Drop Down
Senior Member
Senior Member
Avatar

Joined: 05 April 2002
Location: United Kingdom
Status: Offline
Points: 3627 		Post Options Post Options   Thanks (0) Thanks(0)   Quote dj air Quote  Post ReplyReply Direct Link To This Post 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


Edited by dj air
Back to Top
dpyers View Drop Down
Senior Member
Senior Member


Joined: 12 May 2003
Status: Offline
Points: 3937 		Post Options Post Options   Thanks (0) Thanks(0)   Quote dpyers Quote  Post ReplyReply Direct Link To This Post Posted: 19 November 2004 at 12:52pm

Try this google link

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

Lead me not into temptation... I know the short cut, follow me.
Back to Top
BlueMask View Drop Down
Newbie
Newbie
Avatar

Joined: 27 April 2003
Location: Turkey
Status: Offline
Points: 19 		Post Options Post Options   Thanks (0) Thanks(0)   Quote BlueMask Quote  Post ReplyReply Direct Link To This Post 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

Back to Top
BlueMask View Drop Down
Newbie
Newbie
Avatar

Joined: 27 April 2003
Location: Turkey
Status: Offline
Points: 19 		Post Options Post Options   Thanks (0) Thanks(0)   Quote BlueMask Quote  Post ReplyReply Direct Link To This Post 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"">&nbsp;</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"">&nbsp;</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")

   

Back to Top
BlueMask View Drop Down
Newbie
Newbie
Avatar

Joined: 27 April 2003
Location: Turkey
Status: Offline
Points: 19 		Post Options Post Options   Thanks (0) Thanks(0)   Quote BlueMask Quote  Post ReplyReply Direct Link To This Post 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) & "...&nbsp;"

     If Len(strNewestForumPostSubject) > 30 Then
      strNewestForumPostSubjec t = Left(strNewestForumPostSubject, 30) & "...&nbsp;"
     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

Back to Top
BlueMask View Drop Down
Newbie
Newbie
Avatar

Joined: 27 April 2003
Location: Turkey
Status: Offline
Points: 19 		Post Options Post Options   Thanks (0) Thanks(0)   Quote BlueMask Quote  Post ReplyReply Direct Link To This Post 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 & "&nbsp;" & lngTotalPollVotes & "<br><br><s

Back to Top
 Post Reply Post Reply Page  12>

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.08
Copyright ©2001-2026 Web Wiz Ltd.

Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Notice

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT at 20% unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2026 Web Wiz Ltd. All rights reserved.