Merhabalar;
Daha önce sorunsuz çalışan sistem. hosting değişikliği yaptıktan sonra çalışmıyor. İlgili dosya içeriği ekte'dir. Sayfayı çalıştırmaya kalktığımızda
500 Internal Server Error hatası almaktayız. Bu konuda nerede yanlış yapılıyor acaba?
ilgilniz için teşekkürler.
ilgil içerik kodu. sonuc.asp
<% @LANGUAGE="VBSCRIPT" %><% Option Explicit %>
<% Response.CacheControl = "No-Cache" %>
<% Response.ExpiresAbsolute=#Jan 1,1990 00:00:00# %>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Hesap Extresi</title>
</head>
<body bgcolor="#FFFFCC">
<%
dim user, pass
dim conn
dim path
dim oRs
dim sw
dim tak
Dim renk
dim sayac
renk="#FFFFFF"
user = ucase(trim(request("sicilno")))
pass = trim(request("sifre"))
sw = 0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "veritabaniadi"
Set oRs = Conn.Execute("SELECT * FROM kimlik WHERE ort_kod='" & user & "'")
Do while Not oRs.eof
if oRs("sif_re")= pass then
sw = 1
Exit do
else
oRs.Close
Conn.Close
set oRs=nothing
set Conn=nothing
response.redirect "hata.asp"
end if
sw = 0
Loop
if oRs.bof then
oRs.Close
Conn.Close
set oRs=nothing
set Conn=nothing
response.redirect "borcuyok.asp"
end if
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="content-type" content="text/html; charset=windows-1254">
<meta http-equiv="content-language" content="tr">
<TITLE>HESAP BİLGİLERİ</TITLE>
</HEAD>
<body text="#000000" alink="#FF0000" bgcolor="#FFFFCC">
<p style="margin: 1"><b><font face="Verdana" size="2"><font color="#FF0000">HESAP EKSTRESİ </font> </font><font face="Verdana" size="1">TAKSİT DÖNEMİ : <%=oRs("odeme_tar")%> Ekstre
Tarihi : <%=Date()%> <%=Time()%></font></b></p>
<p style="margin: 1"><b><font face="Verdana" size="1">SİCİL NO : <%=oRs("ort_kod")%> ESKO
KART NO : <%=oRs("kart_no")%> ADI SOYADI : <%=oRs("ad")%> <%=oRs("soyad")%> </font></b></p>
<p style="margin: 1"><b><font face="Verdana" size="1">MASRAF YERİ : <%=oRs("mas_yer")%>
<font color="#3366CC">Son Güncelleme Tarihi :<%=oRs("gun_tar")%></font><table border="0" cellspacing="1" width="672" id="AutoNumber1" height="18">
<tr>
<td width="44" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">ÇEK NO</font></td>
<td width="66" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">REF.NO</font></td>
<td width="17" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">A</font></p>
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">E</font></td>
<td width="151" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
MAĞAZA ADI </font></td>
<td width="46" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1">
<font face="Verdana" size="1" color="#FFFFFF"> İŞLEM TARİHİ</font></td>
<td width="50" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
İLK</font></p>
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
TAKSİT</font></td>
<td width="97" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
İŞLEM</font></p>
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
TUTARI</font></td>
<td width="30" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
TAK.</font></p>
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF"> SAY.</font></td>
<td width="90" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">TAKSİT TUTARI</font></td>
<td width="50" height="18" style="margin-top: 1; margin-bottom: 1" bgcolor="#0000FF">
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
SON </font></p>
<p style="margin-top: 1; margin-bottom: 1" align="center">
<font face="Verdana" size="1" color="#FFFFFF">
TAKSİT</font></td>
</tr>
<%
oRs.Close
Conn.Close
set oRs=nothing
set Conn=nothing
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "veritabaniadi"
Set oRs = Conn.Execute("SELECT * FROM kimlik WHERE ort_kod='" & user & "'")
Do while Not oRs.eof
%>
<tr>
<td align="right" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="44" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("cek_no")%></font> </td>
<td align="right" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="66" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("ref_no")%></font> </td>
<td align="center" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="17" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("ek_kod")%></font> </td>
<td align="left" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="151" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("mag_adsoy")%></font> </td>
<td align="left" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="46" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("cek_tar")%></font> </td>
<td align="left" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="50" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("ilk_tar")%></font> </td>
<td align="right" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="97" height="1"><font color="#000000" size="1" face="Tahoma"><%=formatcurrency(oRs("tak_top")/100,2)%></font> </td>
<td align="center" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="30" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("tak_say")%></font> </td>
<td align="right" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="90" height="1"><font color="#000000" size="1" face="Tahoma"><%=formatcurrency(oRs("tak_tutar")/100,2)%></font> </td>
<td align="left" bgcolor="#FADC8C" style="margin-top: 1; margin-bottom: 1" width="50" height="1"><font color="#000000" size="1" face="Tahoma"><%=oRs("son_tar")%></font> </td>
</tr>
<%
oRs.movenext
Loop
%>
</table>
<%
oRs.Close
Conn.Close
set oRs=nothing
set Conn=nothing
%>
<%
sayac = 0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "veritabaniadi"
Set oRs = Conn.Execute("SELECT * FROM kimlik WHERE ort_kod='" & user & "'")
Do while Not oRs.eof
sayac = sayac + 1
if sayac > 1 then
exit do
end if
%>
<p style="margin: 1"><b><font face="Verdana" size="1">TAKSİTLİ ALIŞVERİŞ TOPLAMI : <%=formatcurrency(oRs("taksit")/100,2)%> TOPLAM BİRİKEN AİDAT : <%=formatcurrency(oRs("topaidat")/100,2)%>
<p style="margin: 1"><b><font face="Verdana" size="1">GEÇEN AYDAN KALAN : <%=formatcurrency(oRs("devir")/100,2)%>
<p style="margin: 1"><b><font face="Verdana" size="1">KREDİ TAKSİTİ : <%=formatcurrency(oRs("kredi")/100,2)%> BİTİŞ TARİHİ : <%=oRs("krd_tar")%>
<p style="margin: 1"><b><font face="Verdana" size="1">SERMAYE TAKSİTİ : <%=formatcurrency(oRs("sermaye")/100,2)%>
<p style="margin: 1">
<b><font face="Verdana" size="1">ALIŞVERİŞ KREDİ TAKSİTİ : <%=formatcurrency(oRs("olum")/100,2)%>
<p style="margin: 1"><b><font face="Verdana" size="1">AYLIK AİDAT : <%=formatcurrency(oRs("aidat")/100,2)%>
<p style="margin: 1"><font color="#FF0000">KESİNTİ TOPLAMI : <%=formatcurrency(oRs("kestop")/100,2)%>
</font>
</font></b></font></b></font></b></b></font></b></font></b><p style="margin: 1"><b><font size="1" face="Verdana"><font color="#008000">2011 Yılı RİSTRUN+TEMETTÜ Toplamı : <%=formatcurrency(oRs("ristrun")/100,2)%> </font><font color="#FF0000">
<%
oRs.movenext
Loop
%>
<%
oRs.Close
Conn.Close
set oRs=nothing
set Conn=nothing
%>
</BODY>
</HTML>