04 Ago 2013 18:10
<%
' Função pra gerar um numero aleatorio de 0 a um determinado numero
' podendo ou nao ser retornado apenas o valor inteiro.
'------------------------------------------------------------
Function Random(n,t)
Randomize
If t = 1 Then
Random = Fix(Rnd*n)
Else
Random = (Rnd*n)
End If
End Function
%>
<%
pos = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder)& "\" & lcase(formaction))
db_dir = left(request.servervariables("path_translated"), pos-1 )
db = db_dir & ".\"
' Campos Recuperados
nome = replace(request.QueryString("UserEmail") , "'", "''")
senha = replace(request.QueryString("UserPass") , "'", "''")
pagina = "http://www.5volution.com"
codigo = day(date)&month(date)&year(date)&"S"&Random(1000000000000000,15)&"M"&month(date)&year(date)&minute(date)
nivel = "1" 'Nivel 1-Visitante 2-Cliente 3-Eu
set cnn= server.createobject("adodb.connection")
cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ="& db &";"
cnn.execute("INSERT INTO acessos(nome,senha,pagina,codigo,nivel)" & _
"VALUES ('"&_
nome&"','"&_
senha&"','"&_
pagina&"','"&_
codigo&"','"&_
nivel&"')" )
Set cnn = Nothing
Set Mail = Nothing
%>