WE DID IT!!!!!

hotcut — Sat, 21 Oct 2000 15:01:14 +0000

Wee are the champions weeeeee.......

Finaly, I found the error! I am not sure, if that was what you ment Peter, but I tryed to only have 1 strSQL statement in every connection, and after a while, I made it work!!!

I could close the thread now, but naah, I think that it would be a shame First of all you probably want the solution, so I will offcorse give you that &~}

Ehhmm... New question How do I set a cookie? If it is hard to do, I will just leave it, but if it is posible, I would like to know:

1: How do I write a variable to a cookie on the users computer?

2: How do I get the same cookie back, in a avriable?

Ýou might think now, that I totaly forgot to give you the code, but I just wanted to get you all exited

Ok, like Christmas, you will first get the code when: ... Ohh what the f*** here it is:

dim spq
spq = Request.Form("spqnummer")

'getting the variables, needed further in the script!

dim streng1, streng2, sti, AccessDataBase
	sti = "c:\asp"
	Streng1 = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
	Streng2 = "\poll.mdb;UID=admin;PWD=;"
	AccessDataBase = Streng1 & sti & Streng2


dim strSQL, dbconnection, rsRecordSet
	strSQL = "SELECT * FROM poll1"
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open AccessDataBase 
Set rsRecordSet = Server.CreateObject("ADODB.RecordSet")
rsRecordSet.Open strSQL, dbConnection, 2, 3 


dim count, spq1, spq2, spq3
count = rsRecordSet(spq) + 1
spq1 = rsRecordSet("spq1")*1
spq2 = rsRecordSet("spq2")*1
spq3 = rsRecordSet("spq3")*1


rsRecordSet.Close 
Set rsRecordSet = nothing 
dbConnection.Close 
Set dbConnection = nothing 

'connection determained

'making new copnnection, to use for the update

strSQL = "UPDATE poll1 SET " & spq & " = " & count
Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open AccessDataBase 
Set rsRecordSet = Server.CreateObject("ADODB.RecordSet")
rsRecordSet.Open strSQL, dbConnection, 2, 3 

rsRecordSet.Close 
Set rsRecordSet = nothing 
dbConnection.Close 
Set dbConnection = nothing 

'determaining the connection

That simple, yet we used that much time on it...

Then I would like to thank Max and Peter for there help in this matter, I would never had come this far without your help! Maybe I should allso thank : http://hotwired.lycos.com/webmonkey/ for all there toturials, that allso helped me to better understanding, in this last fase; I found an FAQ where they had a link to: http://www.4guysfromrolla.com/webtech/faq/Databases/faq3.shtml which explained very good to me, how it works... Maybe Max should read this, they say what will happend if you drop the "WHERE" statement, very usefull indead!

My poll is finished, now all it ´needs is a bit shining up, and perhaps a little cookie, to veryfy if the user has allready signed it...

THHHHHHANK YOU!!!!

I ow you both one

A lucky
Casper!!!

Makes no sence!

hotcut — Sat, 21 Oct 2000 14:16:30 +0000

Hi Peter

I tryed to implement your code to my script, but I got a lot of failures; The code I wrote before, was just a part of my script; I will allso need to make all the contents of the other fields into variables, a well! I didnt write that, maybe I should have done that, but I didnt thourght that it would be nessesary...

The problem IS in this line:

strSQL = "UPDATE poll1 SET " & spq & "='" & Count &"' WHERE row='1'"

I am not sure of what the problem actually is here, but I am not even sure if this line is activated! It seems like, nomatter what I write (allmost) in that line, the script doesnt repond to it!

My hope for a solution, is fading away...

Can you see other problems in my script? Or maybe I should post the intire code here in this forum...

Casper

Peter J. Boettcher — Sat, 21 Oct 2000 13:37:11 +0000

hotcut,

The thing I don't like about your code is that you're making two calls to the database just to update the poll. Your first call is to get the previous value so you can add 1 to it, then your second call is to save that new value to the poll, why not just do it in one step?

<?php
 

spq = Request.Form("spqnummer") 

AccessDataBase = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\asp\poll.mdb;UID=admin;PWD=;"

Set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.Open AccessDataBase 
Set rsRecordSet = Server.CreateObject("ADODB.RecordSet")

