' --------------------------------------------------------------------------------------
'	Modified by  Валерий Апарышев
' --------------------------------------------------------------------------------------
Const vMaxPok=151

Randomize

Function RetRnd()
	RetRnd=Cstr(Int(vMaxPok*Rnd()))+1
End Function 

Sub chHref(oID,oFirst,oPar)
	oID.href=oFirst+"?"+Cstr(oPar.Value)
End Sub

Function MyIsNum(par)
	If IsNumeric(par.Value) Then
    		temp1=CInt(par.Value)
    		If (temp1 < 1) Or (temp1 > vMaxPok) Then
      			MsgBox "Пожайлуста Введите число 1..."+CStr(vMaxPok)+" !!!",,"Ошибка"
      			par.Value=RetRnd()
			MyIsNum=false
	    	Else
			MyIsNum=True
    		End If
  	Else
    		MsgBox "Пожайлуста Введите число.",,"Ошибка"
    		par.Value=RetRnd()
		MyIsNum=false
  	End If
End Function

Sub ChText(oText,oPan)
	temp=MyIsNum(oText)
	oPan.Value=oText.Value
End Sub

Sub RetAll
	Text1.Value=RetRnd()
	Pan1.Value=Text1.Value
	chHref picture,"picture.htm",Pan1
	Text2.Value=RetRnd()
	Pan2.Value=Text2.Value
	chHref cap,"caps.htm",Pan2
End Sub

Function Chislo(iPar)
	sChislo=Cstr(iPar)
	Select Case Len(sChislo)
	Case 1 Chislo="00"+sChislo
	Case 2 Chislo="0"+sChislo
	Case Else Chislo=sChislo
	End Select
End Function

Sub WriteMainTable(nC,sInf) ' Write Information in Main Table
	nTemp=0
	if nC<3 Then
		nTemp=-1
	Else
		if nC>=5 Then nTemp=1
	End If
	document.all.MainTable.rows(0).cells(nC+nTemp).innerHTML=sInf
End Sub

Sub PokTabl
	Dim iPic(6)
	temp2="'32'"
	temp4="iconpok/"
	temp5=".gif"
	If screen.width>=1280 Then 
		temp2="'80'"
		temp4="anime/"
		temp5=".GIF"
	End If
	For ii=1 to 6
		iPic(ii)= RetRnd()
		If ii>=2 Then
			lTemp=True
			While lTemp
				lTemp=False
				iPic(ii)= RetRnd()
				ii2=ii-1
				For ii1=1 to ii2
					If iPic(ii1)=iPic(ii) then 
						lTemp=True
						Exit For
					End If
				Next
			Wend
		End If
		sNom=Chislo(iPic(ii))
		WriteMainTable ii, "<a href='picture.htm?"+sNom+_
		"'><img border='0' src='"+temp4+sNom+temp5+_
		"'  width="+temp2+" height="+temp2+" alt='#"+sNom+" - ?????' ></a>"
	Next
End Sub


Sub AddPageFavorit	' добавление в Избранное
	on error resume next	' для старых версий IE
	window.external.AddFavorite location.href, document.title
End Sub

Sub Pan1_Change
	Text1.value=Cstr(Pan1.Value)
	chHref picture,"picture.htm",Pan1
End Sub

Sub Pan2_Change
	Text2.value=Cstr(Pan2.Value)
	chHref cap,"caps.htm",Pan2
End Sub

PokTabl