<%
dim strUser
strUser=request.form("user")
dim strCode1
strCode1=request.form("code1")
dim strCode2
strCode2=request.form("code2")
dim strMail
strMail=request.form("mail")
if (strUser<>"") AND ( strCode1<>"") AND ( strCode2<>"") AND (strCode1=strCode2) AND (strMail<>"") then
'Apertura del database
dim strCodedb
strCodedb="innovatel"
dim strOutput
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("users.mdb")
strConn=strConn & ";pwd=" & strCodedb
Conn.Open (strConn)
strSql = "SELECT * FROM codici WHERE userName='"&strUser&"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, conn ,3,3
'Controllo il recordset
if rs.eof then
rs.addnew
rs(1)=strUser
rs(2)=cripta(strCode1,Key)
rs(3)=strMail
rs.update
strOutput ="Memorizzazione effettuata con successo"
else
strOutput ="User giˆ utilizzato."
end if
'chiudo il database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
response.write strOutput
response.end
end if
%>
Inserimento Utenti