Asp Veri Kayıt Hatası

11/Şub/09 20:50

Kısayol

Şikayet

Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Merhaba arkadaşlar kendime bi haber ekleme sayfası yapmak istedim. Haber formu multipart/data formu kullanmak istedim. Sorunum şu. Sayfayı çalıştırıp haber eklediğimde hiç bir hata vermiyor ama veri tabanına sadece tarih kaydediyor , başka hiç bir veri kaydetmiyor.

Veritabonu tablo ismi : tbl haber
sütun isimleri : id,baslik,ozet,resim,tarih

acaba multipart/data form kullanarak veri tabanına nasıl veri kaydedebilirim

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

<head>
<meta http-equiv="Content-Language" content="tr">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<meta http-equiv="Content-Language" content="tr">

</head>

<script language="javascript" type="text/javascript" src="jscripts/tiny_mce/tiny_mce.js"></script>
<script language="javascript" type="text/javascript">
tinyMCE.init({
    // General options
    mode : "textareas",
    theme : "advanced",
    plugins : "safari,pagebreak,style,layer,table,save,advhr,advimage,advlink,emotions,iespell,inlinepopups,insertdatetime,preview,media,searchreplace,print,contextmenu,paste,directionality,fullscreen,noneditable,visualchars,nonbreaking,xhtmlxtras,template",
    // Theme options
    theme_advanced_buttons1 : "save,newdocument,|,bold,italic,underline,strikethrough,|,justifyleft,justifycenter,justifyright,justifyfull,|,styleselect,formatselect,fontselect,fontsizeselect",
    theme_advanced_buttons2 : "cut,copy,paste,pastetext,pasteword,|,search,replace,|,bullist,numlist,|,outdent,indent,blockquote,|,undo,redo,|,link,unlink,anchor,image,cleanup,help,code,|,insertdate,inserttime,preview,|,forecolor,backcolor",
    theme_advanced_buttons3 : "tablecontrols,|,hr,removeformat,visualaid,|,sub,sup,|,charmap,emotions,iespell,media,advhr,|,print,|,ltr,rtl,|,fullscreen",
    theme_advanced_buttons4 : "insertlayer,moveforward,movebackward,absolute,|,styleprops,|,cite,abbr,acronym,del,ins,attribs,|,visualchars,nonbreaking,template,pagebreak",
    theme_advanced_toolbar_location : "top",
    theme_advanced_toolbar_align : "left",
    theme_advanced_statusbar_location : "bottom",
    theme_advanced_resizing : true,
    // Example content CSS (should be your site CSS)
    content_css : "css/content.css",
    // Drop lists for link/image/media/template dialogs
    template_external_list_url : "lists/template_list.js",
    external_link_list_url : "lists/link_list.js",
    external_image_list_url : "lists/image_list.js",
    media_external_list_url : "lists/media_list.js",
    // Replace values for the template plugin
    template_replace_values : {
        username : "Some User",
        staffid : "991234"
    }
});
</script>

<table border="1" width="100%" id="table1" height="50" cellspacing="0" cellpadding="0" bordercolor="#FFFFFF">

<form action="haberekle.asp?islem=ekle" method="post" enctype="multipart/form-data">

    <tr>
        <td width="239" height="25" bordercolor="#C0C0C0"> HABER BAŞLIĞI</td>
        <td height="25" bordercolor="#C0C0C0">

                        <p><input type="text" name="baslik" size="88"></p>
        </td>
    </tr>
    <tr>
        <td width="239" bordercolor="#C0C0C0"> HABER ÖZETİ</td>
        <td bordercolor="#C0C0C0"><input type="text" name="ozet" size="88"></td>
    </tr>
    <tr>
        <td width="239" bordercolor="#C0C0C0"> HABER RESMİ</td>
        <td bordercolor="#C0C0C0"><input class="formic" type="file" name="resim"></td>
    </tr>
    <tr>
        <td width="239" bordercolor="#C0C0C0"> HABER İÇERİĞİ</td>
        <td bordercolor="#C0C0C0"><textarea name="haber" rows="12" cols="65"> </textarea></td>
    </tr>
    <tr>
        <td width="239" bordercolor="#C0C0C0"> </td>
        <td bordercolor="#C0C0C0"><input type="submit" value="Gönder" name="B3"></td>
    </tr>
</table>

</form>

<%
dim islem
islem = Request.QueryString("islem")
if islem = "ekle" then

