Ho scaricato lo script uploadedmylogin.zip
per proteggere una cartella con password.
Bene, non avendo la possibilità di modificare i privilegi della cartella sul server, utilizzo per altri db come connessione una dsn-less con provider JET e fin qui tutto ok, ho modificato il provider da Microsoft Access Driver (*.mdb) a Microsoft.Jet.OLEDB.4.0 e in lettura tutto ok; solo non gli piace più la sintassi del comando INSERT

sql1 = "insert into users (user,pass,email) values('"& user & "',"& PasswordTemp & ", '"& email & "')"

io uso di solito qualcosa del genere:



<%
Option Explicit
Dim objNewMail
dim msg
dim sql
dim pos
dim strConnString
Dim objConn
%>
<!--#include virtual="/cdovbs.inc"-->


<script LANGUAGE="VBScript" RUNAT="Server">
FUNCTION CompattaStr(s, finecar)
pos = InStr(s, "'")
While pos > 0
s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)
pos = InStr(pos + 2, s, "'")
Wend
CompattaStr="'" & s & "'" & finecar
END FUNCTION

sql = "insert into offline (Data,Nome,Cognome,indirizzo,citta,telefono,matricola,corso,anno,Email) "
sql= sql & "VALUES ("
sql = sql & "(date()),"
sql = sql & CompattaStr(Request("F_Nome"), ",")
sql = sql & CompattaStr(Request("F_Cognome"), ",")
sql = sql & CompattaStr(Request("F_indirizzo"), ",")
sql = sql & CompattaStr(Request("F_citta"), ",")
sql = sql & CompattaStr(Request("F_telefono"), ",")
sql = sql & CompattaStr(Request("F_matricola"), ",")
sql = sql & CompattaStr(Request("F_corso"), ",")
sql = sql & CompattaStr(Request("F_anno"), ",")

sql = sql & CompattaStr(Request("F_email"), ")")

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Password=;" & "User ID=Admin;" & "Data Source=D:\database.mdb;" & "Persist Security Info=True;"
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnString
objConn.Execute(sql)
objConn.Close

e va benissimo, c'è per caso qualcuno che mi può aiutare a miscelare???
O mi dice che apice o virgoletta c'è in più??? o in meno???
GRAZIE in anticipo e comunque.
Alex.