ASP - DB den sorgu yapılan değerden tekini silmek

Z

zaferdipi

New member
Katılım
24 May 2007
Mesajlar
84
Reaction score
0
Puanları
0
Aşşagıda verdiğim kodda bitiş tarihi girmeden de döndürmesini ama başaramıyorum. Yardım!

Tamamı ise: http://www.rapidshare.com/files/163634464/ariza_script.zip.html
Boyut: 114 KB

Kod: 
####FORM###
 <script type="text/javascript">
<!--

function disableTeslim(disable)
{
  if(document.forms["form1"].elements["Teslimat"].checked){
	  {
	    document.forms["form1"].elements.TeslimAlan.disabled = false
	    document.forms["form1"].elements.TeslimTarihi.disabled = false
	  }
  }

else
{
	  {
	    document.forms["form1"].elements.TeslimAlan.disabled = true
	    document.forms["form1"].elements.TeslimTarihi.disabled = true
	  }
}
}
//-->
</script>

<% If Session("AdminOk") = True Then %>
<!-- #include file=header.inc !-->
<!-- #include file=config.asp !-->
<%
FisNo = Request.QueryString("FisNo")
	 Set ConnData = Server.CreateOBject("ADODB.Connection")
	 Set RSData = Server.CreateObject("ADODB.RecordSet")
	 Yol = Server.MapPath("data/siparis.mdb")
	 ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
	 SQLStr = "Select * From arizatakip Where (FisNo Like'"& FisNo &"')"
	 RSData.Open SQLStr, ConnData, 3

%>
<style type="text/css">
<!--
.style1 {
	color: #10108C;
	font-weight: bold;
}
-->
</style>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
<td colspan="2"><img src="../images/logo.gif" width="215" height="72"></td>
  </tr>
  <tr>
    <td height="10" colspan="2" bgcolor="#3366FF"> </td>
  </tr>
  <tr>
    <td width="107" height="379" align="center" valign="top" bgcolor="#DAD3FE">
<!-- #include file=menu.asp !--></td>
    <td width="836" valign="top">
    <form action=updaterecord.asp method=post id=form1 name=form1>

<table width="500" border="0" cellspacing="0" cellpadding="0">
  <tr align="center" bgcolor="#DAD3FE">
    <td height="25" colspan="3"><span class="style1 nice">Sipariş Detayları</span></td>
  </tr>
  <tr bgcolor="#f7f7f7">
    <td width="186" height="20" align="right"><strong>Bant No </strong>: </td>
    <td width="23" height="20"> </td>
    <td width="291" height="20"><%=RsData("ArizaNo")%></td>
  </tr>
  <tr>
    <td height="20" align="right"><strong>Tahmini Süre</strong> : </td>
    <td height="20"> </td>
    <td height="20"><%=RsData("SeriNo")%></td>
  </tr>
  <tr>
    <td height="20" align="right" bgcolor="#f7f7f7"><strong>Sipariş No :
	</strong></td>
    <td height="20" bgcolor="#f7f7f7"> </td>
    <td height="20" bgcolor="#f7f7f7"><b><input type=hidden name=FisNo value=<%=RsData("FisNo")%>><%=RsData("FisNo")%></b></td>
  </tr>
  <tr>
    <td height="20" align="right"><strong>Ürün Adı :</strong></td>
    <td height="20"> </td>
    <td height="20"><%=RsData("UrunAdi")%></td>
  </tr>
  <tr bgcolor="#f7f7f7">
    <td height="20" align="right"><strong>Durum : </strong></td>
    <td height="20"> </td>
    <td height="20"><SELECT size=1 id=select name=Durum>
      <OPTION <% if RsData("Durum") = True  Then Response.Write "Selected" %> value=True>Nakliyesi Yapıldı</OPTION>
      <OPTION <% if RsData("Durum") = False  Then Response.Write "Selected" %> value=False>İmalat Bandında</OPTION>
    </SELECT></td>
  </tr>
  <tr>
    <td height="20" align="right"><strong>Başlama Tarihi : </strong></td>
    <td height="20"> </td>
    <td height="20"><%=RsData("GelisTarihi")%></td>
  </tr>
  <tr bgcolor="#f7f7f7">
    <td height="20" align="right"><strong>Bitiş Tarihi : </strong></td>
    <td height="20"> </td>
    <td height="20">
     <%if Trim(RsData("BitisTarihi")) <> "" Then 
	Response.Write Trim(RsData("BitisTarihi")) %>
     <INPUT type="hidden" id=file1 name="BitisTarihi" Value="<% Response.Write Trim(RsData("BitisTarihi"))%>">  	
     <%Else %>
     <INPUT type="textfield" id=file1 name="BitisTarihi" Value="<% Response.Write Trim(Left(Now(),10))%>"> (gg.aa.yyyy) 
     <% end if %>
    </td>
  </tr>
  <tr>
    <td align="right" valign="top"><strong>Açıklama : </strong></td>
    <td> </td>
    <td><TEXTAREA rows=4 cols=40 id=textarea name=Aciklama><%=RsData("Aciklama")%> </TEXTAREA></td>
  </tr>
 <% if RsData("Durum") = True  Then %> 
 <tr bgcolor="#f7f7f7">
	<td height="20" align="right"><b>Teslim Edildi :</b></td>
	<td height="20"> </td>
	<td><input type=checkbox name="Teslimat" onClick="disableTeslim()"></td>
  </tr>
  <tr>
	<td height="20" align="right"><b>Teslim Alan :</b></td>
	<td height="20"> </td>
	<td><input type="textfield" name="TeslimAlan" disabled></td>
  </tr>
  <tr bgcolor="#f7f7f7">
	<td height="20" align="right"><b>Teslim Tarihi :</b></b></td>
	<td height="20"> </td>
	<td><input type="textfield" name="TeslimTarihi" value="<%=Left(now(),10)%>" disabled> (gg.aa.yyyy)</td>
  </tr>
