Прогноз на крайний случай

Инструкция к применению: Расслабьтесь и доверьтесь собственной жизненной ситуации. При этом не теряйте чувства юмора и оптимизма: помните, что Вы получаете расклад ситуации с Вами, а выбор остается за Вами.

1. Сформулируйте вопрос, на который Вы хотели бы получить ответ SmOr.jpg (8151 bytes)
2. Наберите задуманное число     
3. Нажмите на кнопку           

  <% Dim objOne Dim objFile Dim NumStr Dim Afor Dim i Dim Num Dim One One=Request.Form ("txtOne") if NOT IsNumeric(Request.Form ("txtOne")) or Len(Request.Form ("txtOne"))=0 then Afor="ПОЖАЛУЙСТА, НАБЕРИТЕ ЗАДУМАННОЕ ЧИСЛО!!!!!" else set objOne=server.CreateObject("Scripting.FileSystemObject") set objFile=objOne.OpenTextFile(Server.MapPath("/Fraz/Afor5") & ("\5_Num.txt")) Num=objFile.ReadLine objFile.Close set objFile=objOne.OpenTextFile(Server.MapPath("/Fraz/Afor5") & ("\5_A.txt")) randomize timer NumStr=int(rnd*Num)+1 for i=0 to NumStr objFile.SkipLine next Afor=objFile.ReadLine objFile.Close Set objOne=Nothing end if %> Ваш прогноз
 

Подумайте, почему именно эта карта выпала Вам сегодня? Ведь ничего просто так не случается!
Не относитесь к этому чересчур серьезно и - действуйте! Удачи Вам!
назад