Update database without submit button (single page code) ASP

[Madge]

Please help.

Trying to update a record using ASP but within a single page i.e. no
submit button. Code below.

Thanks in advance - ASP Novice!

<%
Dim objRS__MMColParam
objRS__MMColParam = "1"
If (Request.Form("cartId") <> "") Then
objRS__MMColParam = Request.Form("cartId")
End If
%>

<%
Dim whichOne
'here we are getting the number from the URL
whichOne = Request.QueryString("Country")
If whichOne = "GB" Then
'if whichOne is one we do this

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = MM_INVITE_CON1_STRING
objRS.Source = "SELECT * FROM tblSessions WHERE OrderRef = '" +
Replace(objRS__MMColParam, "'", "''") + "'"
objRS.CursorType = 0
objRS.CursorLocation = 2
objRS.LockType = 1
objRS.Open()

objRS_numRows = 0

' Now updating records
objRS("PayName") = Request.QueryString("name")
objRS.Update

ElseIf whichOne = "US" Then
'if whichOne is two we do this

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = MM_INVITE_CON1_STRING
objRS.Source = "SELECT * FROM tblSessionsUS WHERE OrderRef = '" +
Replace(objRS__MMColParam, "'", "''") + "'"
objRS.CursorType = 0
objRS.CursorLocation = 2
objRS.LockType = 1
objRS.Open()

objRS_numRows = 0
ElseIf whichOne = "CA" Then
'if whichOne is three we do this

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = MM_INVITE_CON1_STRING
objRS.Source = "SELECT * FROM tblSessionsCA WHERE OrderRef = '" +
Replace(objRS__MMColParam, "'", "''") + "'"
objRS.CursorType = 0
objRS.CursorLocation = 2
objRS.LockType = 1
objRS.Open()

objRS_numRows = 0
Else
'otherwise we tell them they did not make a choice
Response.Write "You did not make a choice, go back and do so now."
End If
%>

<%
objRS.Close()
Set objRS = Nothing
%>

[Jeff Cochran]

On 23 Jun 2004 08:58:43 -0700, [email]matt@lazertype.co.uk[/email] (Madge) wrote:

>Please help.
>
>Trying to update a record using ASP but within a single page i.e. no
>submit button. Code below.

Gotta submit it somehow. The page as rendered resides on the client.
ASP on a server has no way of knowing the client has done anything
unless some client-side code is activated that posts to the server,
either clicking a Submit button on a form with an action, or through a
client side script.

Jeff

>Thanks in advance - ASP Novice!
>
><%
>Dim objRS__MMColParam
>objRS__MMColParam = "1"
>If (Request.Form("cartId") <> "") Then
> objRS__MMColParam = Request.Form("cartId")
>End If
>%>
>
><%
>Dim whichOne
>'here we are getting the number from the URL
>whichOne = Request.QueryString("Country")
>If whichOne = "GB" Then
>'if whichOne is one we do this
>
>Set objRS = Server.CreateObject("ADODB.Recordset")
>objRS.ActiveConnection = MM_INVITE_CON1_STRING
>objRS.Source = "SELECT * FROM tblSessions WHERE OrderRef = '" +
>Replace(objRS__MMColParam, "'", "''") + "'"
>objRS.CursorType = 0
>objRS.CursorLocation = 2
>objRS.LockType = 1
>objRS.Open()
>
>objRS_numRows = 0
>
> ' Now updating records
> objRS("PayName") = Request.QueryString("name")
> objRS.Update
>
>ElseIf whichOne = "US" Then
>'if whichOne is two we do this
>
>Set objRS = Server.CreateObject("ADODB.Recordset")
>objRS.ActiveConnection = MM_INVITE_CON1_STRING
>objRS.Source = "SELECT * FROM tblSessionsUS WHERE OrderRef = '" +
>Replace(objRS__MMColParam, "'", "''") + "'"
>objRS.CursorType = 0
>objRS.CursorLocation = 2
>objRS.LockType = 1
>objRS.Open()
>
>objRS_numRows = 0
>ElseIf whichOne = "CA" Then
>'if whichOne is three we do this
>
>Set objRS = Server.CreateObject("ADODB.Recordset")
>objRS.ActiveConnection = MM_INVITE_CON1_STRING
>objRS.Source = "SELECT * FROM tblSessionsCA WHERE OrderRef = '" +
>Replace(objRS__MMColParam, "'", "''") + "'"
>objRS.CursorType = 0
>objRS.CursorLocation = 2
>objRS.LockType = 1
>objRS.Open()
>
>objRS_numRows = 0
>Else
>'otherwise we tell them they did not make a choice
>Response.Write "You did not make a choice, go back and do so now."
>End If
>%>
>
><%
>objRS.Close()
>Set objRS = Nothing
>%>

[Bullschmidt]

<<
Trying to update a record using ASP but within a single page...

>>

Don't know if this might hopefully give you any ideas:

ASP Design Tips - Post Back Page
[url]http://www.bullschmidt.com/devtip-postbackpage.asp[/url]

Or this piece of JavaScript that can used client-side and put on an
onclick or onchange or whatever:

document.myform.submit();

Best regards,
J. Paul Schmidt, Freelance ASP Web Designer
[url]http://www.Bullschmidt.com[/url]
ASP Designer Tips, ASP Web Database Demo, Free ASP Bar Chart Tool...


*** Sent via Devdex [url]http://www.devdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

[IPT]

Possible, as you use querystring.

Check at your objRS.LockType = 1 for update. This is wrong.

Type 1 is read-only. You need to use other type. I can't recall which, but I
guess they are 4 types all together. You can try use objRS.LockType = 2 for
update.

> Please help.
>
> Trying to update a record using ASP but within a single page i.e. no
> submit button. Code below.
>
> Thanks in advance - ASP Novice!