<% end if %>

  <tr bgcolor="#f7f7f7">
    <td align="right"  colspan=3>
		<table border=0 width=200 cellpadding=0 cellspacing=0 align=center>
		<tr><td><input name="Submit" type="submit" value="Güncelle"><input type=hidden name=Update value=1></td></form>
			<td><input name="button" type="submit" value="  İptal  " onClick=JavaScript:history.back(1)> </td>
			<td>    
				<form action=updaterecord.asp method=post>  
				<input type=hidden name=Update value=2>
				<input type=hidden name=FisNo value=<%=RsData("FisNo")%>>
				<input name="Submit" type="submit" value="   Sil   ">
			</td></form></tr></table>
	</td>
  </tr>
  <% If Request.QueryString("Err") = "1"  Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Eksik giriş yaptığınız için ürün güncellenemedi</font></td></tr>" %>
  <% If Request.QueryString("Err") = "2"  Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Bitis Tarihini yanlış yazdınız.</font></td></tr>" %>
  <% If Request.QueryString("Err") = "3"  Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Böyle Bir kayıt yok.</font></td></tr>" %>
  <% If Request.QueryString("Err") = "4"  Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Teslimat Bilgilerini Eksik Girdiniz.</font></td></tr>" %>
</table>
    
    
    
    </td>
  </tr>
  <tr>
    <td height="10" colspan="2" bgcolor="#3366FF"> </td>
  </tr>
</table>






<%
Else 
	Response.Redirect "default.asp?Error=1"
End if %>


</body>
</html>  


_____________________________

 
 
 
kIvILcImx 
Yüzbaşı



 
Mesaj: 591


Kod: 
#####CONFING#####

<!-- #include file=config.asp !-->
<% If Session("AdminOk") = True Then %>
<% 
	If Request.Form("Update") = 1 Then
		if vFisNo <> ""  and vBitisTarihi <> "" and vAciklama <> ""  and vDurum <> ""Then
		'	Response.Write vSeriNo & "<br>"
		'	Response.Write vFisNo & "<br>"
		'	Response.Write vUrunAdi & "<br>"
		'	Response.Write vGelisTarihi & "<br>"
		'	Response.Write vAciklama & "<br>"
			if isDate(vBitisTarihi) = True Then
				 Set ConnData = Server.CreateOBject("ADODB.Connection")
				 Set RSData = Server.CreateObject("ADODB.RecordSet")
				 Yol = Server.MapPath("data/ariza.mdb")
				 ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
				 SQLStr = "Select * From arizatakip Where (FisNo LIKE '"& vFisNo &"')"
				 RSData.Open SQLStr, ConnData, 1, 3
				 
				 RSData("Durum") = vDurum
				 RsData("BitisTarihi")= vBitisTarihi
				 RsData("Aciklama")= vAciklama
				 if vTeslimat = "on" Then
					if	vTeslimAlan <> "" and vTeslimTarihi <> "" and isDate(vTeslimTarihi) = "True" Then
						RSData("Teslimat") = "True"
						RsData("TeslimAlan")= vTeslimAlan
						RsData("TeslimTarihi")= vTeslimTarihi
					Else
						RSData.Update
						RsData.Close
						ConnData.Close
						Set RsData = Nothing
						Set ConnData = Nothing
						Response.Redirect "editrecord.asp?Err=4&FisNo="& vFisno 
					End if
				 End if
				 RSData.Update
				 RsData.Close
				 ConnData.Close
				 Set RsData = Nothing
				 Set ConnData = Nothing
				 Response.Redirect "database.asp?Ok=1"
			Else
				Response.Redirect "editrecord.asp?Err=2&FisNo="& vFisno 
			End if
		Else
			Response.Redirect "editrecord.asp?Err=1&FisNo="& vFisno 
			'Response.Write "Eksik Giriş Yaptınız <br><a href=JavaScript:history.back(1)>Geri Dön</a>"
		End If
	End If
	If Request.Form("Update") = "2"  and vFisNo <> "" Then
		Set ConnData = Server.CreateOBject("ADODB.Connection")
		Set RSData = Server.CreateObject("ADODB.RecordSet")
		Yol = Server.MapPath("data/ariza.mdb")
		ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
		SQLStr = "Select * From arizatakip Where (FisNo LIKE '"& vFisNo &"')"
		RSData.Open SQLStr, ConnData, 1, 3
		RSData.Delete
		RSData.Close
		ConnData.Close
		Set RsData = Nothing
		Set ConnData = Nothing
		Response.Redirect "database.asp?Sil=1"
	Else
		Response.Redirect "editrecord.asp?Err=3&FisNo="& vFisno 
	End If
	
		
Else 
	Response.Redirect "default.asp?Error=1"
End if 

%>
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst