locked
Preciso fazer um db para da suporte a atendimento on-line RRS feed

  • Pergunta

  • Bom dia amigos eu preciso fazer um documento em Access, para atendimento on-line, pois quando baixei os script não tem esse aquivo, mais como sou leigo no assunto não sei como fazer alguem poderia me da uma dica de como faze-lo

    vou posta a onde o script pede

    <%
    'Include this file on every page on your website, EXCEPT the livesupport pages
    'Checks to see if the user is wanted in a chat room by the admin and updates active users table
    'You will need to change DB path and name

    'Set the script timeout in seconds
    Server.ScriptTimeout = 90

    'Set Dimension Variables
    Dim strDataBasePath      'Holds the path to the database
    Dim cString                 'Holds the entire connection string
    Dim adoCon                'Holds the ado connection
    Dim SQL                    'Holds SQL statement
    Dim strIPAddress           'Holds the current users IP address
    Dim rs_Active_Users       'Record sheet for the active users table
    Dim chatwanted            'Holds 0 if admin doesnt to chat with them, 5 if the admin does
    Dim usrID                   'Holds user ID

    Set adoCon = Server.CreateObject("ADODB.Connection")

    '------------------------------------------------------------------------------------
    'Change this value to the path of the database
    strDataBasePath = "chat/suporte.mdb"
    '------------------------------------------------------------------------------------

    'Connection string for the database
    'If the following line does not work comment it out with a ' at the start of the line and uncomment another string
    cString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)

    'Uncomment this connection string if you are using Access Database 2000 or 2002
    'cString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDataBasePath)

    'Uncomment this connection string if you are using a DSN (note:  DSN is slower than the above connection strings)
    'cString = "DSN=NAME_OF_DSN"
    'Replace the NAME_OF_DSN with the DSN

    'Give the variables some values
    strIPAddress = Request.ServerVariables("REMOTE_ADDR")  'Set the variable to hold the value of IP address

    'Open the connection to the database path specified at top of page
    adoCon.Open cString

    'Open the active users record sheet
    Set rs_Active_Users = Server.CreateObject("ADODB.Recordset")

    'Create a new SQL statement to select the data from the row where users IP equals IP in database
    strSQL = "SELECT tblActiveUsers.* From tblActiveUsers WHERE IP='" & strIPAddress & "';"

    'Set the cursor and lock types
    rs_Active_Users.CursorType = 2
    rs_Active_Users.LockType = 3

    'Open the record sheets and execute the SQL statement
    rs_Active_Users.Open strSQL, CString

    'Check the database to see if the user whos online has a field in the database, if not create one
    If rs_Active_Users.EOF Then
     
    'Insert the users IP address into a new row in database
    strSQL = "INSERT INTO tblActiveUsers (IP) VALUES ('" & strIPAddress & "');"

    'Write data
    adoCon.Execute(strSQL)
     
    'If there is a record for the current user then update, dont create new
    Else

    'Set new SQL statement, set the last active field to the current time
    strSQL = "UPDATE tblActiveUsers SET tblActiveUsers.LastActive=Now() WHERE IP='" & strIPAddress & "';"

    'Write data
    adoCon.Execute(strSQL) 
    End If

    'Delete records older than 10 minuites, they are no longer active
    strSQL = "DELETE FROM tblActiveUsers WHERE tblActiveUsers.LastActive < Now() - 0.0070;"

    'Write data
    adoCon.Execute(strSQL)

    'Requery the record sheet to get data up to date
    rs_Active_Users.Requery

    'Close n' clean!
    rs_Active_Users.Close
    Set rs_Active_Users = Nothing
    adoCon.close

    'Open the table tblActiveUsers
    set rs_Active_Users = server.createobject("ADODB.RecordSet")

    'Create new SQL string
    StrSql="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';"
    'Open record sheet execute SQL string
    rs_Active_Users.open StrSql,cString,3,3

    'Take the values from the database field and put them in the variables
    chatwanted = rs_Active_Users("ChatRequest")
    usrID = rs_Active_Users("ID")

    'Close the record sheet and clean up
    rs_Active_Users.Close
    Set rs_Active_Users = Nothing
    %>

    <%
    'If the field chatwanted is set to something other than 0 Then open chat automaticaly
    IF chatwanted <> 0 THEN
    %>
    <script language="Javascript">
    pop1=window.open("chat/default.asp?q=1","pop1",
    "width=400, height=300, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, directories=no, status=no");
    </script>
    <%ELSE%>
    <%END IF%>

    O que esta em azul

    Desde ja agradeço a todos

    quinta-feira, 21 de agosto de 2008 13:54

Todas as Respostas

  • Olá,

     

    você precisa saber quais tabelas compõem o banco de dados, e os campos de cada tabela. Sem isto não dá para criar o MDB.

     

     

    terça-feira, 26 de agosto de 2008 01:38
    Moderador