<%@ 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 rs2=Server.CreateObject("adodb.recordset")
sql2="select * from newsletter order by id desc"
rs2.Open sql2,conn
%>
Tamar Ansh - Making Yourself At Home - Newsletter
<%
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
%>
