<%
Session.CodePage = 1254
%>
<%Dim temp, ip
temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If temp<>"" Then
ip = temp
Else
ip = Request.ServerVariables("REMOTE_ADDR")
End If
%>
<%
id = request.querystring("id")
Set yuz100e = server.CreateObject("Adodb.Connection")
yuz100e.Open "Provider=Microsoft.Jet.Oledb.4.0; Data source =" &server.MapPath("sac.mdb")
set menu = server.CreateObject("Adodb.Recordset")
menu.open "select * from menu ",yuz100e,1,3
set urunler = server.CreateObject("Adodb.Recordset")
urunler.open "select * from urunler ",yuz100e,1,3
%>
Saç Boyası,Bitkisel Saç Boyası ,Doğal Saç Boyası,Atak Yapı Kozmetik
ÜRÜNLER & SİPARİŞ:
<%
urunler.Pagesize=7
sayfa=Request.QueryString("sayfa")
if sayfa="" then sayfa=1
urunler.AbsolutePage=sayfa
j=0
do while not urunler.eof and j
