şimdiden teşekkürler.
function DilCeviri(Kelime,Dil)
If Kelime="" Or IsNull(Kelime) Then
DilCeviri = "Dil Verisi Bulunamadı"
else
sql = "Select DT.Deger, D.Degisken From WM_DILDEGISKEN D LEFT OUTER JOIN WM_DILDATA DT ON D.id = DT.Degisken and DT.Dil="& session("SiteDili") &""
Set DilVerisi = baglan.Execute(sql)
If (DilVerisi.eof And DilVerisi.Bof) Then
DilCeviri = "İlgili Değer Girilmemiş"
Else
DilCeviri = Kelime
Do While Not DilVerisi.EOF
If DilVerisi("Deger")="" Or IsNull(DilVerisi("Deger")) Then
else
DilCeviri = Replace(DilCeviri,DilVerisi("Degisken"),DilVerisi("Deger"))
End if
DilVerisi.MoveNext:Loop
End If
DilVerisi.close()
Set DilVerisi= Nothing
End if
end Function