Usando tabelas dBase com ASP

[rochinha]

Amiguinhos,

Eis um exemplo simples de uso de uma tabela dBase em um site que tenha suporte Á ASP.

Código: Selecionar todos

<%
    ' 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 
%>