---
title: "Object Required"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/139201-object-required"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-12-12T19:58:34.000Z"
updated: "2005-12-12T22:07:47.000Z"
replies: 23
views: 853
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/139201-object-required"
---
# Object Required
_Sida 1 av 2._
## #1 — WebbisNet, 2005-12-12T19:58Z
varför får jag
Microsoft VBScript runtime error '800a01a8'
Object required: 'SELECT BulletinBoard'
med
```
SQL = "SELECT BulletinBoard.PostID AS Post, BulletinBoard.BBName, BulletinBoard.BBEmail, BulletinBoard.Subject, BulletinBoard.ResponseTo, BulletinBoard.BBDate, BulletinBoard.BBTime FROM BulletinBoard WHERE ResponseTo = 0 AND BBDate >(Date()-90) ORDER BY BBDate DESC"
```
Min kopplingssträng är
```
<%
Function connect()
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=193.13.74.203;PORT=3306;DATABASE=XXXXXXXX; USER=XXXXXXXX;PASSWORD=XXXXXXXX;OPTION=3;"
Set connect = objConn
End Function
set objConn = Connect()
%>
```
Permalänk: https://www.webforum.nu/p/139201
## #2 — @nders, 2005-12-12T20:01Z
Du får visa mer kod. Felet kommer inte från den raden. Försöker du göra SQL.open eller något?
Permalänk: https://www.webforum.nu/p/1728090
## #3 — emission, 2005-12-12T20:02Z
Du får visa mer kod.
Permalänk: https://www.webforum.nu/p/1728091
## #4 — M.Cheraghi, 2005-12-12T20:02Z
mer kod?
red: Trist att @nders snabel räcker så långt. :P
Permalänk: https://www.webforum.nu/p/1728092
## #5 — @nders, 2005-12-12T20:04Z
Passar också på att flytta tråden till rätt forum.
Permalänk: https://www.webforum.nu/p/1728097
## #6 — WebbisNet, 2005-12-12T20:06Z
```
<%SQL = "SELECT BulletinBoard.PostID AS Post, BulletinBoard.BBName, BulletinBoard.BBEmail, BulletinBoard.Subject, BulletinBoard.ResponseTo, BulletinBoard.BBDate, BulletinBoard.BBTime FROM BulletinBoard WHERE ResponseTo = 0 AND BBDate >(Date()-90) ORDER BY BBDate DESC"
If SQL.eof = false then
On Error Resume Next
SQL.MoveFirst
do while Not SQL.eof
Post = SQL("Post")
BBDate = SQL("BBDate")
%>
<%If BBDate = Date() then%>
<%ElseIf BBDate = (Date() -1 ) then%>
<%ElseIf BBDate = (Date() -2 ) then%>
<%Else%>
<%end if%>
"><%=Server.HTMLEncode(SQL.Fields("Subject").Value)%>
- "><%=Server.HTMLEncode(SQL.Fields("BBName").Value)%> <%=Server.HTMLEncode(SQL.Fields("BBDate").Value)%> <%=Server.HTMLEncode(SQL.Fields("BBTime").Value)%>
<%Set SQL2 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT BulletinBoard.PostID AS Post2, BulletinBoard.BBName AS BBName2, BulletinBoard.BBEmail AS BBEmail2, BulletinBoard.Subject AS Subject2, BulletinBoard.Message AS Message2, BulletinBoard.ResponseTo AS ResponseTo2, BulletinBoard.BBHomepageName AS BBHomepageName2, BulletinBoard.BBHomepageURL AS BBHomepageURL2, BulletinBoard.ImageURL AS ImageURL2, BulletinBoard.BBDate AS BBDate2, BulletinBoard.BBTime AS BBTime2 FROM BulletinBoard WHERE ResponseTo = "&Post&" ORDER BY BBDate DESC"
SQL2.open sql, conn, 3, 3
If SQL2.eof = false then
%>
<%On Error Resume Next
SQL2.MoveFirst
do while Not SQL2.eof
Post2 = SQL2("Post2")
BBDate2 = SQL2("BBDate2")
%>
<%If BBDate2 = Date() then%>
<%ElseIf BBDate2 = (Date() -1 ) then%>
<%ElseIf BBDate2 = (Date() -2 ) then%>
<%Else%>
<%end if%>
<%=Server.HTMLEncode(SQL2.Fields("Subject2").Value)%> - "><%=Server.HTMLEncode(SQL2.Fields("BBName2").Value)%> <%=Server.HTMLEncode(SQL2.Fields("BBDate2").Value)%> <%=Server.HTMLEncode(SQL2.Fields("BBTime2").Value)%>
<%Set SQL3 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT BulletinBoard.PostID AS Post3, BulletinBoard.BBName AS BBName3, BulletinBoard.BBEmail AS BBEmail3, BulletinBoard.Subject AS Subject3, BulletinBoard.Message AS Message3, BulletinBoard.ResponseTo AS ResponseTo3, BulletinBoard.BBHomepageName AS BBHomepageName3, BulletinBoard.BBHomepageURL AS BBHomepageURL3, BulletinBoard.ImageURL AS ImageURL3, BulletinBoard.BBDate AS BBDate3, BulletinBoard.BBTime AS BBTime3 FROM BulletinBoard WHERE ResponseTo = "&Post2&" ORDER BY BBDate DESC"
SQL3.open sql, conn, 3, 3
If SQL3.eof = false then
%>
<%On Error Resume Next
SQL3.MoveFirst
do while Not SQL3.eof
Post3 = SQL3("Post3")
BBDate3 = SQL3("BBDate3")%>
<%If BBDate3 = Date() then%>
<%ElseIf BBDate3 = (Date() -1 ) then%>
<%ElseIf BBDate3 = (Date() -2 ) then%>
<%Else%>
<%end if%>
<%=Server.HTMLEncode(SQL3.Fields("Subject3").Value)%> - "><%=Server.HTMLEncode(SQL3.Fields("BBName3").Value)%> <%=Server.HTMLEncode(SQL3.Fields("BBDate3").Value)%> <%=Server.HTMLEncode(SQL3.Fields("BBTime3").Value)%>
<%Set SQL4 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT BulletinBoard.PostID AS Post4, BulletinBoard.BBName AS BBName4, BulletinBoard.BBEmail AS BBEmail4, BulletinBoard.Subject AS Subject4, BulletinBoard.Message AS Message4, BulletinBoard.ResponseTo AS ResponseTo4, BulletinBoard.BBHomepageName AS BBHomepageName4, BulletinBoard.BBHomepageURL AS BBHomepageURL4, BulletinBoard.ImageURL AS ImageURL4, BulletinBoard.BBDate AS BBDate4, BulletinBoard.BBTime AS BBTime4 FROM BulletinBoard WHERE ResponseTo = "&Post3&" ORDER BY BBDate DESC"
SQL4.open sql, conn, 3, 3
If SQL4.eof = false then
%>
<%On Error Resume Next
SQL4.MoveFirst
do while Not SQL4.eof
Post4 = SQL4("Post4")
BBDate4 = SQL4("BBDate4")%>
Sen fortsätter det i samma stil ett tag till
```
/Red: Koden är från 4guysfromrolla och det är ett helt diskussionsforum som jag gör om från Access till MySQL för att funka
Permalänk: https://www.webforum.nu/p/1728100
## #7 — @nders, 2005-12-12T20:08Z
Du tycker inte att det kan passa att skapa ett recordset istället för att använda recordset-metoder och egenskaper direkt på en sträng som råkar innehålla en SQL-fråga?
Permalänk: https://www.webforum.nu/p/1728105
## #8 — WebbisNet, 2005-12-12T20:10Z
> **@nders skrev:**
>
> Du tycker inte att det kan passa att skapa ett recordset istället för att använda recordset-metoder och egenskaper direkt på en sträng som råkar innehålla en SQL-fråga?
Det har du rätt i
Nu fick jag
\[MySQL\]\[ODBC 3.51 Driver\]\[mysqld-4.0.25-max\]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '()-90) ORDER BY BBDate DESC' at line 1
med
set SQL = objConn.Execute("SELECT BulletinBoard.PostID AS Post, BulletinBoard.BBName, BulletinBoard.BBEmail, BulletinBoard.Subject, BulletinBoard.ResponseTo, BulletinBoard.BBDate, BulletinBoard.BBTime FROM BulletinBoard WHERE ResponseTo = 0 AND BBDate \>(Date()-90) ORDER BY BBDate DESC")
Permalänk: https://www.webforum.nu/p/1728107
## #9 — emission, 2005-12-12T20:28Z
Date() finns inte i MySQL, och jag tror inte att implicit datumsubtraktion fungerar, så ersätt Date()-90 med DATE_SUB(CURDATE(), INTERVAL 90 DAY)
Permalänk: https://www.webforum.nu/p/1728125
## #10 — WebbisNet, 2005-12-12T20:52Z
TACK
vad är det här som mina trötta ögon missar
INSERT INTO BulletinBoard(PostID, BBName, BBEmail,Subject, Message, BBHomepageName, BBHomepageURL, ImageURL) VALUES(,'Stefan Ekström','stefan@webbisen.com','stefan@webbisen.com','testar','webbisen','webbisen.com','0')
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
\[MySQL\]\[ODBC 3.51 Driver\]\[mysqld-4.0.25-max\]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near ''Stefan Ekström','stefan@webbisen.com','stefan@webbisen.com','t
/BB/Preview.asp, line 22
```
<%BBName = Request.Form("BBName")
BBEmail = Request.Form("BBEmail")
Subject = Request.Form("Subject")
Message = Request.Form("Message")
ResponseTo = Request.Form("ResponseTo")
BBHomepageName = Request.Form("BBHomepageName")
If BBHomepageName = "" OR IsNull(BBHomepageName) then BBHomepageName = "0" end if
BBHomepageURL = Request.Form("BBHomepageURL")
If BBHomepageURL = "" OR IsNull(BBHomepageURL) then BBHomepageURL = "0" end if
ImageURL = Request.Form("ImageURL")
If ImageURL = "" OR IsNull(ImageURL) then ImageURL = "0" end if
SET objConn = connect()
addPost = "INSERT INTO BulletinBoard"
addPost = addPost & "(PostID, BBName, BBEmail,Subject, Message, BBHomepageName, BBHomepageURL, ImageURL) "
addPost = addPost & "VALUES("& PostID &",'"& BBName &"','"& BBEmail&"','"& Subject &"','"& Message &"','"& BBHomepageName &"','"& BBHomepageURL &"','"& ImageURL &"')"
response.write addPost
'response.end
objConn.Execute(addPost)%>
```
Permalänk: https://www.webforum.nu/p/1728137
## #11 — WebbisNet, 2005-12-12T20:55Z
> **emission skrev:**
>
> Date() finns inte i MySQL, och jag tror inte att implicit datumsubtraktion fungerar, så ersätt Date()-90 med DATE_SUB(CURDATE(), INTERVAL 90 DAY)
När vi ändå pratade om Date, hur ska jag då ändra denna rad (är till en annan fil)
objConn.Execute("update tblUsers set vip=1, vipTillDatum = DateAdd('d',30,date()) WHERE mobil = "& nr &"")
Permalänk: https://www.webforum.nu/p/1728138
## #12 — emission, 2005-12-12T21:15Z
> **WebbisNet skrev:**
>
> TACK
>
> vad är det här som mina trötta ögon missar
PostID har inget värde
Permalänk: https://www.webforum.nu/p/1728152
## #13 — emission, 2005-12-12T21:17Z
Motsvarigheten till Dateadd i MySQL heter DATE_ADD
Permalänk: https://www.webforum.nu/p/1728156
## #14 — WebbisNet, 2005-12-12T21:36Z
Nu har jag poster i db och inga felmeddelanden, MEN inget visas på sidan
```
<%set SQL = objConn.Execute("SELECT BulletinBoard.PostID AS Post, BulletinBoard.BBName, BulletinBoard.BBEmail, BulletinBoard.Subject, BulletinBoard.ResponseTo, BulletinBoard.BBDate, BulletinBoard.BBTime FROM BulletinBoard WHERE ResponseTo = 0 AND BBDate > DATE_SUB(CURDATE(), INTERVAL 90 DAY) ORDER BY BBDate DESC")
If SQL.eof = false then
On Error Resume Next
SQL.MoveFirst
do while Not SQL.eof
Post = SQL("Post")
BBDate = SQL("BBDate")
%>
<%If BBDate = DATE_SUB(CURDATE_SUB(CURDATE())) then%>
<%ElseIf BBDate = (DATE_SUB(CURDATE()) -1 ) then%>
<%ElseIf BBDate = (DATE_SUB(CURDATE()) -2 ) then%>
<%Else%>
<%end if%>
"><%=Server.HTMLEncode(SQL("Subject"))%>
- "><%=Server.HTMLEncode(SQL("BBName"))%> <%=Server.HTMLEncode(SQL("BBDate"))%> <%=Server.HTMLEncode(SQL("BBTime"))%>
```
Permalänk: https://www.webforum.nu/p/1728164
## #15 — WebbisNet, 2005-12-12T21:39Z
> **emission skrev:**
>
> Motsvarigheten till Dateadd i MySQL heter DATE_ADD
>
>
Kan detta gå, ni som kan?
SELECT ADDDATE(CURDATE(), INTERVAL 30 DAY)
istället för
DateAdd('d',30,date())
Permalänk: https://www.webforum.nu/p/1728166
## #16 — emission, 2005-12-12T21:42Z
> **WebbisNet skrev:**
>
> Nu har jag poster i db och inga felmeddelanden, MEN inget visas på sidan
Du får inget felmeddelande, eftersom du har "On Error Resume Next" i koden
Du kan inte använda DATE_ADD och CURDATE i VBScript, som du gjort i if-satsen ovan
Permalänk: https://www.webforum.nu/p/1728169
## #17 — emission, 2005-12-12T21:43Z
> **WebbisNet skrev:**
>
> Verkar vara denna jag ska använda men hur skriver man
>
> ADDDATE(date,INTERVAL expr type), ADDDATE(expr,days)
Förstår inte frågan...
Det finns massor av exempel på sidan jag länkade till
Permalänk: https://www.webforum.nu/p/1728170
## #18 — WebbisNet, 2005-12-12T21:44Z
> **emission skrev:**
>
> Förstår inte frågan...
>
> Det finns massor av exempel på sidan jag länkade till
Förlåt, skrev visst fel
Kan detta gå, ni som kan?
SELECT ADDDATE(CURDATE(), INTERVAL 30 DAY)
istället för
DateAdd('d',30,date())
Permalänk: https://www.webforum.nu/p/1728173
## #19 — emission, 2005-12-12T21:49Z
Jajamen! (y)
Permalänk: https://www.webforum.nu/p/1728175
## #20 — WebbisNet, 2005-12-12T21:51Z
> **emission skrev:**
>
> Du får inget felmeddelande, eftersom du har "On Error Resume Next" i koden
>
> Du kan inte använda DATE_ADD och CURDATE i VBScript, som du gjort i if-satsen ovan
Hur skulle du skriva då emission ;-)
Permalänk: https://www.webforum.nu/p/1728177
---
Tråden på webben: https://www.webforum.nu/amne/asp/139201-object-required
Nästa sida: https://www.webforum.nu/amne/asp/139201-object-required/page2.md