<% p=Request("p") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("stones.mdb")) SQL = "SELECT * FROM paral WHERE id='"&p&"'" Set Id = Server.CreateObject("ADODB.Recordset") Id.Open SQL, Conn, 1 title=Id.Fields("name") vidy="vidy_paral.jpg" main_align="center" SQL = "SELECT * FROM "&Id.Fields("id") Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL, Conn, 1 %>

	<%=Id.Fields("ename")%>
	HOME PARALLELS <% SQL = "SELECT * FROM paral" Set Menu = Server.CreateObject("ADODB.Recordset") Menu.Open SQL, Conn, 1 While Not Menu.EOF If Menu.Fields("id")<>p Then Response.Write " "&Menu.Fields("ename2")&" " Menu.MoveNext Wend %> eng rus 70px<%Else%>50px<%End If%>;" cellpadding=0 cellspacing=0 border=0> ','<%=Rs.Fields("file")%>b','<%=Rs.Fields("file")%>','<%=Rs.Fields("width")%>','<%=Rs.Fields("height")%>')">/<%=Rs.Fields("file")%>.jpg" alt="<%=Rs.Fields("ehint")%>" border=0> <%=Rs.Fields("etitle")%> <%=Id.Fields("etext")%>
	Parallels: <% Rs.MoveNext While Not Rs.EOF %> <% Rs.MoveNext Wend %> <% Rs.MoveFirst Rs.MoveNext While Not Rs.EOF %> <% Rs.MoveNext Wend %>   ','<%=Rs.Fields("file")%>','<%=Rs.Fields("file")%>','<%=Rs.Fields("width")%>','<%=Rs.Fields("height")%>')"><%if Rs.Fields("junesko") Then%>" style="position: absolute; visibility: visible;"><%End If%>/tumbs/<%=Rs.Fields("file")%>.jpg" border=0 alt="<%=Rs.Fields("ehint")%>">   ','<%=Rs.Fields("file")%>','<%=Rs.Fields("file")%>','<%=Rs.Fields("width")%>','<%=Rs.Fields("height")%>')"><%=Rs.Fields("etitle")%>
	<% Rs.MoveFirst Rs.MoveNext While Not Rs.EOF %> <% Rs.MoveNext Wend Rs.Close Conn.Close %> <%If Rs.Fields("webcam")<>"" Then%> <%End If%> <%If Rs.Fields("panorama")<>"" Then%> <%End If%> <%If Rs.Fields("video")<>"" Then%> <%End If%> <%If Rs.Fields("virtualtour")<>"" Then%> <%End If%> method=post> "> "> "> .submit()"> method=post> "> "> "> .submit()"> method=post> "> "> "> .submit()"> <%If Rs.Fields("file")="Kew" OR Rs.Fields("file")="Gisa" Then%> " target=_blank> <%Else%> method=post> "> "> "> .submit()"> <%End If%>