sayfa çalışmıyor

16-01-2014, 01:22:00

sayfayı çalıştıramıyorum bir türlü nerede hata yaptım farkına varan varmı acaba

<% @Language=VBScript %>
<!--#include file="parola.asp" -->
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/haber.mdb")
%>

<%
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from haber order by id desc"
yeniasp.Open sor,Sur,1,3

shf = Request.QueryString("shf")
if shf="" then 
shf=1
end if

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="tr">
<link rel="stylesheet" type="text/css" href="../stil.css">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>ADMINISTRATION</title>
</head>

<BODY SCROLL="auto" TOPMARGIN=0 LEFTMARGIN=0 onMouseOver="status='xxx.Com'; return true" BACKGROUND="../images/arkaplan.gif">

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="500">
    <tr>
<td>
        <form method="POST" action="hhaberadminn.asp?islem=ekle">
            <table border="0" cellpadding="0" cellspacing="1" width="500" bgcolor="#ffffff">
              <tr>
                <td width="150" align="right" bgcolor="#FFFFFF" height="25"><b>Ekleyen İsmi :</b>&nbsp;</td>
                <td width="350" bgcolor="#FFFFFF" height="25">&nbsp; <input type="text" name="ekleyen" size="50" value="" style="background-color: #F7F7F7; font-size: 10px; font-family: Verdana; border-style: dashed; border-width: 1;cursor:hand" class="form"></td>
              </tr>
<input type="hidden" name="email" value="img/"></td>
              <tr>
                <td width="150" align="right" bgcolor="#FFFFFF" height="25"><b>Başlık :&nbsp;</td>
                <td width="350" bgcolor="#FFFFFF" height="25">&nbsp; <input type="text" name="baslik" size="50" class="form" style="background-color: #F7F7F7; font-size: 10px; font-family: Verdana; border-style: dashed; border-width: 1;cursor:hand"></td>
              </tr>
              <tr>
                <td width="150" align="right" valign="middle" bgcolor="#FFFFFF" height="50"><b>Haber
                  :</b>&nbsp;</td>
                <td width="350" bgcolor="#FFFFFF" height="50">&nbsp; <textarea rows="50" name="haber" cols="80" class="form" style="background-color: #F7F7F7; font-size: 10px; font-family: Verdana; border-style: dashed; border-width: 1;cursor:hand"></textarea></td>
              </tr>
<input type="hidden" name="tarih" value="img/">
              </tr>
              <tr>
                <td width="150" height="25" bgcolor="#FFFFFF">&nbsp;</td>
                <td width="350" height="25" bgcolor="#FFFFFF">
                  <p align="center"><input type="submit" value="   Yolla   " name="submit" class="form" style="background-color: #F7F7F7; font-size: 10px; font-family: Verdana; border-style: dashed; border-width: 1;cursor:hand"></td>
              </tr>
            </table>
        </form>
      </td>
    </tr>
  </table>

  <%
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from haber order by id desc"
yeniasp.Open sor,Sur,1,3

if yeniasp.eof or yeniasp.bof then
Response.Write "<p align=left><b><font color=#1D5A87>»</font></b> Hiç haber yok...</p>"
end if
%>
          <table border="0" cellpadding="0" cellspacing="0" width="500" bgcolor=#ffffff>
<%
for i = 1 to 75
if yeniasp.eof then exit for
%>
            <tr>
              <td width="500" height="15">&nbsp;<b><font color="#1D5A87">»</font> </b>
                <%=yeniasp("baslik")%></td>
              <td width="100" height="15"><a href="hhaberadminn.asp?islem=sil&id=<%=yeniasp("id")%>">Sil</a></td>
            </tr>
<%
yeniasp.movenext
Next
yeniasp.close
set yeniasp = Nothing
%>
          </table>

</div>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/haber.mdb")

islem = Request.QueryString("islem")
if islem = "sil" then
call sil
elseif islem="ekle" then
call ekle
else
end if
%>


<%sub ekle
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/haber.mdb")

Set gir = server. CreateObject("ADODB.Recordset")
kayit = "Select * from haber"
gir.Open kayit,sur,1,3

Dim ekleyen, email, baslik, haber, tarih

ekleyen = request.form("ekleyen")
email = request.form("email")
baslik = request.form("baslik")
haber = request.form("haber")
tarih = request.form("tarih")

if ekleyen="" or email="" or baslik="" or haber="" or tarih="" then
Response.Write "<center>Lütfen tüm alanları doldurunuz...</center>"
Response.End

else
gir.AddNew
gir("ekleyen") = ekleyen 
gir("email") = email
gir("baslik") = baslik
gir("haber") = haber
gir("tarih") = tarih
gir.Update

Response.Redirect Request.ServerVariables("HTTP_REFERER")

end if
end sub
%>
<%
sub sil
id = Request("id")
Set yeniasp = Server.CreateObject("ADODB.RecordSet")
SQL_delete = "DELETE from haber WHERE id="&id&""
yeniasp.open SQL_delete,Sur,1,3
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
%>

16-01-2014, 04:36:26

#2

~~kesanli~~

Üyeliği durduruldu

Nasıl bir hata alıyorsun onu yazarsan daha rahat yardımcı oluruz?
16-01-2014, 16:20:44

#3

teriyaki

Host yeni acaba veritabanı bulamiyor olabilir mi 500 internal servr hatasi veriyor

Discovery cihazımdan Tapatalk kullanılarak gönderildi
17-01-2014, 12:32:24

#4

teriyaki

hhaberadminn.asp, line 5

The '..' characters are not allowed in the Path parameter for the MapPath method. db yolunu nasıl göstermem gerekiyor /../db/xxx.mdb yaptim yine olmadı neden boyle yapıyor sizce?

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 12:32:24 -->-> Daha önceki mesaj 12:16:41 --

sorun çözüldü /db/xxx.mdb olucakmış :S
18-01-2014, 04:31:19

#5

~~kesanli~~

Üyeliği durduruldu

Foruma geç girebildim görememişim sorununuzun çözüldüğüne sevindim.