baslik = Request.Form("baslik")
ozet = Request.Form("ozet")
resim = Request.Form("resim")
haber = Request.Form("haber")

set kaydet = Server.CreateObject("Adodb.Recordset")
SQL = "Select * from tblhaber "
kaydet.open SQL,conn,1,3

kaydet.Addnew
kaydet("baslik") = baslik
kaydet("ozet") = ozet
kaydet("haber") = haber
kaydet("tarih") = Date()
kaydet.update
kaydet.close
set kaydet = nothing
conn.close
set conn = nothing
end if

%>

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap

11/Şub/09 21:09

Kısayol

Şikayet

Özel Mesaj

RootB

Kayıt Tarihi: 31/Ekim/2008

hatayı da yazarmısın

Alıntı yap

11/Şub/09 21:43

Kısayol

Şikayet

Özel Mesaj

Fikret

Kayıt Tarihi: 01/Ekim/2007

multipart ile formdan gönderiyosan veriyi alırken request.form dersen bo$ veri kaydeder veritabanına. gelen veriyi tanımladıgın upload degi$keniyle alıcaksın.

mesela

Set Upload = Server.CreateObject("Persits.Upload")

dediysen

veri = Upload.form("veri")

$eklinde alıcaksın.

screw you guys! i"m goin" hoooome!

Alıntı yap

11/Şub/09 21:58

Kısayol

Şikayet

Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Hocam şu işlemi kod üzerinde gösterbilirsen daha iyi anlayacağım. sana zahmet kod üzerinde nerenin değişeceğini gösterebilirmisin

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap

11/Şub/09 22:04

Kısayol

Şikayet

Özel Mesaj

Fikret

Kayıt Tarihi: 01/Ekim/2007

hocam dei$iklik deilde ekleme yapılması gerek.

multipart kullandıgına göre bi upload i$lemi yapıcaksın anladıgım kadarıyla ?

upload icin gerekli kodu ekle. düzenleme kısmını yaparım ben :)

upload işlemi yoksa enctype'ı kaldır calı$ır zaten.

screw you guys! i"m goin" hoooome!

Alıntı yap

11/Şub/09 22:21

Kısayol

Şikayet

Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Hocam persist upload a göre şöyle bir sayfa yazdım.Lütfen yaptığım hataları düzeltebelirmisin,bende öğreneyim.

Yapmak istediğim şu bir haber ekle sayfası yapıp haber basliği ,ozeti , haber resmi ve haber verileri oluşturup bunları db ye yazmak. Tabi bunu yaparken de kullanacağım haber resmini sunucuya upload edip resim dosyası ismini de db ye kayıt edip link olarak kullanabilmek.Yardımcı olursanız sevinirim.

--------------------------------------------------------------------------------------------------------------------

db tablosu sütun isimleri : id,baslik,ozet,resim,tarih

---------------------------------------------------------------------------------------------------------------------------

<tr>
  <td width="239" height="25" bordercolor="#C0C0C0"> HABER BAŞLIĞI</td>
  <td height="25" bordercolor="#C0C0C0">

      <p><input type="text" name="baslik" size="88"></p>
  </td>
</tr>
<tr>
  <td width="239" bordercolor="#C0C0C0"> HABER ÖZETİ</td>
  <td bordercolor="#C0C0C0"><input type="text" name="ozet" size="88"></td>
</tr>
<tr>
  <td width="239" bordercolor="#C0C0C0"> HABER RESMİ</td>
  <td bordercolor="#C0C0C0"><input class="formic" type="file" name="resim"></td>
</tr>
<tr>
  <td width="239" bordercolor="#C0C0C0"> HABER İÇERİĞİ</td>
  <td bordercolor="#C0C0C0"><textarea name="haber" rows="12" cols="65"> </textarea></td>
</tr>
<tr>
  <td width="239" bordercolor="#C0C0C0"> </td>
  <td bordercolor="#C0C0C0"><input type="submit" value="Gönder" name="B3"></td>
</tr>
</table>

</form>

<%
dim islem
islem = Request.QueryString("islem")
if islem = ekle then

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.codePage = 1254
Upload.save Server.MapPath("/img/haber")
Set File1 = upload.Files("resim")

set kaydet = Server.CreateObject("Adodb.Recordset")
SQL = "Select * from tblhaber"
kaydet.open SQL,conn,1,3

baslik = Request.Form("baslik")
ozet = Request.Form("ozet")
haber = Request.Form("haber")

