Call a VBScript function with a button? 1

[Beracosta]

How do i make a VBScript function to activate when i press a button. The button is written in a asp file and the function that will be called should empty the shopping basket. Can anybody help me with this? (I think that James can

 

[culshaja]

Worked for a DotCom for a while and then moved to a major multinational developing multi-tier ASP applications using SQL Server, and Visual Basic COM DLLs. James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

 

[Beracosta]

It didn't work. how the hell should i solve this? i'm really stuck with this now!

 

[culshaja]

Could you send me the full code. I'll try it out on my pc and see if I can work it out that way.

James

James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

 

[Beracosta]

should i mail it to u? or should i post it here?

on your pc? are u working on a mac?

 

[culshaja]

No, I'm working either on an IBM ThinkPad T20 with Windows 2000 Professional, or a Time MiniTower with Windows Millenium.

You can post it here or mail it to me, which ever is easier.

James James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

 

[culshaja]

Hi,
had alook at your code but I can't quite seem to get at what you are trying to do. Easiest way to do this is if I give a scenario and then the solution.

Here goes....

SCENARIO

User has a basket shown in a list box.
List box shows Merchant, Item, and Quantity.
Each row in the listbox has a unique identifier in the database.

Bit of code to show listbox...

if oRS.RecordCount > 0 then
    while not oRS.EOF
        Response.Write &quot;<OPTION name=&quot;&quot;merchant&quot;&quot; value=&quot;&quot;&quot;
        Response.Write oRS(&quot;MerchantID&quot;)
        Response.Write &quot;+&quot;
        Response.Write oRS(&quot;BasketEntryID&quot;)
        Response.Write &quot;&quot;&quot;>&quot;
        Response.Write oRs(&quot;Quantity&quot;) 
        Response.Write &quot; st &quot; 
        Response.Write oRs(&quot;Name&quot;)
        Response.Write &quot; for &quot;
        Response.Write oRs(&quot;Price&quot;)
        Response.Write &quot; $ each </option>&quot;
        oRS.MoveNext
    wend
end if

Response.Write &quot;<INPUT name=&quot;&quot;DeleteItem&quot;&quot; value=&quot;&quot;DeleteItem&quot;&quot; Type=&quot;&quot;Button&quot;&quot;>&quot;
Response.Write &quot;<INPUT name=&quot;&quot;DeleteMerchant&quot;&quot; value=&quot;&quot;DeleteMerchant&quot;&quot; Type=&quot;&quot;Button&quot;&quot;>&quot;

The above form assumes that there is a form decleration before it were the method is set to

POST

.

In the ASP that this form posts to the following code will exist:

dim intMerchant, intItem

intMerchant = Left(Request.Form("merchant"), InStr(Request.Form("merchant"),"+") - 1)
intItem = Right(Request.Form("merchant"), Len(Request.Form("merchant")) - InStr(Request.Form("merchant"),"+"))

if Request.Form(&quot;DeleteItem&quot;) <> &quot;&quot; then
    strDeleteSQL = &quot;DELETE FROM myTable WHERE MerchantID = &quot; & intMerchant
else
    strDeleteSQL = &quot;DELETE FROM myTable WHERE ItemID = &quot; & intItem
end if
[code]

this show sthe most important part.

James :-) James Culshaw
jculshaw@active-data-solutions.co.uk
[URL unfurl="true"]http://www.active-data-solutions.co.uk[/URL]
[URL unfurl="true"]http://www.brainbench.com/transcript.jsp?pid=193305[/URL]

 

[Beracosta]

thanx alot! i realy aprisiate this!

/björn