Sunka Kağıtçılık'a hoşgeldiniz.
|
|
wellcome to Sunka Paper. |
| |
|
|
|
||
|
|
|
|| |
enter (without intro) |
gerekenler |
|| |
requirements |
|
|| |
|
<%
Session.CodePage=1254
Set link= Server.CreateObject("ADODB.Connection")
strcon= "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" +Server.MapPath("../db/db.mdb")
link.open strcon,"",""
response.charset="UTF-8"
query = "SELECT * FROM news ORDER BY sira"
Set cur = Server.CreateObject("ADODB.Recordset")
cur.cursortype=adOpenDynamic
cur.locktype=adLockOptimistic
cur.Open query, link
if not(cur.EOF) then
cur.moveFirst
i=70
txt=left(cur.Fields(0).Value, i)
if len(cur.Fields(0).Value)>80 then
c="a"
while Not(c=" ")
i=i+1
c=mid(cur.Fields(0).Value, i, 1)
txt=txt&c
Wend
end if
i=70
txten=left(cur.Fields(1).Value, i)
if len(cur.Fields(1).Value)>80 then
c="a"
while Not(c=" ")
i=i+1
c=mid(cur.Fields(1).Value, i, 1)
txten=txten&c
Wend
end if
end if
%>
|
|