עזרה עם סקר

תודה ו…
יש לי טבלה לשאלות, טבלה לתשובות שמכילה גם את מס' ההצבעות
תודה על העזרה עם האחוזים, עכשיו איך אני מצייר בר?
ברור לי שאני צריך לצייר איתו ע"י מס' האחוזים (זה יהיה הרוחב) או להכפיל אותו או משהו.
אבל איך אני מצייר?

יש לי עכשיו בעיה בשרת
הוא אומר לי

Provider error '80004005'

Unspecified error

/header.asp, line 6

זו השורה של ההתחברות לdb.
במחשב שלי (IIS 5.1) זה עובד בלי שום בעיה, וגם בשרת זה עבד עד לפני איזה חצי שעה.

מישהו יכול לעזור???

הנה הפונקציה שבתוכה מתעוררת השגיאה


Private function EditionCare(Area)
Dim conn, SQLstring, TmpDate
Set conn = Server.CreateObject("ADODB.Connection")
set rs1 = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("TBS3cr3t901f.mdb")
SQLstring = "SELECT " & Area & " FROM EditionLayout;"
rs1.Open SQLstring, conn
select case Area
    case "EditionID": EditionCare=rs1(0)
    case "Center": EditionCare=GetArticle(rs1(0), True)
    case else: Editioncare=GetArticle(rs1(0), False)
    end select
end function

לא אני בניתי את הפונקציה הזו, ואני לא אמור לשנות אותה.
השורה עם הבעיה מסומנת באדום