İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

nedenini anlayabilene askolsun :(

sanalzeka

0
İyinet Üyesi
Katılım
23 Ocak 2011
Mesajlar
30
Reaction score
0
sorunum cozuldu yazıya link verince yazımın veritabanında var olup olmadıgını bulamamıstım oldu ihtiyacı olan alsın yazı varsa baska yoksa baska sayfaya gidiyor :)

<%
if session("uyedurum") = True Then
%>
<%
id=request.querystring("id")
yazim=request.querystring("yazim")

Set veritabani= Server.CreateObject("ADODB.Connection")
veritabani.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("5956thz1196thz5956.mdb")

sorgu="Select* from oldumu where id = " &id
set Kontrol=veritabani.Execute(sorgu)

if Kontrol.EOF then
response.redirect"yok.asp"
else
yazikontrol=trim(Kontrol("gerek"))
if yazim=yazikontrol then
response.redirect"var.asp"
else
response.redirect"yok.asp"
end if
end if

Kontrol.Close
set Kontrol=nothing
veritabani.Close
set veritabani=nothing
end if
%>


yazıma linki ise
asagıdaki kodla verdim

<table width="200" border="0">
<p>
<font color="#000000" face="Arial">
<a href="konuyai.asp?id=<%=thz("id")%>&yazim=<%=thz("yazim")%>" style="text-decoration: none">
<input type="text" name="yazim" readonly value="<%=thz("cevapll")%>" size="10"
</tr></font><a href="not_devam.asp?id=<%=thz("id")%>&cevapl=<%=thz("yazim")%>" style="text-decoration: none"><font color="#000000" face="Arial">

<table width="250" border="0">
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst