Funzione CAPICOM

[Rafio]

Potrei tradurre questa funzione facendo una bella Public Sub tra i tag <% %>?
Se si... chi mi aiuta???

<script language="vbscript">
	function Lettura()
		On Error Resume Next 
		Dim count
		dim Certificato, conteggio, tutto
		Dim LunghezzaCertificato, uscita
		Dim st,i,j
		certificato=""
		conteggio=0
		set st = CreateObject("CAPICOM.Store")
		st.Open 4
		conteggio = st.certificates.count
		if conteggio >= 1 Then
			Certificato= st.Certificates(1).subjectName
			tutto=st.Certificates(1).subjectName
			LunghezzaCertificato= len(trim(Certificato))
			j=0
			for i = 1 to LunghezzaCertificato
				if mid(Certificato,i,1) = "/" then
					if j>0 then
						exit for
					end if
					j=i
				end if
			next
			Certificato=mid(Certificato,i+1,16)
			window.location.href="ok.asp"
		else
			msgbox "Smart Card Non Presente" , 16 , "Attenzione!"
			top.window.location.href="Main.htm"
		end if
	end function        

</script>

[Santino83_02]

function Lettura()
		On Error Resume Next 
		Dim count
		dim Certificato, conteggio, tutto
		Dim LunghezzaCertificato, uscita
		Dim st,i,j
		certificato=""
		conteggio=0
		set st = Server.CreateObject("CAPICOM.Store")
		st.Open 4
		conteggio = st.certificates.count
		if conteggio >= 1 Then
			Certificato= st.Certificates(1).subjectName
			tutto=st.Certificates(1).subjectName
			LunghezzaCertificato= len(trim(Certificato))
			j=0
			for i = 1 to LunghezzaCertificato
				if mid(Certificato,i,1) = "/" then
					if j>0 then
						exit for
					end if
					j=i
				end if
			next
			Certificato=mid(Certificato,i+1,16)
			window.location.href="ok.asp"
                        response.redirect("ok.asp")
		else
			response.write "Smart Card Non Presente"
			
		end if
	end function

[Rafio]

Mmmmmm.... un pò più di impegno??
La parte critica è

   conteggio = st.certificates.count
      if conteggio >= 1 Then
         Certificato= st.Certificates(1).subjectName
         ....

non riesco a leggere il certificato....

[yro]

Originariamente inviato da Rafio
Mmmmmm.... un pò più di impegno??

cè chi perde tempo per aiutarti... prova a metterci anche tu un po di impegno no?

[Rafio]

Solitamente prima di chiedere aiuto qui ci metto prima tanto del mio...
Comunque stavo scherzando... ci mancherebbe altro...

[Santino83_02]

Originariamente inviato da Rafio
Solitamente prima di chiedere aiuto qui ci metto prima tanto del mio...
Comunque stavo scherzando... ci mancherebbe altro...

la funzione adesso è asp compatibile, se non ti si legge il certificato, sinceramente, sono problemi tuoi, non della funzione

[Rafio]

Va bene... grazie lo stesso. Ciao.