Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Call a VBScript function with a button? 1
- Thread starter Beracosta
- Start date
-
1
- #2
If you are doing this client side you need to declare a function called
, and when the button is pressed then this code is invoked.
However, if you want to run this on the server-side, then use the POST method in your form and then use the button name to determine which one was pressed. you can then write the code to carry this out in the ASP page that is called.
James
ps am i getting well known or something? James Culshaw
jculshaw@active-data-solutions.co.uk
Code:
buttonname_ClickHowever, if you want to run this on the server-side, then use the POST method in your form and then use the button name to determine which one was pressed. you can then write the code to carry this out in the ASP page that is called.
James
ps am i getting well known or something? James Culshaw
jculshaw@active-data-solutions.co.uk
- Thread starter
- #3
Hi thanx for your answer James. I'll now put the code here so u can help me even further =) So, when i click on the button Tabort, the table KorgInnehåll should be ereased for that KorgID that is present. Pls help me with this
<%
Dim oRs
Dim strSQL
Dim VaraPris, TotPris, Rabatt, Frakt
VaraPris = 0
TotPris = 0
Set oRs = Server.CreateObject("ADODB.Recordset"
With oRs
.ActiveConnection = "DSN=SYCENT;"
'DB Hintar
.CursorLocation = 3
.CursorType = 3
.LockType = 4
strSQL = "SELECT Namn, Antal, Pris FROM KorgInnehall " & _
"INNER JOIN Varor ON KorgInnehall.VaruID = Varor.Id " & _
"WHERE KorgInnehall.KorgId = 5"
.Open strSQL
Set .ActiveConnection = Nothing
if oRs.Recordcount = 0 then
Response.Write "<font size=""4"">Din kundkorg är <font color=""#D61303"">tom!</font></font>"
else
Response.Write "<form name=""KundKorg"">"
Response.Write "<select name=""Korgen"">"
While Not oRs.EOF
Response.Write "<option SELECTED=""true"" value=""" & oRs("Antal".Value & " st " & oRs("Namn".Value & " á " & oRs("Pris".Value & " kr" & """>" & oRs("Antal" & " st " & oRs("Namn" & " á " & oRs("Pris" & " kr </option>"
VaraPris = oRs("Antal" * oRs ("Pris"
TotPris = Totpris + VaraPris
oRs.MoveNext
Wend
Response.Write "</select> "
Response.Write " <input type=""button"" name=""Tabort"" value=""Tabort varan"">"
Response.Write "</form>"
Response.Write "Att betala: " & TotPris & " kr"
end if
.Close
End With
Set oRs = Nothing
%>
PS.
And yes, u are getting well knowed, atleast by me =)
<%
Dim oRs
Dim strSQL
Dim VaraPris, TotPris, Rabatt, Frakt
VaraPris = 0
TotPris = 0
Set oRs = Server.CreateObject("ADODB.Recordset"
With oRs
.ActiveConnection = "DSN=SYCENT;"
'DB Hintar
.CursorLocation = 3
.CursorType = 3
.LockType = 4
strSQL = "SELECT Namn, Antal, Pris FROM KorgInnehall " & _
"INNER JOIN Varor ON KorgInnehall.VaruID = Varor.Id " & _
"WHERE KorgInnehall.KorgId = 5"
.Open strSQL
Set .ActiveConnection = Nothing
if oRs.Recordcount = 0 then
Response.Write "<font size=""4"">Din kundkorg är <font color=""#D61303"">tom!</font></font>"
else
Response.Write "<form name=""KundKorg"">"
Response.Write "<select name=""Korgen"">"
While Not oRs.EOF
Response.Write "<option SELECTED=""true"" value=""" & oRs("Antal"
.Value & " st " & oRs("Namn".Value & " á " & oRs("Pris".Value & " kr" & """>" & oRs("Antal" & " st " & oRs("Namn" & " á " & oRs("Pris" & " kr </option>"VaraPris = oRs("Antal"
* oRs ("Pris"TotPris = Totpris + VaraPris
oRs.MoveNext
Wend
Response.Write "</select> "
Response.Write " <input type=""button"" name=""Tabort"" value=""Tabort varan"">"
Response.Write "</form>"
Response.Write "Att betala: " & TotPris & " kr"
end if
.Close
End With
Set oRs = Nothing
%>
PS.
And yes, u are getting well knowed, atleast by me =)
Firstly, you need a FORM on this ASP. In the action you call itslef. You then check to see if the button has been pressed. If it has then you issue the delete. I'll postthe fully changed code later for you.
James James Culshaw
jculshaw@active-data-solutions.co.uk
James
James Culshawjculshaw@active-data-solutions.co.uk
- Thread starter
- #5
Hi,
sorry that i haven't posted yet. I promise taht I will do it tonight as I have another ASP which does exactly what you want, and I'll double-check it.
James James Culshaw
jculshaw@active-data-solutions.co.uk
sorry that i haven't posted yet. I promise taht I will do it tonight as I have another ASP which does exactly what you want, and I'll double-check it.
James
James Culshawjculshaw@active-data-solutions.co.uk
- Thread starter
- #7
Try the follwoing, its not perfect as I hava a problem in not understanding your native language, but I am sure you'll get the idea.
James Culshaw
jculshaw@active-data-solutions.co.uk
Code:
<%
Dim oRs, oCm
Dim strSQL
Dim VaraPris, TotPris, Rabatt, Frakt
Dim intCounter
VaraPris = 0
TotPris = 0
if Request.Form("Tabort") = "" then
Set oRs = Server.CreateObject("ADODB.Recordset")
With oRs
.ActiveConnection = "DSN=SYCENT;"
'DB Hintar
.CursorLocation = 3
.CursorType = 3
.LockType = 4
strSQL = "SELECT Namn, Antal, Pris FROM KorgInnehall " & _
"INNER JOIN Varor ON KorgInnehall.VaruID = Varor.Id " & _
"WHERE KorgInnehall.KorgId = 5"
.Open strSQL
Set .ActiveConnection = Nothing
if oRs.Recordcount = 0 then
Response.Write "<font size=""4"">Din kundkorg är <font color=""#D61303"">tom!</font></font>"
else
Response.Write "<form name=""KundKorg"">"
Response.Write "<select name=""Korgen"">"
While Not oRs.EOF
Response.Write "<option SELECTED=""true"" value=""" & oRs("Antal").Value & " st " & oRs("Namn").Value & " á " & oRs("Pris").Value & " kr" & """>" & oRs("Antal") & " st " & oRs("Namn") & " á " & oRs("Pris") & " kr </option>"
VaraPris = oRs("Antal") * oRs ("Pris")
TotPris = Totpris + VaraPris
oRs.MoveNext
Wend
Response.Write "</select> "
Response.Write " <input type=""button"" name=""Tabort"" value=""Tabort varan"">"
Response.Write "</form>"
Response.Write "Att betala: " & TotPris & " kr"
end if
.Close
End With
Set oRs = Nothing
else
for intCounter = 1 to Request.Form.Count
if (Request.Form.Key(intCounter) <> "Tabort") then
intID = cint(Request.Form.Item(intCounter))
strSQL = "DELETE FROM MyTable WHERE id = " & intID
Set oCm = Server.CreateObject("ADODB.Command")
With oCm
.ActiveConnection = "DSN=SYCENT;"
.CommandType = adText
.CommandText = strSQL
.Execute
End With
end if
next
Set oCm = Nothing
end if
%>jculshaw@active-data-solutions.co.uk
- Thread starter
- #9
Thanx for the help James, but it didn't work. It didn't happen anything when i pressed the button. I'll now put the same code again, but this time in English and hope that u can help me then =)
<%
Dim oRs
Dim strSQL
Dim MerchantPrice, TotPrice
MerchantPrice = 0
TotPrice = 0
Set oRs = Server.CreateObject("ADODB.Recordset"
With oRs
.ActiveConnection = "DSN=SYCENT;"
.CursorLocation = 3
.CursorType = 3
.LockType = 4
strSQL = "SELECT Name, Quantity, Price FROM BasketContent " & _
"INNER JOIN Merchants ON BasketContent.MerchantID = Merchants.ID " & _
"WHERE BasketContent.BasketID = 5"
.Open strSQL
Set .ActiveConnection = Nothing
if oRs.Recordcount = 0 then
Response.Write "<font size=""4"">Din kundkorg är <font color=""#D61303"">tom!</font></font>"
else
Response.Write "<form name=""Basket"">"
Response.Write "<select name=""Merchants"">"
While Not oRs.EOF
Response.Write "<option SELECTED=""true"" value=""" & oRs("Quantity".Value & " st " & oRs("Name".Value & " for " & oRs("Price".Value & " $ each" & """>" & oRs("Quantity" & " st " & oRs("Name" & " for " & oRs("Price" & each " $ </option>"
MerchantPrice = oRs("Quantity" * oRs ("Price"
TotPrice = Totprice + MerchantPrice
oRs.MoveNext
Wend
Response.Write "</select> "
Response.Write " <input type=""button"" name=""Empty"" value=""Empty Basket"">"
Response.Write "</form>"
Response.Write "To pay: " & TotPrice & " $"
end if
.Close
End With
Set oRs = Nothing
%>
i hope u can help me better now, when u can understand the code =) thanx in advance and for all the help u are givving me ! :Þ
<%
Dim oRs
Dim strSQL
Dim MerchantPrice, TotPrice
MerchantPrice = 0
TotPrice = 0
Set oRs = Server.CreateObject("ADODB.Recordset"
With oRs
.ActiveConnection = "DSN=SYCENT;"
.CursorLocation = 3
.CursorType = 3
.LockType = 4
strSQL = "SELECT Name, Quantity, Price FROM BasketContent " & _
"INNER JOIN Merchants ON BasketContent.MerchantID = Merchants.ID " & _
"WHERE BasketContent.BasketID = 5"
.Open strSQL
Set .ActiveConnection = Nothing
if oRs.Recordcount = 0 then
Response.Write "<font size=""4"">Din kundkorg är <font color=""#D61303"">tom!</font></font>"
else
Response.Write "<form name=""Basket"">"
Response.Write "<select name=""Merchants"">"
While Not oRs.EOF
Response.Write "<option SELECTED=""true"" value=""" & oRs("Quantity"
.Value & " st " & oRs("Name".Value & " for " & oRs("Price".Value & " $ each" & """>" & oRs("Quantity" & " st " & oRs("Name" & " for " & oRs("Price" & each " $ </option>"MerchantPrice = oRs("Quantity"
* oRs ("Price"TotPrice = Totprice + MerchantPrice
oRs.MoveNext
Wend
Response.Write "</select> "
Response.Write " <input type=""button"" name=""Empty"" value=""Empty Basket"">"
Response.Write "</form>"
Response.Write "To pay: " & TotPrice & " $"
end if
.Close
End With
Set oRs = Nothing
%>
i hope u can help me better now, when u can understand the code =) thanx in advance and for all the help u are givving me ! :Þ
Are you using multi-select in your SELECT box?
James James Culshaw
jculshaw@active-data-solutions.co.uk
James
James Culshawjculshaw@active-data-solutions.co.uk
- Thread starter
- #11
I think I've got it. The value of the select box must be the way of uniquely identifying the data to delete. This is the value that is passed when the form is submitted, not what is shown on the screen.
James James Culshaw
jculshaw@active-data-solutions.co.uk
James
James Culshawjculshaw@active-data-solutions.co.uk
- Thread starter
- #13
What is the column name of the unique identifier in the database table. If I remember rightly we advised you to use an autonumber in the past...
James
p.s. which part of the world are you from? James Culshaw
jculshaw@active-data-solutions.co.uk
James
p.s. which part of the world are you from? James Culshaw
jculshaw@active-data-solutions.co.uk
Have it post to a redirect page with the values '0' for the variable your emptying, then use response.redirect("whatever.asp?var=0&var2=0" or response.redirect("whatever.asp" and it should load it without anything in the basket...
OR...
above your code put...
Dim action
action = request.querystring("action"
select case action
case "refresh"
response.redirect("thisfile.asp"
case else
your code here
with a link to 'thisfile.asp?action=refresh'
end select
or response.redirect("whatever.asp" and it should load it without anything in the basket...OR...
above your code put...
Dim action
action = request.querystring("action"
select case action
case "refresh"
response.redirect("thisfile.asp"
case else
your code here
with a link to 'thisfile.asp?action=refresh'
end select
- Thread starter
- #16
Are you ok, or do you still need help?
I was wondering where you are from because my I wondered what the language you use is!!
James James Culshaw
jculshaw@active-data-solutions.co.uk
I was wondering where you are from because my I wondered what the language you use is!!
James
James Culshawjculshaw@active-data-solutions.co.uk
- Thread starter
- #18
hehe ok. i solved the problem to empty the whole basket but when it comes to taking the selectet merchant from the <select> box i'm stuck again. I solved it so far that it takes only 1 merchant away from the basket but it isn't the selected merchant, only the last merchant that has been put in the basket. any ideas?
björn
björn
I think it is because ypou are using SELECTED=True in each OPTION statement that you generate. You should only really do this on the first one in the list.
James James Culshaw
jculshaw@active-data-solutions.co.uk
James
James Culshawjculshaw@active-data-solutions.co.uk
- Thread starter
- #20
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question