Microsoft VBScript runtime error '800a000d'
Type mismatch: 'parcala(...)'
Sorununu yaşayan arkadaşlar Admin klasörünün içindeki ekle.asp yi not defterinde açarak aşağıdaki kodun altına vermiş olduğum yeni kodu ekleyerek sorunlarını giderebilirler. En altta belirttiğim satırı düzenlemeyi unutmayınız!
Mevcut Kod ------------------------
Function Duzelt(duzgun)
if mid(duzgun,3,1)="." then
x=split(duzgun,".")
ay=x(1)
gun=x(0)
yil=x(2)
duzgun=temizle(ay) & "/" & temizle(gun) & "/" & yil
end if
duzelt=duzgun
End Function
Altına eklenecek yeni Kod ---------------------------
Function DuzeltYeni(duzeltildi)
duzeltildi=temizle(Month(Date)) & "/" & temizle(Day(Date)) & "/" & Year(Date)
DuzeltYeni=duzeltildi
End Function
Yapılması gereken düzeltme satırı ---------------------------
blgekle("Tarih")=DuzeltYeni(date)