ürün fiyatlarını toplu güncelleme

sexycadi86izmir · 2010-11-28T09:37:09.0000000+03:00

arkadaşlar bir toplu update sayfası yapmak istiyorum yardım eremisiniz. bir ürün sayfasının fiyatlarını yeni gelen bir zam nedeniyle değiştirmek istiyorum bu zam fiyatlara % şeklinde yansımasını istiyorum diyelimki %20 zam geldi bütün ürünler %20 zamlansın istiyorum bunu nasıl yapabiliriz yardım edermisiniz.

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Bu Konudaki Kullanıcılar:

2 Misafir - 2 Masaüstü

5 sn

4
Cevap

0
Favori

510
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

arkadaşlar bir toplu update sayfası hazırladım burada bir hata veriyor sorunu nasıl hallederim yardım ederseniz çok sevinirim.

işte kodlar :

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_baglanti_STRING
MM_editCmd.CommandText = "UPDATE fiyat SET cap = ?, kalinlik = ?, fiyat = ? WHERE RC = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, 255, MM_IIF(Request.Form("cap"), Request.Form("cap"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, 255, MM_IIF(Request.Form("kalinlik"), Request.Form("kalinlik"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, 255, MM_IIF(Request.Form("fiyat"), Request.Form("fiyat"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "TEBRiKLER.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim kayitlar__MMColParam
kayitlar__MMColParam = "1"
If (Request.QueryString("grup") <> "") Then
kayitlar__MMColParam = Request.QueryString("grup")
End If
%>
<%
Dim kayitlar
Dim kayitlar_cmd
Dim kayitlar_numRows

Set kayitlar_cmd = Server.CreateObject ("ADODB.Command")
kayitlar_cmd.ActiveConnection = MM_baglanti_STRING
kayitlar_cmd.CommandText = "SELECT * FROM fiyat WHERE grup = ? ORDER BY RC ASC"
kayitlar_cmd.Prepared = true
kayitlar_cmd.Parameters.Append kayitlar_cmd.CreateParameter("param1", 5, 1, -1, kayitlar__MMColParam) ' adDouble

Set kayitlar = kayitlar_cmd.Execute
kayitlar_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
kayitlar_numRows = kayitlar_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<style type="text/css">

</style>
<link href="css.css" rel="stylesheet" type="text/css" />
</head>

<body>
<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
<table width="560" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" colspan="3" align="center" valign="middle" bgcolor="#99CC00"><strong><%=(kayitlar.Fields.Item("baslik").Value)%></strong></td>
</tr>
<tr>
<td width="132" height="30" align="center" valign="middle" bgcolor="#99CC00"><strong>ÇAP</strong></td>
<td width="132" height="30" align="center" valign="middle" bgcolor="#99CC00"><strong>KALINLIK</strong></td>
<td width="296" height="30" align="center" valign="middle" bgcolor="#99CC00"><strong>FİYAT</strong></td>
</tr>
<tr>
<td colspan="3" align="center" valign="top" bgcolor="#F2FFCC"><%
While ((Repeat1__numRows <> 0) AND (NOT kayitlar.EOF))
%>
<table width="560" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="122" align="center" valign="top" bgcolor="#F2FFCC"><label>
<input name="cap" type="text" id="cap" value="<%=(kayitlar.Fields.Item("cap").Value)%>" size="10" readonly="readonly" />
</label>
</td>
<td width="122" align="center" valign="top" bgcolor="#F2FFCC"><label>
<input name="kalinlik" type="text" id="kalinlik" value="<%=(kayitlar.Fields.Item("kalinlik").Value)%>" size="10" readonly="readonly" />
</label>
</td>
<td width="286" align="center" valign="top" bgcolor="#F2FFCC"><label>
<input name="fiyat" type="text" id="fiyat" value="<%=(kayitlar.Fields.Item("fiyat").Value)%>" />
</label>
</td>
</tr>
</table>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
kayitlar.MoveNext()
Wend
%></td>
</tr>
<tr>
<td height="40" colspan="3" align="center" valign="middle" bgcolor="#F2FFCC"><label>
<input name="button" type="submit" class="siyah" id="button" value="___DEĞİŞTİR___" />
</label></td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1" />
<input type="hidden" name="MM_recordId" value="<%= kayitlar.Fields.Item("RC").Value %>" />
</form>
</body>
</html>
<%
kayitlar.Close()
Set kayitlar = Nothing
%>