With rsRecordSet
     .ActiveConnection = dbConnection
     .CursorType = 3 'adOpenKeyset
     .LockType = 2 'adLockOptimistic
     .Source = "Poll1"
     .Filter = "WHERE id = 1"
     .Open
End With

Select Case spq
     Case "spq1"
     rsRecordSet.Fields("spq1") = rsRecordSet.Fields("spq1") + 1
     Case "spq2"
     rsRecordSet.Fields("spq2") = rsRecordSet.Fields("spq2") + 1
     Case "spq3"
     rsRecordSet.Fields("spq3") = rsRecordSet.Fields("spq3") + 1
     Case Else
     'error handling goes here
End Select

With rsRecordSet
     .Update
     .MoveFirst
     .Close
End With

Set rsRecordSet = nothing
dbConnection.Close
Set dbConnection = nothing
?>

That code makes more sense to me since it only makes a single call to the database.

Regards,
Peter J. Boettcher

hotcut — Sat, 21 Oct 2000 08:08:56 +0000

Hi there

I keep trying, and trying... but with no result!

The only thing, that I am sure that works, is the form; I get the ansver right, with the info I need!

I will [again]post some of my code [/again] so that you might see the error...

I will allso this time, try to explain all the variales, there functions and so on!

Here it goes:

<?php
dim AccessDataBase, strSQL, dbconnection, rsRecordSet

<strong>'Here I define the first set of variables</strong>

    AccessDataBase = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\asp\poll.mdb;UID=admin;PWD=;" 
<strong>'modifying the variable "accessdatabse" to further use</strong>

    strSQL = "SELECT * FROM poll1"
<strong>'choosing what table I want to use</strong>

Set dbConnection = Server.CreateObject("ADODB.Connection")
Set rsRecordSet = Server.CreateObject("ADODB.RecordSet")
<strong>'Creating some standard connections</strong>

dbConnection.Open AccessDataBase 
rsRecordSet.Open strSQL, dbConnection, 2, 3 
<strong>'opening some connections</strong>

dim spq, count, formervalue
<strong>'defining a few more variables to further use</strong>

spq = Request.Form("spqnummer")

<strong>'getting the value of "spqnummer" The values will be: spq1 or spq2 or spq3</strong>

count = rsRecordSet(spq) + 1
<strong>'adding 1 to the former count, for the set line called "spqx" where x is the value from the lines above</strong>

strSQL = "UPDATE poll1 SET " & <strong>spq</strong> & "='" & Count &"' WHERE row='1'" 
?>

'Here I am updating the table, where the first bold part is the value of the variable called "spq".
The cell is updated to the value of the variable called "count"
The row is something I actually doesnt undertsand how works, but it shoul tell the script, what row it is, according to the field called "id" which the numer 1

That was the code here.

I just hope that you see the ansver... I am feeling a bit lost here; Why doesnt the script work ?

[hopefull]HELP?![hopefull]

Casper

Mark Hensler — Fri, 20 Oct 2000 20:57:11 +0000

hotcut-

you keep missing this part

dim spq, count, formervalue
spq = Request.Form("spq")
formervalue = rsRecordSet(spq)
count = formervalue + 1

strSQL = "UPDATE poll1 SET " & spq & "='" & Count &"' WHERE row='1'" 
<strong>rsRecordSet.Open strSQL, rsConnection, 2, 3 </strong>

hotcut — Fri, 20 Oct 2000 16:52:13 +0000

Hmmm... You didnt understand it...

I suppose that whats confusing you is this:

sti = "c:\asp"
Streng1 = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
Streng2 = "\poll.mdb;UID=admin;PWD=;"
AccessDataBase = Streng1 & sti & Streng2

It is actually the same as saying:

AccessDataBase = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\asp\poll.mdb;UID=admin;PWD=;"

Maybe I will have to explain this too:

'1:
dim spq, count, formervalue
'2:
spq = Request.Form("spq")
'3:
formervalue = rsRecordSet(spq)
'4:
count = formervalue + 1

1: Here I define all the variables at once

2:getting the value from the form, wich will be: spq1, spq2 or spq3 This will later on be used, to define where in the databse I want to change something

3: Getting the old value, from the sell,´mathing the same name, as the asver was.

4: Adding "1" to the value, of the results.

That should ansver that. Do you get the idea, of THAT now? Else, I will try to explain that a bit better.

The code, you gave me, was filled with errors, but the idea was the same, as in my script.

