Веб-калькулятор

Кристина999 · 13.03.2013, 21:59

помогите пожалуйста не могу запустить веб калькулятор расширение у него .asp.. открываю в visual studio не открывается, меняю расширение файла на html открывается, но не считает уже и незнаю что делать...
вот код программы

Код:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>



<%
Dim numCity1, numCity2, numv2, numv3, res
numCity1 = Request.Form("City1")
numCity2 = Request.Form("City2")
numtip = Request.Form("tip")
numv2 = Request.Form("v2")
numv3 = Request.Form("v3")
res = (|numCity2-numCity1|)+(numv2*numv3)+numtip
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>
<table width="750" border="0" cellpadding="3" cellspacing="0">
 <tr>
  <td width="470"><img src="http://web-silver.ru/forum/untitled.jpg" width="744" height="136" /></td>
 
 </tr>
 <tr>
  
 </tr>
 <tr>
  <td colspan="2">	
	<h1>Калькулятор для расчета стоимости перевозки груза</h1>
    <p>&nbsp;</p>
    <table width="60%"  border="0" cellspacing="0" cellpadding="3">
        <tr>
          <td>Город отправки</td>
          <td><select name="City1" id="City1">
            <option value="1261">Архангельск</option>
            <option value="681">Белгород</option>
            <option value="383">Брянск</option>
            <option value="529">Великий Новгород</option>
            <option value="9000">Владивосток</option>
            <option value="185">Владимир</option>
            <option value="1000">Волгоград</option>
            <option value="535">Воронеж</option>
            <option value="1816">Екатеринбург</option>
            <option value="1236">Ижевск</option>
            <option value="5087">Иркутск</option>
            <option value="835">Казань</option>
            <option value="1227">Калининград</option>
            <option value="3800">Кемерово</option>
            <option value="1382">Краснодар</option>
            <option value="1699">Магнитогорск</option>
            <option value="1895">Мурманск</option>
            <option value="425">Нижний Новгород</option>
            <option value="3550">Новосибирск</option>
            <option value="724">Псков</option>
            <option value="708">Санкт-Петербург</option>
            <option value="1681" selected="selected">Сочи</option>
            <%
While (NOT rs_transcoast.EOF)
%>
            <%
  rs_transcoast.MoveNext()
Wend
If (rs_transcoast.CursorType > 0) Then
  rs_transcoast.MoveFirst
Else
  rs_transcoast.Requery
End If
%>
          </select></td>
          </tr>
        <tr>
          <td>Город доставки</td>
          <td><select name="City2" id="City2">
            <option value="1261" selected="selected">Архангельск</option>
            <option value="681">Белгород</option>
            <option value="383">Брянск</option>
            <option value="529">Великий Новгород</option>
            <option value="9000">Владивосток</option>
            <option value="185">Владимир</option>
            <option value="1000">Волгоград</option>
            <option value="535">Воронеж</option>
            <option value="1816">Екатеринбург</option>
            <option value="1236">Ижевск</option>
            <option value="5087">Иркутск</option>
            <option value="835">Казань</option>
            <option value="1227">Калининград</option>
            <option value="3800">Кемерово</option>
            <option value="1382">Краснодар</option>
            <option value="1699">Магнитогорск</option>
            <option value="1895">Мурманск</option>
            <option value="425">Нижний Новгород</option>
            <option value="3550">Новосибирск</option>
            <option value="724">Псков</option>
            <option value="708">Санкт-Петербург</option>
            <option value="1681">Сочи</option>
            <%
While (NOT rs_transcoast.EOF)
%>
            <%
  rs_transcoast.MoveNext()
Wend
If (rs_transcoast.CursorType > 0) Then
  rs_transcoast.MoveFirst
Else
  rs_transcoast.Requery
End If
%>
          </select></td>
        </tr>
        <tr>
          <td>Тип оплаты</td>
          <td><select name="tip" id="tip">
            <option value="100" selected="selected">Безналичный</option>
            <option value="400">Безналичный без НДС</option>
            <option value="400">Наличный</option>
            <%
While (NOT rs_transcoast.EOF)
%>
            <%
  rs_transcoast.MoveNext()
Wend
If (rs_transcoast.CursorType > 0) Then
  rs_transcoast.MoveFirst
Else
  rs_transcoast.Requery
End If
%>
          </select></td>
        </tr>
        <tr>
          <td>Вес груза(кг) </td>
          <td><input name="v2" type="text" id="v2" /></td>
          </tr>
        <tr>
          <td>Объем груза(м3)</td>
          <td><input name="v3" type="text" id="v3" /></td>
          </tr>
        <tr>
          <td>&nbsp;</td>
          <td><input type="submit" name="Coast" value="Рассчитать" /></td>
          </tr>
        </table>
    </form>    <p>Стоимость доставки груза составляет  <strong><% Response.Write(res) %></strong>  руб</p></td>
 </tr>
</table>

<br />
<br />


</body>
</html>
<%
rs_transcoast.Close()
Set rs_transcoast = Nothing
%>

vladendark · 13.03.2013, 22:04

Цитата:

уже и незнаю что делать...

а что тут сделать. кроме того, что вам нужен IIS сервер, для запуска asp-скрипта, так потом еще и с бубном плясать нужно будет.
Короче говоря - курите тему про asp/ В двух словах не объяснить

Кристина999 · 13.03.2013, 22:07

в том то и дело что iis включила, все настроила по этой ссылке http://msdn.microsoft.com/ru-ru/libr...v=vs.100).aspx, сделала тестовые 2 программки они работают..а именно эта моя нет..

vladendark · 13.03.2013, 22:12

Цитата:

Сообщение от Кристина999

в том то и дело что iis включила, все настроила по этой ссылке http://msdn.microsoft.com/ru-ru/libr...v=vs.100).aspx, сделала тестовые 2 программки они работают..а именно эта моя нет..

С этого надо было начинать. Прошу прощения, но в ASP я не силен. Так что умываю руки )

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Калькулятор елок	Mortis	Зал дебютантов	9	21.11.2011 01:45
калькулятор петель на JS	vitaly-go	HTML, CSS, JavaScript	6	04.06.2011 22:38
Как создать калькулятор?	Darika	ASP, Perl, PHP и MySQL	5	22.04.2010 10:49
Калькулятор на Js	WilLiaM	HTML, CSS, JavaScript	2	13.04.2010 23:45
Всплывающий калькулятор (нид хелп)	RomanSX	HTML, CSS, JavaScript	3	20.09.2008 23:14

13.03.2013, 22:07	#3
Кристина999	в том то и дело что iis включила, все настроила по этой ссылке http://msdn.microsoft.com/ru-ru/libr...v=vs.100).aspx, сделала тестовые 2 программки они работают..а именно эта моя нет..

13.03.2013, 21:59
Ссылки