ciao a tutti ho un problema volevo fare solo un piccolo controllo sul numero di lettere avessero le foto inviate ma la pagina mi da errore in linea 21
Qualcuno saprebbe come aiutarmi
<%
'on error resume next'
utente = request.Form("user")
pass = request.Form("pwd")
email = request.Form("email")
nome = request.Form("nome")
descrizione = request.Form("desc")
foto = request.Form("foto")
'Estrarre da foto solo il nome del file'
lughezza=len(foto)
for I=lughezza to 1 step-1
car=mid(foto, I, 1)
if car="/" then
foto=mid(foto,I+1)
I=1
else
lughezza = len(foto)
car = mid("foto",lunghezza,1) 'il problema e' qui'
End if
'Do While'
'Connessione al database'
set conn = Server.CreateObject("adodb.connection")
conn.open "dati"
'Preparare comando SQL (INSERT)'
comandoSQL = "INSERT INTO tabutenti (user,password,nome,email,descrizione,foto) VALUES ('"+ utente +"','"+ pass + "', '" + nome + "','"+ email + "', '" + descrizione + "', '" + foto + "')"
'Response.Write comandoSQL'
conn.execute (comandoSQL)
%>
<html>
<% if err.Number=0 Then%>
<table border=1>
<h3> Utente inserito correttamente </h3>
<h1> BELLA BOIA SEI DENTRO!!!!!!!!</H1>
<table border=1>
<tr>
<td><b>UTENTE:</b><% =utente%> <br></td>
<td><b>PASSWORD:</b><%=pass%> <br></td>
</tr>
<tr>
<td><b>EMAIL::</b><%=email%> <br></td>
<td><b>NOME:</b><%=nome%> <br></td>
<td><b>DESCRIZIONE:</b><%=descrizione%> <br></td>
<td><b>FOTO:</b><%=foto%> <br></td>
</tr>
</table>
<%else%>
<h3>Utente gia presente, scegliere un altro userid </h3>
<%=Err.Description%>
<a href=register.htm><h1>Torna a registrarti</h1></a>
<% End if
next
conn.close%>
</body>
</html>
grazie anticipatamente