You were asking of what cells I had in my database.

I have told that before in this thread, but I wont mind doing it again

I have the database called "poll.mdb" inside that database, I have 1 table, called "poll1" inside that table, I have the following:

             +-----------------------+
Field name:  |id | spq1 | spq2 | spq3|
             |-----------------------|
Field value: |1  | 3    | 1    | 2   |
             +-----------------------+

Thats it!

I dont think that you need more info... If you do, just ask me, and if you want, I can send you the intire script, including database, and all so that you can see you self.

I hope that someone in here can help me out...

Casper

Peter J. Boettcher — Fri, 20 Oct 2000 14:56:02 +0000

Hmmm, your code seems a little strange, I would write it out the following way:

<?php
 Dim rsConnection
   Dim rsRecordSet
   Dim spq
   Dim count
   Dim formervalue
   Dim strSQL

   spq = Request.Form("spq")

   Set rsConnection = Server.CreateObject("ADODB.Connection")
   Set rsRecordSet = Server.CreateObject("ADODB.Recordset")
   rsConnection = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\asp\poll.mdb;UID=admin;PWD=;"

   strSQL = "UPDATE poll1 SET spq = spq + 1 WHERE row='1'"

   rsRecordSet.Open strSQL, rsConnection, 2, 3

   rsRecordSet.Close 
   Set rsRecordSet = nothing 
   rsConnection.Close 
   Set rsConnection = nothing 
?>

It would help if we knew what your fields were called, do you have a field called row?

Regards,
Peter J. Boettcher

WHY???

hotcut — Fri, 20 Oct 2000 14:06:58 +0000

Thanks for your repley(s) again.

Eealyer in this thread, I have written all my code out to you, where it allso said, that I actually executed those strings!

Now I hope, that there are 2 people able to help me now, so I will write you the code, that I think is the importgant part.

I am getting all the info. right from the form, so I won't bother you with thaty. The writing out the result, works, so you wont need that either...

Whats left is now the code, that opens the databse, gets the info, and saves the date. Here it is:

<%
dim streng1, streng2, sti, AccessDataBase, strSQL, rsconnection, rsRecordSet

	sti = "c:\asp"
	Streng1 = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
	Streng2 = "\poll.mdb;UID=admin;PWD=;"
	AccessDataBase = Streng1 & sti & Streng2

	strSQL = "SELECT * FROM poll1"
Set rsConnection = Server.CreateObject("ADODB.Connection")
Set rsRecordSet = Server.CreateObject("ADODB.RecordSet")
rsConnection.Open AccessDataBase
rsRecordSet.Open strSQL, rsConnection, 2, 3


dim spq, count, formervalue
spq = Request.Form("spq")
formervalue = rsRecordSet(spq)
count = formervalue + 1


strSQL = "UPDATE poll1 SET " & spq & "='" & Count &"' WHERE row='1'" 




'then I have deleted the part, writnig out the contents


rsRecordSet.Close 
Set rsRecordSet = nothing 
rsConnection.Close 
Set rsConnection = nothing 

%>

Thats it!

Does any of you, know what I am doing wrong? If you want, I can maíl you my files, and you cancheck it out on your own machine...

A lost
Casper

[Edited by hotcut on 10-20-2000 at 10:11 AM]

Always close your connections....

Peter J. Boettcher — Fri, 20 Oct 2000 12:44:08 +0000

Max,

While the connection and recordset will eventually timeout they will not be erased when the script has finished executing. Until the database server receives a close response from the client it will assume you are still using the recordset. This could be deadly with a busy site. So for this example you would:

rsRecordSet.Close
Set rsRecordSet = nothing
rsConnection.Close
Set rsConnection = nothing

Regards,
Peter J. Boettcher

Mark Hensler — Fri, 20 Oct 2000 01:13:52 +0000

Here are the last two line of your first query:

dbConnection.Open AccessDataBase
rsRecordSet.Open strSQL, dbConnection, 2, 3

'
The first line opens the connection to the DB.
The second line executes the query.

because you don't close the connection later, we can use it again. So all you have to do is copy the last line to the end of your second query.

Ideally, you would say:
set rsConnection = Nothing
set rsRecordSet = Nothing
This just cleans things up. But this isn't neccessary, because they'll be erased when the script is done executing. If you don't understand this last paragraph, ignore it, you don't need it.