<%@ LANGUAGE = "VBScript" codepage="1255"%> <% dim ziur 'dsn for root folder tansh = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("access_db/tansh.mdb") & "" ip_country1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("access_db/ip_num1.mdb") & "" %> <% response.charset="windows-1255" session.codepage=1255 set conn=Server.CreateObject("adodb.connection") conn.open tansh ipaddress=Request.ServerVariables("REMOTE_ADDR") c_url=Request.ServerVariables("HTTP_REFERER") ipno = Dot2LongIP(ipaddress) set conn1=Server.CreateObject("adodb.connection") conn1.open ip_country1 strsql = "SELECT * FROM IPCountry WHERE " & ipno & " BETWEEN ipFROM AND ipTO" Set rs = conn1.execute(strsql) If Not rs.EOF Then cntr=rs("countryLONG") else cntr="" end if rs.close set rs = nothing conn1.Close set conn1=nothing Function Dot2LongIP (ByVal DottedIP) Dim i, pos Dim PrevPos, num If DottedIP = "" Then Dot2LongIP = 0 Else For i = 1 To 4 pos = InStr(PrevPos + 1, DottedIP, ".", 1) If i = 4 Then pos = Len(DottedIP) + 1 End If num = Int(Mid(DottedIP, PrevPos + 1, pos - PrevPos - 1)) PrevPos = pos Dot2LongIP = ((num Mod 256) * (256 ^ (4 - i))) + Dot2LongIP Next End If End Function n=0 set rs=server.createobject("adodb.recordset") sql99="select * from enteries where session_id='" & session.SessionID & "' and ip_num='" & ipaddress & "'" rs.open sql99,conn if rs.eof and rs.bof then pp=1 elseif rs("date")<>date then pp=1 else pp=2 id=rs("id") end if rs.Close set rs=nothing if pp=1 then sql9="insert into enteries (session_id,ip_num,country,url_ref) values('" & session.SessionID & "','" & ipaddress & "','" & cntr & "','" & c_url & "')" conn.execute sql9 end if set rs=Server.CreateObject("adodb.recordset") sql="select * from sivug_r order by mikum,id" rs.Open sql,conn,3 set rs11=Server.CreateObject("adodb.recordset") set rs12=Server.CreateObject("adodb.recordset") set rs3=Server.CreateObject("adodb.recordset") set rs2=Server.CreateObject("adodb.recordset") sql2="select * from users_reviews order by book,id desc" rs2.Open sql2,conn cat_title="head-Book_Recommendations.gif" %> Tamar Ansh - Making Yourself At Home - Users Reviews

 

<% b=0 do until rs2.EOF if b<>rs2("book") then sql3="select * from book where id=" & rs2("book") rs3.Open sql3,conn Response.Write "

" & rs3("b_name") & "



" rs3.Close b=rs2("book") end if Response.Write "" & rs2("u_name") & "
" & rs2("u_txt") & "


" rs2.MoveNext loop %>

 

 

Home
    <% i=1 do until rs.eof sql11="Select * from sivug_m where sivug_r=" & rs("id") rs11.open sql11,conn if rs11.eof and rs11.bof then su=0 sql12="select * from katavot where hazeg=yes and sivug_r=" & rs("id") rs12.open sql12,conn if rs12.eof and rs12.bof then kishur="#" else su=0 kishur="sub_page.asp?cat=" & rs("id") & "&sub_cat=" & rs12("sivug_m") end if rs12.close else su=1 end if rs11.close if su=0 and kishur<>"" then %>
  • style=text-decoration:none><%=rs("sivug")%>
    • <% elseif su=0 then %>
  • <%=rs("sivug")%>
    • <% else %>
  • ) style=text-decoration:none><%=rs("sivug")%>
    • <% sql11="Select * from sivug_m where sivug_r=" & rs("id") rs11.open sql11,conn %> width=120 cellpadding=0 border=0 cellspacing=0 style="LEFT:0px; POSITION: relative; TOP:5px; display: 'none'"> <% do until rs11.EOF Response.Write "" rs11.MoveNext loop rs11.Close %>
    " & rs11("sivug_m") & "
    style="LEFT:0px; POSITION: relative; TOP:0px; display: 'none'">

    <% end if i=i+1 rs.movenext loop rs.close set rs=nothing %>
  • Media Book Reviews
  • Readers' Reviews
  • Donations
  • Contact Us
<% rs2.Close set rs2=nothing conn.close set conn=nothing %>