localde sorunsoz çalismakta olan bu sayfa hostta bu hatayi veriyor sorunu bir türlü çözemedim yardimlarinizi bekliyorum..
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'HTMLEncode'
/admin_firmalar.asp, line 199
admin_firmalar.asp sayfasi bu
<% @Language="VBScript" CodePage="1254" %>
<!--#INCLUDE FILE="VT_Baglan.asp"-->
<!--#INCLUDE FILE="admin_session.asp"-->
<!--#INCLUDE FILE="ADOVBS.inc"-->
<%
Set Kategori_Info = Server.CreateObject( "ADODB.Recordset" )
Kategori_Info.ActiveConnection = Baglanti
Kategori_Info.CursorType= adOpenStatic
Kategori_Info.Open " SELECT * FROM firma_rehberi_ana_kategori Order by kategori_adi"
'------------------------------
If Request("do" )="00" AND Request("do" )<>"" Then
Set firmaliste = Server.CreateObject( "ADODB.Recordset" )
firmaliste.ActiveConnection = Baglanti
firmaliste.CursorType= adOpenStatic
firmaliste.Open "Select * From firma_rehberi_kayitlar Order by ktarih DESC"
End If
'------------------------------
Function kategori_yaz(kat )
SQL_Kategori3_Info= " SELECT * FROM firma_rehberi_ana_kategori Where id="&firmaliste("ana_kategori_id" )&" "
SET Kategori3_Info=Baglanti.Execute(SQL_Kategori3_Info )
If not Kategori3_Info.EOF or not Kategori3_Info.BOF Then
kategori_yaz = Kategori3_Info("kategori_adi" )
End If
End Function
'------------------------------
If Request("do" )="01" AND Request("id" )<>"" Then
Set firmaliste = Server.CreateObject( "ADODB.Recordset" )
firmaliste.ActiveConnection = Baglanti
firmaliste.CursorType= adOpenStatic
firmaliste.Open " SELECT * FROM firma_rehberi_kayitlar Where ana_kategori_id="&Request("id" )&" Order by ktarih DESC"
SQL_Kategori3_Info= " SELECT * FROM firma_rehberi_ana_kategori Where id="&Request("id" )&" "
SET Kategori3_Info=Baglanti.Execute(SQL_Kategori3_Info )
End If
'------------------------------
If Request("do" )="02" AND Request("id_kno" )<>"" Then
Set firmaliste = Server.CreateObject( "ADODB.Recordset" )
firmaliste.ActiveConnection = Baglanti
firmaliste.CursorType= adOpenStatic
firmaliste.Open "Select * From firma_rehberi_kayitlar WHERE id="&Request("id_kno" )&" Order by ktarih DESC"
End If
'------------------------------
If Request("do1" )="f__Sil" AND Request("sil_id" )<>"" Then
Set RSSil = Server.CreateObject("ADODB.RecordSet" )
RSSil.ActiveConnection=Baglanti
RSSil.open "DELETE From firma_rehberi_kayitlar Where id="&Request("sil_id" )&""
Response.redirect ("?do="&Request("do" )&"&id="&Request("id" )&"&syf="&Request("syf" )&"" )
End If
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254" />
<meta http-equiv="Content-Language" content="tr">
<title>Firmalar</title>
<link rel="stylesheet" type="text/css" href="Stiller.css">
<style type="text/css">
.style1 {
text-align: left;
background-color: #E6E6E6;
}
.style2 {
text-align: center;
background-color: #AEC9E3;
color: #FFFFFF;
}
.style3 {
border-collapse: collapse;
}
.style4 {
text-align: left;
}
.style5 {
text-align: center;
}
.newStyle1 {
font-family: Arial, Helvetica, sans-serif;
font-size: 11px;
background-color: #E6E6E6;
border-style: solid;
border-width: 1px;
border-color: #000000;
}
.style6 {
text-align: right;
}
.style7 {
border-width: 0px;
}
.style8 {
text-align: center;
background-color: #E6E6E6;
font-weight: bold;
}
.style9 {
color: #808080;
}
.style10 {
vertical-align: bottom;
}
</style>
<script type="text/javascript">
<!--
function FP_jumpMenu(el,frm,sel ) {//v1.0
var href=el.options[el.selectedIndex].value; if(sel ) el.selectedIndex=0;
if('_new'==frm ) open(href ); else eval(frm+".'"+href+"'" );
}
// -->
</script>
<SCRIPT LANGUAGE="JavaScript">
function sil_onay( ) {
return confirm ('UYARI: Silmek Istediginizden Emin Misiniz ? !!!' )
}
</SCRIPT>
</head>
<body style="background-color: #FFFFFF">
<br />
<table style="width: 975px" cellpadding="0" align="center">
<tr>
<td class="style1" style="height: 29px"><strong><form method="post">
Firma Kategori Listesi :
<select name="ana_kategori_id" class="newStyle1">
<option selected="selected" value="#">Seç</option>
<% Do While Not Kategori_Info.EOF %>
<option value="?id=<%=Kategori_Info("id" )%>&do=01" > <%=Kategori_Info("kategori_adi" )%></option>
<%
Kategori_Info.MoveNext
Loop
Kategori_Info.Close
%>
</select>
</strong>
</td>
</form>
<td class="style8" style="height: 29px"><% If Request("do" )=01 Then %><%=Kategori3_Info("kategori_adi" )%><% End If %></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td colspan="2">
<table style="width: 100%" cellpadding="0" align="center">
<tr>
<td class="style2" style="height: 30px"><strong>No</strong></td>
<td class="style2" style="height: 30px"><strong>Kayit</strong></td>
<td class="style2" style="height: 30px; width: 250px;"><strong>Firma Adi</strong></td>
<td class="style2" style="height: 30px"><strong>Sehir</strong></td>
<td class="style2" style="height: 30px"><strong>Telefon</strong></td>
<td class="style2" style="height: 30px"><strong>Yetkili</strong></td>
<td class="style2" style="height: 30px"><strong>Kategori</strong></td>
<td class="style2" colspan="2" style="height: 30px"><strong>Kontrol</strong></td>
<td class="style2" style="height: 30px"><strong>Sil</strong></td>
</tr>
<%
i=0
'-----------------------------------------------------------------------------------------------------------------------
If firmaliste.EOF Then
msg="<b>[ Veritabaninda Kayit Yok. ]</b>"
Else
syf=trim(Request("syf" ) )
If syf="" Then syf=1
firmaliste.pagesize=30
firmaliste.AbsolutePage=syf
WHILE not firmaliste.eof and rowcount < firmaliste.pagesize rowcount=rowcount+1
'-----------------------------------------------------------------------------------------------------------------------
If i mod 2 then RENK="#e4e4e4" Else RENK="#f9f9f9" End If
i=i+1
%>
<tr bgcolor="<%=RENK%>
" onMouseOver="this.style.backgroundColor='#FFCC00';" onMouseOut="this.style.backgroundColor='<%=RENK%>';">
<td class="style5" style="height: 25px"><%=firmaliste("id" )%></td>
<td class="style5" style="height: 25px"><%=firmaliste("ktarih" )%></td>
<td class="style4" style="height: 25px; width: 250px;"> <%=Server.HTMLEncode(firmaliste("firma_adi" ) )%></td>
<td class="style5" style="height: 25px"><%=firmaliste("sehir" )%></td>
<td class="style5" style="height: 25px"><%=Server.HTMLEncode(firmaliste("telefon" ) )%></td>
<td class="style4" style="height: 25px"> <%=firmaliste("yetkili" )%></td>
<td class="style5" style="height: 25px"><%=kategori_yaz(kat )%></td>
<td class="style5" style="height: 25px">
<a href='admin_firma_onay.asp?id=<%=firmaliste("id" )%>'>Edit</a></td>
<td class="style5" style="height: 25px">
<a href='admin_firma_haber_kontrol.asp?frm_id=<%=firmaliste("id" )%>&uye_id=<%=firmaliste("uye_id" )%>'>Haber</a></td>
<td class="style5" style="height: 25px">
<a href="?do=<%=Request("do" )%>&do1=f__Sil&id=<%=Request("id" )%>&sil_id=<%=firmaliste("id" )%>">
<img alt="" src="images/haber_del.gif" width="13" height="13" class="style7"></a> </td>
</tr>
<%
firmaliste.MoveNext
WEND
End If
%>
</table>
</td>
</tr>
<tr>
<td class="style5" colspan="2"><%=msg%></td>
</tr>
<tr>
<td colspan="2">
<table style="width: 100%" cellpadding="2" align="center" class="style3">
<tr>
<td class="style4" style="width: 488px">
<% IF firmaliste.pagecount >0 AND Request("do" )<>"02" THEN %>
<select size="1" onChange="FP_jumpMenu(this,'window',false )" id="SAYFALAMA" name="SAYFALAMA" class="newStyle1">
<option value="#">Sayfa No</option>
<%
for i=1 to firmaliste.pagecount
%>
<option value="?syf=<%=i%>&do=<%=Request("do" )%>&id=<%=Request("id" )%>"><%=i%></option>
<% next %>
<% End IF %>
</select> <%= Request("syf" ) %>
</td>
<td class="style6">Toplam Kayit:<%=firmaliste.recordcount%><% firmaliste.close %>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2">
<hr style="height: 1px" class="style9">
</td>
</tr>
<tr>
<td colspan="2">
<form method="post" action="?do=02">
<strong>
<img alt="" src="images/kfind.png" class="style10" width="22" height="22">Firma Kayit No :</strong>
<input name="id_kno" type="text" class="newStyle1" style="width: 60px" value='<%=Request("id_kno" )%>'>
<input name="Submit1" type="submit" value="ok" class="newStyle1">
(Firma Kayit Numarasini Yazarak Kaydi Listeleyebilirsiniz. )</form>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
</body>
</html>
<%
Baglanti.Close
Set Baglanti = Nothing
%> yardimci olursaniz sevinirim..