Bildirim
ASP Ürün Ekleme Hatası | Lütfen
Daha Fazla
Bu Konudaki Kullanıcılar:
Daha Az
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
form bilgilerini paylaşır mısın? bu şekilde ne şekilde yardım edeceğimiz belli değil -
urunekle.asp
<!--#include file = "style.asp"-->
<% if session("admin") = "ok" then %>
<!--#include file = "formEnter.asp"-->
<!--#include file = "ajaxActions.asp"-->
<%
set anaBaslikListesi = kayitSeti("SELECT * from anaBasliklar ORDER BY id ASC;")
%>
<head>
<%
sLanguage=Request("selLanguage")
if sLanguage<>"" then Response.Write "<script language=JavaScript src='scripts/language/" & sLanguage & "/editor_lang.js'></script>"
%>
<%
if InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then
Response.Write "<script language=JavaScript src='scripts/editor.js'></script>"
else
Response.Write "<script language=JavaScript src='scripts/moz/editor.js'></script>"
end if
%>
<script>
function submitForm()
{
document.forms.Form1.elements.inpContent.value = oEdit1.getHTMLBody();
document.forms.Form1.submit()
}
</script>
</head>
<form action="urunEkle_UP.asp" method="POST" onsubmit="urunEkleBtn.disabled=true; submitForm();" enctype="multipart/form-data" id="Form1">
<table width="100%">
<tr>
<td width="15%">Ana Kategori</td>
<td>
<select size="1" name="anaKategoriId" onchange="ajaxKategoriler(this.value)">
<option value="" selected>Seçiniz</option>
<%
while NOT anaBaslikListesi.eof
set anaKategoriList = kayitSeti("SELECT * from anaKategoriler WHERE anaBaslikId LIKE '"&anaBaslikListesi("id")&"' ORDER BY anaKategoriAdi ASC;")
%>
<optgroup label="<% =anaBaslikListesi("kategoriAdi") %>"></optgroup>
<%
while NOT anaKategoriList.eof
%>
<option value="<% =anaKategoriList("id") %>"><% =anaKategoriList("anaKategoriAdi") %></option>
<%
anaKategoriList.movenext
wEnd
%>
<%
anaBaslikListesi.movenext
wEnd
%>
</select></td>
</tr>
<tr>
<td width="15%">Kategori</td>
<td>
<div id="kategoriIdDiv" style="width:100%"><font color="red">Lütfen Ana Kategori Seçiniz</font></div>
</td>
</tr>
<tr>
<td width="15%">Ürün Kodu</td>
<td><input type="text" name="urunKodu" size="20"></td>
</tr>
<tr>
<td width="15%">Ürün Adı</td>
<td><input type="text" name="urunAdi" size="20"></td>
</tr>
<tr>
<td width="15%">Fiyat</td>
<td><input type="text" name="fiyat" size="20" style="color:red; font-weight:bold;">
<select size="1" name="fiyatTuru">
<option value="">Fiyat Türü</option>
<option value="TL">TL</option>
<option value="€">€</option>
<option value="$" selected>$</option>
</select>
</td>
</tr>
<tr>
<td width="15%">Açıklama</td>
<td>
<pre id="idTemporary" name="idTemporary" style="display:none">
<%=Server.HTMLEncode(" ")%>
</pre>
<script>
var oEdit1 = new InnovaEditor("oEdit1");
oEdit1.cmdAssetManager="modalDialogShow('../assetmanager/assetmanager.asp?lang=<%=sLanguage%>',640,465)";
oEdit1.btnFlash=true;
oEdit1.btnMedia=true;
oEdit1.RENDER(document.getElementById("idTemporary").innerHTML);
</script>
<input type="hidden" name="inpContent" id="inpContent">
</td>
</tr>
<tr>
<td width="15%">Sıra</td>
<td><input type="text" name="sira" size="5" value="1"></td>
</tr>
<tr>
<td width="15%">Stok Durumu</td>
<td><select size="1" name="stokDurumu">
<option value="1" selected>Stokta Var</option>
<option value="0">Stokta Yok</option>
<option value="2">Gelecek</option>
</select></td>
</tr>
<tr>
<td width="15%">Vitrinde Göster</td>
<td><input type="checkbox" name="anasayfadaGoster" value="1"></td>
</tr>
<tr>
<td width="15%">Vitrin Sıra</td>
<td><input type="text" name="anaSayfaSira" size="5" value="1"></td>
</tr>
<tr>
<td width="15%">Ana Resim</td>
<td><input type="file" name="resim" size="30"></td>
</tr>
<tr>
<td width="15%"> </td>
<td><br>
<input type="submit" value=" Gönder " name="urunEkleBtn" style="cursor:hand;"></td>
</tr>
</table>
</form>
<% else %>
<!--#include file = "yetki_yok.asp"-->
<% end if %>
Urunekle_up.asp de şöyle;
<!--#include file="clsUpload.asp"-->
<!--#include file = "style.asp"-->
<!--#include file="formEnter.asp"-->
<%
if session("admin") = "ok" Then
Randomize
rastgeleSayi = rnd()
degisken = int(rastgeleSayi*1234567)&".jpg"
degisken2 = "k_"&int(rastgeleSayi*1234567)&".jpg"
Dim objUpload
Dim strFileName
Dim strPath
'Dim aciklama
'aciklama = Request("inpContent")
'aciklama = Objupload.fields("inpContent").value
Set objUpload = New clsUpload
strFileName = objUpload.Fields("resim").FileName
strPath = Server.MapPath("../resimler") & "\" & degisken
If Objupload.fields("anaKategoriId").value = "" Or Objupload.fields("kategoriId").value = "" Or Objupload.fields("urunAdi").value = "" Or Objupload.fields("fiyat").value = "" Or IsNumeric(Objupload.fields("fiyat").value) = false Then
mesajGoster("Lutfen alanlari dogru sekilde giriniz !")
else
set kayitGir = kayitSeti("SELECT * from urunler")
kayitGir.addnew
kayitGir("anaKategoriId") = Objupload.fields("anaKategoriId").value
kayitGir("kategoriId") = Objupload.fields("kategoriId").value
kayitGir("urunKodu") = Objupload.fields("urunKodu").value
kayitGir("urunAdi") = Objupload.fields("urunAdi").value
kayitGir("fiyat") = virgulDegistir(Objupload.fields("fiyat").value)
kayitGir("fiyatTuru") = Objupload.fields("fiyatTuru").value
kayitGir("aciklama") = Objupload.fields("inpContent").value
'kayitGir("garanti") = Objupload.fields("garanti").value
If objUpload.Fields("anasayfadaGoster").value = "1" Then
kayitGir("anasayfadaGoster") = "1"
Else
kayitGir("anasayfadaGoster") = "0"
End If
'If objUpload.Fields("firsatUrunu").value = "1" Then
'kayitGir("firsatUrunu") = "1"
'Else
kayitGir("firsatUrunu") = "0"
'End If
'If objUpload.Fields("indirimliUrun").value = "1" Then
'kayitGir("indirimliUrun") = "1"
'Else
kayitGir("indirimliUrun") = "0"
'End If
If trim(objUpload.Fields("sira").value) = "" Then
kayitGir("sira") = "1"
Else
kayitGir("sira") = "0"
End If
If objUpload.Fields("anaSayfaSira").value = "" Then
kayitGir("anaSayfaSira") = "1"
Else
kayitGir("anaSayfaSira") = "0"
End If
kayitGir("stokDurumu") = objUpload.Fields("stokDurumu").value
'If Not strFileName = "" then
objUpload("resim").SaveAs strPath
kayitGir("resim") = degisken2
kayitGir("resim2") = degisken
logoDraw(degisken)
resimKucult(degisken)
resimKucultKucuk(degisken)
'End If
kayitGir.update
response.redirect "urunListesi.asp"
End if
else
%>
<!--#include file = "yetki_yok.asp"-->
<% end if %>
-
If Objupload.fields("anaKategoriId").value = "" Or Objupload.fields("kategoriId").value = "" Or Objupload.fields("urunAdi").value = "" Or Objupload.fields("fiyat").value = "" Or IsNumeric(Objupload.fields("fiyat").value) = false Then
mesajGoster("Lutfen alanlari dogru sekilde giriniz !")
Kırmızı işaretli yerde ne var? neyi sorguluosun orda? -
ASP den pek anlamam bilmiyorum yani :) -
If Objupload.fields("anaKategoriId").value = "" Or Objupload.fields("kategoriId").value = "" Or Objupload.fields("urunAdi").value = "" Or Objupload.fields("fiyat").value = "" Then
mesajGoster("Lutfen alanlari dogru sekilde giriniz !")
Bu şekilde dene bi o alanı sildim -
Bu sefer ürün ekleniyor fakat resim eklenmiyor.Resim sunucuya kayıt edilmiyor fakat ürünün id sine göre galiba resim yolunu veritabanına kayıt ediyor.(/resimler/775725.jpg gibi) -
link var mı link versen daha ii anlayabilirim sırun nerede olduğunu -
Şu üsünü demene olarak ekledim verdiğiniz düzenlemeden sonra saffiro
< Bu mesaj bu kişi tarafından değiştirildi msaidb -- 19 Temmuz 2014; 16:15:11 > -
Asp mi kaldı artık Net e geçin. -
quote:
Orijinalden alıntı: Aske
Asp mi kaldı artık Net e geçin.
Hocam ben ne asp den ne de net den anlamam php ciyim ben Siteyi 3-4 yıl önce yaptirmistim yapan firma yıllık 80$ host parası alıyordu bende taşıdım bu sorun oldu
< Bu ileti mobil sürüm kullanılarak atıldı > -
klasöre yazma izni verdin mi onu bir kontrol et istersen. -
quote:
Orijinalden alıntı: Aske
klasöre yazma izni verdin mi onu bir kontrol et istersen.
Evet yazma izinleri var ama hala çözemedim
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X