Рис. 14.4. Окно сообщений с информацией о товаре

Для того чтобы произвести заказ, на Web-странице можно создать еще одну форму f2 – «Заказ товара», добавив в ее примерно следующий html-текст:

<form name = «f2»> <h1 align = «center»> Заказ товара </h1>

Наименование фирмы-заказчика: <input type = «text» name = «org» size = 30>

<p> Цена продукции за 1 кг: <select name = «cena»> <option value = «Сельдь»>сельдь – 150 руб.

<option value = «Салака»>салака – 100 руб.

<option value = «Камбала»>камбала – 200 руб. </select> <p> Объем заказа, кг:

<p> <input type = «text» name = «kol» size = 30> <p> <input type = «reset» value = «очистить»>

<input type = «button» name = «zakaz» value = «Информация о заказе»> </form>

Анкета «Заказ товара» может быть обработана программой процедуры обработки события OnClick для командной кнопки «Информация о заказе» следующего вида:

Sub zakaz_OnClick() Dim x, m

If f1.prod.Value = «Сельдь» Then x = 150*f1.kol.Value

ElseIf f1.prod.Value = «Салака» Then x = 100*f1.kol.Value

Else

x = 200*f1.kol.Value End If

msg = «Общая стоимость заказа – » & x & «рублей» & vbcrlf m = m & «Сделал заказ – » & fam.Value & vbcrlf

m = m & «Заказчик – » & vbcrlf & f2.org.Value & vbcrlf

123