why does this simple script doesn't work

[Julian]

Hi

I am trying to update a date field in my table but some how this simple code
does not work, I know the select work because if I write the fields, it will
show the data from the table but why the update does not work?
<%

Set ConnGallery = Server.CreateOb ject("ADODB.Con nection")
ConnGallery.Ope n ConnectionStrin g
Set cmdTemp = Server.CreateOb ject("ADODB.Com mand")

Set CmdUpdateAd = Server.CreateOb ject("ADODB.Rec ordset")
cmdTemp.Command Text = "SELECT Ads.* FROM Ads WHERE Advertiser=0 "
cmdTemp.Command Type = 1
Set cmdTemp.ActiveC onnection = ConnGallery
CmdUpdateAd.Ope n cmdTemp, , 1, 3

CmdUpdateAd.Fie lds("Ad_Expires ") = " "
CmdUpdateAd.Upd ate
CmdUpdateAd.Clo se

response.Write ("hej")

%>

[Ray at]

What "does not work" about it? Are you getting an error? Are there any
records where advertiser=0? Why are you creating a recordset for an update?
Is Ad_Expires a text column?
Do this

sSQL = "UPDATE [Ads] SET [Ad_Expires]='' WHERE [Advertiser]=0"
Set ConnGallery = Server.CreateOb ject("ADODB.Con nection")
ConnGallery.Ope n ConnectionStrin g
ConnGallery.Exe cute sSQL
ConnGallery.Clo se
Set ConnGallery = Nothing
Ray at work
"Julian" <ep****@shaw.ca > wrote in message
news:u3******** ******@TK2MSFTN GP11.phx.gbl...

Hi

I am trying to update a date field in my table but some how this simple code does not work, I know the select work because if I write the fields, it will show the data from the table but why the update does not work?
<%

Set ConnGallery = Server.CreateOb ject("ADODB.Con nection")
ConnGallery.Ope n ConnectionStrin g
Set cmdTemp = Server.CreateOb ject("ADODB.Com mand")

Set CmdUpdateAd = Server.CreateOb ject("ADODB.Rec ordset")
cmdTemp.Command Text = "SELECT Ads.* FROM Ads WHERE Advertiser=0 "
cmdTemp.Command Type = 1
Set cmdTemp.ActiveC onnection = ConnGallery
CmdUpdateAd.Ope n cmdTemp, , 1, 3

CmdUpdateAd.Fie lds("Ad_Expires ") = " "
CmdUpdateAd.Upd ate
CmdUpdateAd.Clo se

response.Write ("hej")

%>

[Julian Caine]

Thanks Ray.

I did as you suggested, made a new file like this:

<%@ LANGUAGE="VBSCR IPT" %>
<!--#INCLUDE FILE="../dataconn_inc.as p"-->
<!--#INCLUDE FILE="../config_inc.asp"-->

<%
' to put the date for all non-advertiser to blank.
sSQL = "UPDATE [Ads] SET [Ad_expires]='' WHERE [Advertiser]= 0"
Set ConnGallery = Server.CreateOb ject("ADODB.Con nection")
ConnGallery.Ope n ConnectionStrin g
ConnGallery.Exe cute sSQL
ConnGallery.Clo se
Set ConnGallery = Nothing
response.Write ("hej")

%>

run the code and it executes without any error, the problem is that
database do not get updated.
Advertiser is type YES/NO
Ad_Expires is short date
and both defined so, they can be emty. My connection is correct since I
can get all the rows listed when I write it.
Any idea?
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Ray at]

If you try to set a date/time column to '' in Access, you will get a data
conversion error. I suggest either setting the date to something like
1/1/1900, or setting it to null, depending on which would work better in
your environment.

sSQL = "UPDATE [Ads] SET [Ad_expires]=#1/1/1900# WHERE [Advertiser]= 0"
or
sSQL = "UPDATE [Ads] SET [Ad_expires]=NULL WHERE [Advertiser]= 0"

Ray at work

"Julian Caine" <we*******@gent lemenworld.com> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

Thanks Ray.

I did as you suggested, made a new file like this:

<%@ LANGUAGE="VBSCR IPT" %>
<!--#INCLUDE FILE="../dataconn_inc.as p"-->
<!--#INCLUDE FILE="../config_inc.asp"-->

<%
' to put the date for all non-advertiser to blank.
sSQL = "UPDATE [Ads] SET [Ad_expires]='' WHERE [Advertiser]= 0"
Set ConnGallery = Server.CreateOb ject("ADODB.Con nection")
ConnGallery.Ope n ConnectionStrin g
ConnGallery.Exe cute sSQL
ConnGallery.Clo se
Set ConnGallery = Nothing
response.Write ("hej")

%>

run the code and it executes without any error, the problem is that
database do not get updated.
Advertiser is type YES/NO
Ad_Expires is short date
and both defined so, they can be emty. My connection is correct since I
can get all the rows listed when I write it.
Any idea?
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!