kaydet("baslik") = ("baslik")
kaydet("ozet") = ("ozet")
kaydet("resim") =("img/haber")+file1.filename
kaydet("haber") = ("haber")
kaydet.update
kaydet.close
set kaydet = nothing
conn.close
set conn = nothing
response.Redirect request.ServerVariables("HTTP_REFERER")

end if

%>

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap

11/Şub/09 22:42

Kısayol

Şikayet

Özel Mesaj

Fikret

Kayıt Tarihi: 01/Ekim/2007

yazdıgım bi sayfayı direk atıyorum hocam. i$ine yarayan yaramayan her$ey var icinde :D editlemeden koyuyorum.

----------------------------------

<%
Islem=Trim(Replace(Request.QueryString("Islem"),"'",""))
LogoID=Trim(Replace(Request.QueryString("LogoID"),"'",""))
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<link href="../style.css" rel="stylesheet" type="text/css">
<title>Logolar</title>
</head>

<body>

<% If Islem="LogoEkle" Then %>

<div align="center">
    <form action="?Islem=LogoEkleTamam" method="post" enctype="multipart/form-data" accept-charset="utf-8">
    <table border="0" width="301" height="57" cellpadding="0">
        <tr>
            <td height="19" width="68" align="right">Resim:</td>
            <td height="19" width="230" align="left"><input type="file" name="Resim" size="10"></td>
        </tr>
        <tr>
            <td height="19" width="68" align="right">Açıklama:</td>
            <td height="19" width="230" align="left"><input type="text" name="Aciklama" size="22"></td>
        </tr>
        <tr>
            <td height="20" width="68" align="right">Sıra:</td>
            <td height="20" width="230" align="left"><input type="text" name="Sira" size="22" value="1"></td>
            </tr>
        <tr>
            <td height="20" width="68" align="right"></td>
            <td height="20" width="230" align="left"><input type="submit" value="Kaydet" name="Kaydet"></td>
            </tr>
    </table>
    </form>
</div>

<%
ElseIf Islem="LogoEkleTamam" Then

Server.ScriptTimeout = 500000

Function kod(nNoChars,sValidChars)
   Const szDefault = "abcdefghijklmnopqrstuvxyzABCDEFGHIJKLMNOPQRSTUVXYZ0123456789"
   Dim nCount
   Dim sRet
   Dim nNumber
   Dim nLength
   Randomize
   If sValidChars = "" Then
   sValidChars = szDefault
   End If
   nLength = Len( sValidChars )
   For nCount = 1 To nNoChars
   nNumber = Int((nLength * Rnd) + 1)
   sRet = sRet & Mid( sValidChars,nNumber,1)
   Next
   kod = sRet
End Function

RastgeleKod = "resim-" + kod(30,"")

Set Upload = Server.CreateObject("Persits.Upload")
   Upload.CodePage = 65001
   Upload.OverwriteFiles = False
   Upload.ProgressID = PID
   Yol = Server.MapPath("../Temp")&"/"
   Upload.IgnoreNoPost = True
   Upload.OverwriteFiles = False
   YeniDosya = session.sessionID& "_" &RastgeleKod
   Upload.Save(yol)

For Each File in Upload.Files
   File.Move Yol & YeniDosya & File.Ext
   resim_adi = yenidosya & File.Ext

Set Jpeg = Server.CreateObject("Persits.Jpeg")
    Path = Server.MapPath("../Temp/"& resim_adi &"")
    Jpeg.Open Path
    Jpeg.Width = Jpeg.OriginalWidth
    jpeg.Height = Jpeg.OriginalHeight
    Jpeg.Canvas.Brush.Solid = False
    Jpeg.Save Server.MapPath("../logolar/"& resim_adi &"")

Set fso = CreateObject("Scripting.FileSystemObject")
      fso.DeleteFile(Server.MapPath("../Temp/"& resim_adi &""))
Set Fso = Nothing

Next

rs.Open "Select * From Logolar",baglanti,1,3
rs.AddNew
rs("LogoURL")=resim_adi
rs("LogoAciklamasi")=Upload.Form("Aciklama")

Sira=Upload.Form("Sira")
If Sira="" Then Sira=1
rs("Sira")=Int(Sira)

rs.Update
LogoID=rs("LogoID")
rs.Close

Response.Write "<script>window.location.href='logo_onizleme.asp?LogoID=" & LogoID & "';</script>"
%>

