implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP
 ASPTurkiye.com Forum : ASP
Konu Konu: Microsoft VBScript runtime hata ’800a01c2 Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
MUDAREY
Yeni Üye
Yeni Üye


Kayıt Tarihi: 27-Mayıs-2006
Ülke: Türkiye
Gönderilenler: 2
Gönderen: 12-Şubat-2007 Saat 17:51 | Kayıtlı IP Alıntı MUDAREY

arkadaşlar asp ile aram iyi değil.bu hataları öldürmem lazım acilen.lütfen yardım edin...

portala girmek istediğimde bu hatayı alıyorum:


Microsoft VBScript runtime
hata '800a01c2'
Wrong number of arguments or invalid property assignment: 'DateFormat'
/portal/forum/functions/mods/modules/module_online_users.asp, satır 86



foruma girmek istediğimde ise bu hatayı alıyorum:

Microsoft VBScript runtime hata '800a01c2'
Wrong number of arguments or invalid property assignment: 'DateFormat'
/portal/forum/default.asp, satır 151



<%
'Online Users Box / todays vistors
Function ModuleOnlineUsers()
If blnActiveUsers = False Then Exit Function
If HideModule("OnlineUsers") Then Exit Function

Call ModuleTitle("Online Users", "OnlineUsers", "100%", 1)

Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td bgcolor=""" & strTableColour & """ class=""smText"">")
Response.Write(vbCrLf & " <b>" & strTxtTotalUsersOnline & ":</b> " & intOnlineUsers)
Response.Write(vbCrLf & " <br><br>")
Response.Write(vbCrLf & " " & strTxtWeHave & " <b>" & intTotalMembersOnline & "</b> " & strTxtLMembers & ", <b>" & intTotalSpydersOnline & "</b> spiders, <b>" & intTotalGuestsOnline & "</b> " & strTxtLGuestsAnd & " <b>" & intTotalAnonymousMembersOnline & "</b> " & strTxtLAnonymousUsersOnline & ".")
Response.Write(vbCrLf & " <br><br>")
Response.Write(vbCrLf & " <b>" & strTxtMembersOnline & ":</b><br>" & strMembersOnline & "<br>")
Response.Write(vbCrLf & " <br><br>")
Response.Write(vbCrLf & " <center>[ <a href=""" & strExtraForumPath & "active_users.asp"" class=""smLink"">" & strTxtViewFullList & "</a> ]")
Response.Write(vbCrLf & " <br>[" & strTxtBasedOnTheLast & " <b>10</b> " & strTxtMinutes & "]</center>")
Response.Write(vbCrLf & " <br>")
Response.Write(vbCrLf & " <center>" & strTxtYouAreVisitorNumber & " " & Clng(Session("VistorNumber")) & "</center>")
Response.Write(vbCrLf & " <br>")
Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

Dim intTotalTodaysVisitors

If strDatabaseType = "SQLServer" Then
strSQL = "EXECUTE wwfSPTodaysVisitors"
Else
strSQL = "SELECT " & strDBTable & "Author.Username, " & strDBTable & "Author.Author_ID, " & strDBTable & "Author.Group_ID FROM " & strDBTable & "Author "
strSQL = strSQL & "WHERE " & strDBTable & "Author.Last_visit > #" & DateAdd("d", -1, Now()) & "# "
strSQL = strSQL & "ORDER BY " & strDBTable & "Author.Last_visit DESC;"
End If

rsCommon.Open strSQL, adoCon, 1

intTotalTodaysVisitors = rsCommon.RecordCount

Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td bgcolor=""" & strTableColour & """ valign=""top"" class=""smText""><b>Todays Visitors (" & intTotalTodaysVisitors & "):</b></td>")
Response.Write(vbCrLf & " </tr>")
Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td bgcolor=""" & strTableColour & """ height=""100"" valign=""top"" class=""table""><span class=""smText"">")
Response.Write(vbCrLf & " <div class=""ScrollBox"">")

If rsCommon.EOF Then
Response.Write(vbCrLf & "None.")
Else
DO UNTIL rsCommon.EOF
Response.Write(vbCrLf & " <a href=""javascript:openWin('" & strExtraForumPath & "pop_up_profile.asp?PF=" & rsCommon("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scroll bars=1,resizable=1,width=590,height=425')"" class=""smLink"">")

If rsCommon("Group_ID") = 1 OR rsCommon("Group_ID") = 3 Then
Response.Write("<b>" & rsCommon("Username") & "</b></a>")
Else
Response.Write(rsCommon("Username") & "</a>")
End If

rsCommon.MoveNext
If NOT rsCommon.EOF Then Response.Write(", ")
Loop
End If

rsCommon.Close

Response.Write(vbCrLf & " </div>")
Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

If blnActiveUsers AND blnRecordStats Then

Call FormatTableTitleSub(Array(strTxtMostOnline & ": " & intMostOnlineUsers), 1)

Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td bgcolor=""" & strTableColour & """ class=""smText"">")
Response.Write(vbCrLf & " <table>")
Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td class=""smText""><b>" & intMostOnlineMembers & ":</b> Members</td>")
Response.Write(vbCrLf & " <td class=""smText""><b>" & intMostOnlineAnonymous & ":</b> Anonymous</td>")
Response.Write(vbCrLf & " </tr>")
Response.Write(vbCrLf & " <tr>")
Response.Write(vbCrLf & " <td class=""smText""><b>" & intMostOnlineGuests & ":</b> Guests</td>")
Response.Write(vbCrLf & " <td class=""smText""><b>" & intMostOnlineSpiders & ":</b> Spiders</td>")
Response.Write(vbCrLf & " </tr>")
Response.Write(vbCrLf & " </table>")
Response.Write(vbCrLf & " <br>")
Response.Write(vbCrLf & " <b>" & strTxtOccured & "</b>:<br>" & DateFormat(dtmMostOnlineDate, saryDateTimeData) & " at " & TimeFormat(dtmMostOnlineDate, saryDateTimeData))
Response.Write(vbCrLf & " </td>")
Response.Write(vbCrLf & " </tr>")

End If

Call ModuleBottom("100%")
End Function
%>



2. hatanın olduğu sayfanın bir bölümü:
Response.Write(vbCrLf & "   <table width=""" & strTableVariableWidth & """ border=""0"" cellspacing=""4"" cellpadding=""3"" align=""center"">")
Response.Write(vbCrLf & " <tr>")


Response.Write(vbCrLf & " <td class=""smText""> " & strTxtTheTimeNowIs & " " & DateFormat(now(), saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(now(), saryDateTimeData) & ".<br />")

'If this is not the first time the user has visted the site display the last visit time and date
If dtmLastVisitDate < CDate(Request.Cookies(strCookieName)("LV")) Then
Response.Write(strTxtYouLastVisitedOn & " " & DateFormat(Session("dtmLastVisit"), saryDateTimeData) & " " & strTxtAt & " " & TimeFormat(Session("dtmLastVisit"), saryDateTimeData) & ".")
End If

Yukarı Dön Göster MUDAREY's Özellikler Diğer Mesajlarını Ara: MUDAREY Ziyaret MUDAREY's Ana Sayfa
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.