Bu script teki sorun ne
Arkadaslar fazla oluyorum ama asagıdaki scriptdeki sorun ne anlamadım yolla butonu bir turlu calısmıyor deli oldum ikii gundur sorunuma yardımcı olursanız sevinirim.Abartarak Tamamını Yazıyorum Kusura bakmayın
<% @Language=VBScript %>
<!-- #include file="ust.asp" -->
<%
db = "db"
%>
<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&db&"/xxx.mdb")
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from download ORDER BY id DESC"
yeniasp.Open sor,Sur,1,3
git = Request.QueryString("git")
if git="" then
git=1
end if
sil = Request.QueryString("sil")
if sil = "delete" then
call delete
else
end if
islem=Request.QueryString("islem")
if islem="ekle" then
call ekle
end if
%>
<%
sub delete
id = Request("id")
Set mailsil = Server.CreateObject("ADODB.RecordSet")
SQL_delete = "DELETE from download WHERE id="&id&""
mailsil.open SQL_delete,Sur,1,3
response.redirect Request.ServerVariables("HTTP_REFERER")
end sub
%>
<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 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Download Yönetimi Yönetici Bölümü</title>
</head>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="550">
<tr>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="400" bgcolor="#D1D1D1">
<tr>
<td width="300" bgcolor="#808080" height="20"><font color="#FFFFFF"> <b>PROGRAM ADI</b></font></td>
<td width="100" bgcolor="#808080" height="20">
<p align="center"><b><font color="#FFFFFF">İŞLEM</font></b></td>
</tr>
<%
yeniasp.pagesize = 10
yeniasp.absolutepage = git
sayfa = yeniasp.pagecount
for i=1 to yeniasp.pagesize
if yeniasp.eof then exit for
%>
<tr>
<td width="300" bgcolor="#FFFFFF"> <%=yeniasp("script_adi")%> </td>
<td width="100" bgcolor="#FFFFFF">
<p align="center"><a href="aspduzenle.asp?id=<%=yeniasp("id")%>">Düzenl e</a> <b>-</b> <a href="asp_admin.asp?sil=delete&id=<%=yeniasp("id") %>">Sil</a></td>
</tr>
<%yeniasp.movenext%>
<% next %>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="400" height="20">
<tr>
<td>
<p align="center">Sayfa : <%
for y=1 to sayfa
if git=y then
response.write y
else
response.write "<b> <a href=""asp_admin.asp?git="&y&""">"&y&"</a></b>"
end if
next
%></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="400" height="20">
<tr>
<td></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<%
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from kategori ORDER BY ilk_harf"
yeniasp.Open sor,Sur,1,3
%>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td>
<form method="POST" action="asp_admin.asp?islem=ekle">
</form>
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="400" bgcolor="#D1D1D1">
<tr>
<td bgcolor="#808080" height="20">
<p align="center"><b><font color="#FFFFFF">YENİ PROGRAM EKLEME BÖLÜMÜ</font></b></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" width="419" bgcolor="#D1D1D1" cellspacing="1">
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Program Adı : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="script_adi" size="35" class="form"></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Dil : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="dil" size="35" class="form"></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Boyut : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="boyut" size="35" class="form"></td>
</tr> <tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Versiyon : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="versiyon" size="35" class="form"></td>
</tr> <tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">OS : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="os" size="35" class="form"></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Telif : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="telif" size="35" class="form"></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Lisans : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="lisans" size="35" class="form"></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Tarih : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="tarih" size="35" class="form" value="<%=date%>"></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Ekleyen : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="ekleyen" size="35" class="form"></td>
</tr>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">URL : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <input type="text" name="url" size="35" class="form"></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">İçerik : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <textarea name="tanim"
rows="10" cols="35" class="form"></textarea></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA"><p>Resim
:</td>
<%id=Request.QueryString("id")
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from download where id="&id
yeniasp.Open sor,Sur,1,3%> <td width="250" height="25" bgcolor="#EAEAEA"> <input type="text" name="resim" size="35" class="form" value="<%=yeniasp("resim")%>"></td>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA">Kategori : </td>
<td width="269" height="25" bgcolor="#EAEAEA"> <select size="1" name="kid" class="form">
<option selected>Kategori Seç</option>
<% Do while not yeniasp.eof %><option value="<%=yeniasp("kid")%>"><%=yeniasp("kategori_a di")%></option><%yeniasp.movenext%><%Loop%>
</select></td>
</tr>
<tr>
<td width="150" align="right" height="25" bgcolor="#EAEAEA"></td>
<td width="269" height="25" bgcolor="#EAEAEA">
<p align="center"><input type="submit" value="Yolla" name="Submit" class="form"></form></td>
</tr>
</table>
</div>
</div>
</div>
</div>
</div>
</div>
<!--#include File="alt.asp"-->
</body>
</html>
<%sub ekle
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&db&"/xxx.mdb")
Set yeniasp = Server.CreateObject("ADODB.Recordset")
sor = "Select * from download"
yeniasp.Open sor,Sur,1,3
%><% Dim script_adi, boyut, dil, icerik, versiyon, os, lisans, tarih, tanim, telif, url, kid
id=Request.Form("id")
script_adi = Request.Form("script_adi")
boyut = Request.Form("boyut")
dil = Request.Form("dil")
icerik = Request.Form("icerik")
versiyon = Request.Form("versiyon")
os = Request.Form("os")
lisans = Request.Form("lisans")
tarih = Request.Form("tarih")
ekleyen = Request.Form("ekleyen")
tanim = Request.Form("tanim")
url = Request.Form("url")
telif = Request.Form("telif")
kid = Request.Form("kid")
yeniasp.addnew
yeniasp("script_adi")=script_adi
yeniasp("boyut")=boyut
yeniasp("dil")=dil
icerik = Request.Form("tanim")
yeniasp("versiyon")=versiyon
yeniasp("os")=os
yeniasp("lisans")=lisans
yeniasp("ekleyen")=ekleyen
yeniasp("tanim")=tanim
yeniasp("url")=url
yeniasp("telif")=telif
yeniasp("kid") = kid
yeniasp("onay") = 1
yeniasp.Update
Response.Write "<center><font face=verdana color=black size=1>Program eklendi...<br><a href=default.asp>Ana Sayfa</a></font></center>"
Response.End
end sub
%>
|