<%
ElseIf Islem="LogoDuzenle" Then
If LogoID="" Or IsNumeric(LogoID)=False Then Response.Write "<script>window.location.href='logolar.asp';</script>"
%>

<div align="center">
    <form action="?Islem=LogoDuzenleTamam" method="post">
    <table border="0" width="301" height="57" cellpadding="0">
    <% rs.Open "Select * From Logolar Where LogoID=" & LogoID,baglanti,1,3 %>
        <tr>
            <td height="19" width="68" align="right">Açıklama:</td>
            <td height="19" width="230" align="left"><input type="text" name="Aciklama" size="22" value="<% =rs("LogoAciklamasi") %>"></td>
        </tr>
        <tr>
            <td height="20" width="68" align="right">Sıra:</td>
            <td height="20" width="230" align="left"><input type="text" name="Sira" size="22" value="<% =rs("Sira") %>"></td>
            </tr>
        <tr>
            <td height="20" width="68" align="right"><input type="hidden" name="LogoID" value="<% =LogoID %>"></td>
            <td height="20" width="230" align="left"><input type="submit" value="Kaydet" name="Kaydet"></td>
            </tr>
    <% rs.Close %>
    </table>
    </form>
</div>

<%
ElseIf Islem="LogoDuzenleTamam" Then
LogoID=Request.Form("LogoID")
If LogoID="" Or IsNumeric(LogoID)=False Then Response.Write "<script>window.location.href='logolar.asp';</script>"
rs.Open "Select * From Logolar Where LogoID=" & LogoID,baglanti,1,3
rs("LogoAciklamasi")=Request.Form("Aciklama")
Sira=Request.Form("Sira")
If Sira="" Then Sira=1
rs("Sira")=Int(Sira)
rs.Update
rs.Close
Response.Write "<script>window.location.href='logolar.asp';</script>"
%>

<%
ElseIf Islem="LogoSil" Then
If LogoID="" Or IsNumeric(LogoID)=False Then Response.Write "<script>window.location.href='logolar.asp';</script>"

rs.Open "Select * From Logolar Where LogoID=" & LogoID,baglanti,1,3
If rs.EOF Then
Response.Write "<center>Hata!</center>"
Else
ResimYolu=rs("LogoURL")
OnizlemeResim=rs("Onizleme")
rs2.Open "Delete From Logolar Where LogoID=" & LogoID,baglanti,1,3

Set fso = CreateObject("Scripting.FileSystemObject")
      fso.DeleteFile(Server.MapPath("../logolar/"&ResimYolu))
      fso.DeleteFile(Server.MapPath("../logolar/onizleme/"&OnizlemeResim))
Set Fso = Nothing

Response.Write "<script>window.location.href='logolar.asp';</script>"
End If
%>

<% Else %>

<div align="center">
    <table border="1" width="301" height="41" cellpadding="0" style="border-collapse: collapse" bordercolor="#CCCCCC">
        <tr>
            <td height="19" width="25" align="center">Sıra</td>
            <td height="19" width="243" align="center">Açıklama</td>
            <td height="19" width="30" align="center">Sil</td>
        </tr>
        <%
        rs.Open "Select * From Logolar Order By Sira Asc",baglanti,1,3
        Do Until rs.EOF
        %>
        <tr>
            <td height="20" width="25" align="center"><% =rs("Sira") %></td>
            <td height="20" width="243" align="center"><a href="?Islem=LogoDuzenle&LogoID=<% =rs("LogoID") %>"><% =rs("LogoAciklamasi") %></a></td>
            <td height="20" width="30" align="center"><a href="?Islem=LogoSil&LogoID=<% =rs("LogoID") %>"><img border="0" src="img/remove.gif" width="15" height="15"></a></td>
        </tr>
        <%
        rs.MoveNext
        Loop
        rs.Close
        %>
    </table>
    <p align="center"><font size="2"><a href="?Islem=LogoEkle">Logo Ekle</a></font></p>
</div>

<% End If %>

</body>

</html>

screw you guys! i"m goin" hoooome!

Alıntı yap

11/Şub/09 22:55

Kısayol

Şikayet

Özel Mesaj

haluktemel

Kayıt Tarihi: 05/Nisan/2007

Hocam şunu kendi sayfam üzerinden gösterebilseydin iyi olacaktı :)

Yaşamın amacı "Amacı olan bir yaşammıdır" Hacı ?

Alıntı yap