delphiden asp ye

[ALUCARD]

arkadaşlar merhaba

elimde delphide kullandığım bi hesaplama yontemi var bunu asp ye çeviremedim bi türlü

Kod: Tümünü seç

function hesapla(Base: Integer; Username: string): string;
var
  S: string;
  A: Integer;
begin
  S := 'Error';
  if (Base <> 0) and (Username <> '') then
  begin
    A := Base * Length(Username) + Ord(Username[1]) * 666;
    S := IntToStr(A) + '-';
    A := Base * Ord(Username[1]) * 123;
    S := S + IntToStr(A) + '-';
    A := Base + (Length(Username) * Ord(Username[1])) * 6613;
    S := S + IntToStr(A);
  end;
  Result := S;
end;

[mkysoft]

Kod: Tümünü seç

private function hesapla(Base as Integer; Username as string) as string
Dim  S as string
dim  A as Integer
  S:="'Error" 
  if (Base <> 0) and (Username <> "") then 
    A = Base * Len(Username) + Ord(left(Username,1)) * 666 
    S = str(A) + '-'; 
    A = Base * Ord(left(Username,1)) * 123; 
    S = S + str(A) + '-'; 
    A = Base + (Len(Username) * Ord(left(Username,1))) * 6613; 
    S = S + Str(A); 
  end if 
  Result = S; 
end sub

sadece ord fonksiyonun tam karşılığını bilemiyorum. belkide aynıdır.

[ALUCARD]

peki hocam ben bunu nasıl kullanabiliri.

Kod: Tümünü seç

<%

private function hesapla(Base as Integer; Username as string) as string 
Dim  S as string 
dim  A as Integer 
  S:="'Error" 
  if (Base <> 0) and (Username <> "") then 
    A = Base * Len(Username) + Ord(left(Username,1)) * 666 
    S = str(A) + '-'; 
    A = Base * Ord(left(Username,1)) * 123; 
    S = S + str(A) + '-'; 
    A = Base + (Len(Username) * Ord(left(Username,1))) * 6613; 
    S = S + Str(A); 
  end if 
  Result = S; 
end sub 


%>


<% 
sayi=session("sayi")
kullanici("kullanici")
hesapla (sayi,kullanici)
repsone.write hasepla
 %>

şeklinde yazdım

ama

Kod: Tümünü seç

Hata Tipi:
Microsoft VBScript derleme hatası (0x800A03EE)
')' gerekli
/dene/hesapla.asp, line 13, column 30
private function hesapla(Base as Integer; Username as string) as string
-----------------------------^

şeklinde hata alıyorum..

[mkysoft]

asp'de satır sonunda ; olmaz. onları sil

Kod: Tümünü seç

<% 
sayi=session("sayi") 
kullanici=session("kullanici")  
repsone.write hesapla (sayi,kullanici)
 %>

bu şekilde olması gekir.