извените я не указал ошибку Ошибка сервера 405.При отправке данных на сервер для их сохранения вот код странички
| Код |
<script language="vbscript" type="text/vbscript">
<!--
Sub Next_onClick
NL=Chr(13)&Chr(10)
Set R=Top.Right.Document
Set O=Self.document.OrderForm
R.Open
R.Write "<html>"&NL
R.Write "<head>"&NL
R.Write "<title>"&NL
R.Write "Confirm your order"&NL
R.Write "</title>"&NL
R.Write "</head>"&NL
R.Write "<body bgcolor='white'>"&NL
R.Write _
"<p><font color='#0000FF'><b><i>Шановний(а) "
R.Write O.FirstName.Value & " "
R.Write O.LastName.Value & ":"
R.Write "</i></b></font></p>"&NL
R.Write _
"<p><i><b><font color='#0000FF'>"&NL
R.Write _
"Перевірте введені дані та<br>"&NL
R.Write"натисніть кнопку <br>"&NL
R.Write"<font color='red'>'Відправити'</font><br><hr>"&NL
R.Write"<table width='100%' border='2' "
R.Write"cellspacing='1' cellpadding='1'>"
R.Write _
"<tr bgcolor='#6633CC' align='center'>"
R.Write"<td width='6%' align='center'>"
R.Write"<b><font color='#FFFFFF'>"
R.Write"Заява на підключення</font></b></td></tr>"&NL
R.Write"<tr bgcolor='#FFFFCC'>"&NL
R.Write"<td width='6%' align='center'>"
R.Write"<font color='#800080'>"
R.Write"Заява.<br>"
R.Write"Я, "
R.Write O.FirstName.Value & " "
R.Write O.LastName.Value & ","
R.Write "що проживаю <br> за адресою : м.Миргород, "
R.Write O.Address.Value & "."
R.Write "<br>Прошу підключити мене до мережі<br>"
R.Write "кабельного телебачення 'Орбіта'."
R.Write "<br>З умовами підключення згоден(на)."
R.Write "</font></td>"&NL
R.Write "</tr></table>"&NL
R.Write "</font></b></i></p>"
R.Write "<br><hr>"&NL
R.Write _
"<form name='form1' method='post' action='\zakaz\zakaz1.htm '>"
R.Write "<input type='submit' name='Confirm' value='Відправити'>"&NL
R.Write "</form>"&NL
R.Write"</body>"&NL
R.Write"</html>"
R.Close
End Sub
-->
|
DNS-настроенный верно.Может какой-то модуль не включён?? |