Elimde hazır ücretsiz müşteri takip sistemi var. Bu sistem çok güzel çalışıyor fakat eklenen kayıt güncellerken teslim edildi yapılamıyor sadece. Bu yüzden nerede eksik varsa yardımınızı istiyorum sizden. Eminim küçük birşey ama göremiyorum işte
editrecord.asp dosyası
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9">
<META HTTP-EQUIV="content-language" content="TR">
<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/ariza.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="#000000"> </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">Arızalı Ürün Detayları</span></td>
</tr>
<tr bgcolor="#f7f7f7">
<td width="186" height="20" align="right"><strong>Ariza 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>Seri No</strong> : </td>
<td height="20"> </td>
<td height="20"><b><%=RsData("SeriNo")%></b></td>
</tr>
<tr>
<td height="20" align="right" bgcolor="#f7f7f7"><strong>Fiş 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")%> - <%=RsData("Marka")%></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>Hazır</OPTION>
<OPTION <% if RsData("Durum") = False Then Response.Write "Selected" %> value=False>Tamirde</OPTION>
</SELECT></td>
</tr>
<tr>
<td height="20" align="right"><strong>Geliş 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="#000000"> </td>
</tr>
</table>
<%
Else
Response.Redirect "default.asp?Error=1"
End if %>
</body>
</html>updaterecord.asp dosyası
<!-- #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
%> 