Dreamweaver8 ve Access belası

[besaer]

Neden bir türlü localde çalışan kodlar hostta çalışmaz? Kodlar aşağıda, connections ve _notes klasörlerinide gönderdim hosta ama çalıştıramadım oysaki localde aslanlar gibi çalışmıştı. (table kodlarını aşağıda biraz kırptım fazlalık olmasın diye).

<!--#include virtual="/cilek/Connections/kupon_oku.asp" -->
<%
Dim listele_nick
Dim listele_nick_numRows

Set listele_nick = Server.CreateObject("ADODB.Recordset")
listele_nick.ActiveConnection = MM_kupon_oku_STRING
listele_nick.Source = "SELECT kupon_no, nick, sonuc, kazanc, misli FROM kupon_list WHERE nick='ziya';"
listele_nick.CursorType = 0
listele_nick.CursorLocation = 2
listele_nick.LockType = 1
listele_nick.Open()

listele_nick_numRows = 0
%>
<%
Dim kazanan__MMColParam
kazanan__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  kazanan__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim kazanan
Dim kazanan_numRows

Set kazanan = Server.CreateObject("ADODB.Recordset")
kazanan.ActiveConnection = MM_kupon_oku_STRING
kazanan.Source = "SELECT kupon_no, nick, sonuc, kazanc, misli FROM kupon_list WHERE sonuc = " + Replace(kazanan__MMColParam, "'", "''") + ""
kazanan.CursorType = 0
kazanan.CursorLocation = 2
kazanan.LockType = 1
kazanan.Open()

kazanan_numRows = 0
%>
<%
Dim kaybeden__MMColParam
kaybeden__MMColParam = "2"
If (Request("MM_EmptyValue") <> "") Then 
  kaybeden__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim kaybeden
Dim kaybeden_numRows

Set kaybeden = Server.CreateObject("ADODB.Recordset")
kaybeden.ActiveConnection = MM_kupon_oku_STRING
kaybeden.Source = "SELECT kupon_no, nick, sonuc, kazanc, misli FROM kupon_list WHERE sonuc = " + Replace(kaybeden__MMColParam, "'", "''") + ""
kaybeden.CursorType = 0
kaybeden.CursorLocation = 2
kaybeden.LockType = 1
kaybeden.Open()

kaybeden_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
listele_nick_numRows = listele_nick_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
kazanan_numRows = kazanan_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
kaybeden_numRows = kaybeden_numRows + Repeat3__numRows
%><style type="text/css">
<!--
body,td,th {
    font-family: Geneva, Arial, Helvetica, sans-serif;
}
body {
    background-color: #FFFFCC;
}
-->
</style>
<p align="center"><%=(listele_nick.Fields.Item("nick").Value)%>&nbsp;Nickli kullanıcıya ait Kuponların Detayları</p>
<div class="kupon">
  <table width="100%" border="0">
    <tr>
      <td><table width="100%" border="0">
        <tr valign="top">
          <td><table width="100%" border="0">
              <tr bgcolor="#FFB3B3">
                <td align="center">Oynanan Kuponlar </td>
              </tr>
              <tr bgcolor="#FFB3B3">

                  <% 
While ((Repeat1__numRows <> 0) AND (NOT listele_nick.EOF)) 
%>
                    <tr>
                        <td align="center"><%=(listele_nick.Fields.Item("kupon_no").Value)%></td>
                      <td align="center"><%=(listele_nick.Fields.Item("kazanc").Value)%></td>
                      <td align="center"><%=(listele_nick.Fields.Item("misli").Value)%></td>
                    </tr>
                    <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  listele_nick.MoveNext()
Wend
%>

                                </table></td>
              </tr>
            </table></td>
          <td><table width="100%" border="0">
              <tr bgcolor="#B9E3FF">
                <td align="center">Kazanan Kuponlar </td>
              </tr>

                  <% 
While ((Repeat2__numRows <> 0) AND (NOT kazanan.EOF)) 
%>
                    <tr>
                      <td align="center"><%=(kazanan.Fields.Item("kupon_no").Value)%></td>
                      <td align="center"><%=(kazanan.Fields.Item("kazanc").Value)%></td>
                      <td align="center"><%=(kazanan.Fields.Item("misli").Value)%></td>
                    </tr>
                    <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  kazanan.MoveNext()
Wend
%>

                                </table></td>
              </tr>
            </table></td>
          <td><table width="100%" border="0">
              <tr bgcolor="#ADFCF4">

                  </tr>
                  <% 
While ((Repeat3__numRows <> 0) AND (NOT kaybeden.EOF)) 
%>
                    <tr>
                        <td align="center"><%=(kaybeden.Fields.Item("kupon_no").Value)%></td>
                      <td align="center"><%=(kaybeden.Fields.Item("kazanc").Value)%></td>
                      <td align="center"><%=(kaybeden.Fields.Item("misli").Value)%></td>
                    </tr>
                    <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  kaybeden.MoveNext()
Wend
%>

                                </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    </tr>
  </table>
</div>

</p>
<%
listele_nick.Close()
Set listele_nick = Nothing
%>
<%
kazanan.Close()
Set kazanan = Nothing
%>
<%
kaybeden.Close()
Set kaybeden = Nothing
%>