Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Bueno cariño... =}
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Elizabeth Malváez
New Member

Mexico
71 Posts
Mensajes - 05 Dec 2001 :  04:28:08  Ver Perfil  Enviar Email

Hola chiquito ¿cómo estas?:


Dirás que te doy mucha lata... y no me digas "haaaaaaay niña" porque siento feito :(

Mira lindo, ya funciona bien el chat, sólo que si hay dos o más compañeritas conmigo chateando me marca éste error por todos lados, y digo por todos lados porque el chat funciona con frames, una para la lista de usuarios, otra para los mensajes y una más para escribir y enviar mensajes.


Tipo de error:
Microsoft JET Database Engine (0x80004005)
No se pudo usar ''; el archivo ya está en uso.
/chat/Config.asp, line 68


Y bueno... este es el config.asp

'************************
'CONFIG.ASP

<%

dim DefaultFont, DefaultFace, DefaultSize, DefaultAttr, DefaultColor, DefaultFontClose
dim ErrorFont, ErrorFace, ErrorSize, ErrorAttr, ErrorColor, ErrorFontClose
dim SystemFont, SystemFace, SystemSize, SystemAttr, SystemColor, SystemFontClose
dim HomeFont, HomeFace, HomeSize, HomeAttr, HomeColor, HomeFontClose
dim UserListFont, UserListFace, UserListSize, UserListAttr, UserListColor, UserListFontClose
dim UserStatusFont, UserStatusFace, UserStatusSize, UserStatusAttr, UserStatusColor,

UserStatusFontClose
dim tmpHomeAttr, tmpDefaultAttr, tmpErrorAttr, tmpSystemAttr, tmpUserListAttr, tmpUserStatusAttr
dim TalkBackColor, UserListBackColor, SendDialogBackColor, FrameBorderColor, DefaultBackColor
dim ChatDB, rsFunc
dim MyQ
dim MaxIdleTime, TalkRefreshRate, UsersRefreshRate
dim ArchiveDays
dim TextBoxColor, TextBoxFontColor

Const adOpenForwardOnly = 0
Const adLockOptimistic = 3
Const adCmdTable = &H0002

MyQ = chr(34)

' Graphic images used:
' ChatLogin.gif
' ChatLogout.gif
' ChatUpdate.gif
' LiquidChatLogo.gif
' Plus all the smileys :)

' Database = Access97 "LiquidChat2.mdb"

' Time idle before user is erased from Users list
MaxIdleTime = 20

' Refresh rates (in seconds) for the Message Display Frame and User List Frame
TalkRefreshRate = 4
UsersRefreshRate = 7

' Days to save messages in Database before automatic deletion
ArchiveDays = 2

' How Long to wait to determine to delete inactive custom rooms
RoomLifeSpan = 20

' Database connection string
' Change the Path to fit your directory configuration
Sub OpenDB
Set ChatDB = Server.CreateObject("ADODB.Connection")
ChatDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("LiquidChat2.mdb")
end sub

' set the HTML font configurations here
' Attr options are "Normal", "Bold", "Italic", "BoldItalic"
' The scripts will take care of the rest

DefaultFace = "verdana"
DefaultSize = 2
DefaultColor = "black"
DefaultAttr = "Normal"

ErrorFace = "Courier"
ErrorSize = 2
ErrorColor = "Red"
ErrorAttr = "Bold"

SystemFace = "Courier"
SystemSize = 2
SystemColor = "Blue"
SystemAttr = "Normal"

HomeFace = "verdana"
HomeSize = 2
HomeColor = "003366"
HomeAttr = "Bold"

UserListFace = "Courier"
UserListSize = 2
UserListColor = "Black"
UserListAttr = "Bold"

UserStatusFace = "Courier"
UserStatusSize = 2
UserStatusColor = "003366"
UserStatusAttr = "Normal"

' background colors for the 3 frames used
TalkBackColor = "white"
UserListBackColor = "a0a0c0"
SendDialogBackColor = "a0a0c0"

' background color for the default page
DefaultBackColor = "white"

' color for Frameborder
FrameBorderColor = "Blue"

' background color for textboxes
TextBoxColor = "a0a0c0"
TextBoxFontColor = "Black"

' *****************************************
' *** DO NOT MODIFY ANYTHING BELOW THIS ***
' *****************************************
DefaultFont = "<font face=" & MyQ & DefaultFace & MyQ & " color=" & DefaultColor & " size=" &

DefaultSize & ">"
tmpDefaultAttr = DefaultAttr
DefaultFont = DefaultFont & Addattr(tmpDefaultAttr)
tmpDefaultAttr = DefaultAttr
DefaultFontClose = ComputeClose(tmpDefaultAttr)
ErrorFont = "<font face=" & MyQ & ErrorFace & MyQ & " color=" & ErrorColor & " size=" & ErrorSize

& ">"
tmpErrorAttr = ErrorAttr
ErrorFont = ErrorFont & Addattr(tmpErrorAttr)
tmpErrorAttr = ErrorAttr
ErrorFontClose = ComputeClose(tmpErrorAttr)
SystemFont = "<font face=" & MyQ & SystemFace & MyQ & " color=" & SystemColor & " size=" &

SystemSize & ">"
tmpSystemAttr = SystemAttr
SystemFont = SystemFont & Addattr(tmpSystemAttr)
tmpSystemAttr = SystemAttr
SystemFontClose = ComputeClose(tmpSystemAttr)
HomeFont = "<font face=" & MyQ & HomeFace & MyQ & " color=" & HomeColor & " size=" & HomeSize &

">"
tmpHomeAttr = HomeAttr
HomeFont = HomeFont & Addattr(tmpHomeAttr)
tmpHomeAttr = HomeAttr
HomeFontClose = ComputeClose(tmpHomeAttr)
UserListFont = "<font face=" & MyQ & UserListFace & MyQ & " color=" & UserListColor & " size=" &

UserListSize & ">"
tmpUserListAttr = UserListAttr
UserListFont = UserListFont & Addattr(tmpUserListAttr)
tmpUserListAttr = UserListAttr
UserListFontClose = ComputeClose(tmpUserListAttr)
UserStatusFont = "<font face=" & MyQ & UserStatusFace & MyQ & " color=" & UserStatusColor & "

size=" & UserStatusSize & ">"
tmpUserStatusAttr = UserStatusAttr
UserStatusFont = UserStatusFont & Addattr(tmpUserStatusAttr)
tmpUserStatusAttr = UserStatusAttr
UserStatusFontClose = ComputeClose(tmpUserStatusAttr)

Sub CloseDB
ChatDB.close
set ChatDB = Nothing
end sub

' Called function to clean SQL String
Function RemoveJunk(InputString)
InputString = replace(server.HTMLEncode(InputString), chr(13), "<br>")
InputString = replace(InputString, "'", "''")
RemoveJunk = InputString
End Function

Function ParseQuotes(InputString)
InputString = replace(InputString, "'", "''")
ParseQuotes = InputString
End Function

Function ComputeClose(CloseAttr)
if CloseAttr = "Normal" then CloseAttr = "</font>"
if CloseAttr = "Bold" then CloseAttr = "</b></font>"
if CloseAttr = "Italic" then CloseAttr = "</i></font>"
if CloseAttr = "BoldItalic" then CloseAttr = "</i></b></font>"
ComputeClose = CloseAttr
End Function

Function AddAttr(InputAttr)
if InputAttr = "Normal" then InputAttr = ""
if InputAttr = "Bold" then InputAttr = "<b>"
if InputAttr = "Italic" then InputAttr = "<i>"
if InputAttr = "BoldItalic" then InputAttr = "<b><i>"
AddAttr = InputAttr
End Function

Function GetUserName(UID)
if UID <> "" then
rsSQL = "Select UserName, UserID from Users where UserID=" & UID
set rsFunc = ChatDB.Execute(rsSQL)
if not rsFunc.EOF then
GetUserName = rsFunc("UserName")
end if
end if
End Function

%>

*********************

Gracias corazón!!

Ely.


(=^.^=)

asharak
Junior Member


210 Posts
Posted - 05 Dec 2001 :  23:50:04  Ver perfil  Enviar e-mail  Enviar asharak un Mensaje Yahoo!e
Hola Ely, no te enfades por lo de ayayay, peque, es solo una expresion ...

Una pregunta:
¿Has probado antes el chat alguna vez sin que te marcara este error (con varios usuario) y ha funcionado, o ha fallado desde el primer momento?

Puede que hayas abierto la base de datos desde access directamente en tu equipo y que entonces Access haya bloqueado la BD, cierra access mientras usas el chat.

Tal vez no sea este el error, puede que en algun otro momento de la aplicacion abras una conexion y despues se te olvide cerrarla, o abras un recordset para insertar y despues se te olvide hacer el update y el close ...
Estos pueden ser motivos de que la BD se quede bloqueada.

En el codigo no veo ningun error en un primer vistazo, pero supongo que habra mas archivos ASP, ten cuidado sobre todo en las inserciones.

Te mando un beso princesa ;)

Nota: creo que me ha entrado un virus o q algun haker esta intentando usar mi equipo como puente para hacer sus fechorias, porque me estan pasando cosas raras mientras intento contestarte ... no puedo acceder bien a casi nada y estoy un poco mosqueado.

Voy a ver si lo arreglo, si mandas un mensaje y ves que no contesto es que he tenido algun problema, no que no quiera contestarte ¿ok mi pequeña?

otor beso

asharakInicio Pagina

asharak
Junior Member


210 Posts
Posted - 05 Dec 2001 :  23:50:15  Ver perfil  Enviar e-mail  Enviar asharak un Mensaje Yahoo!e
Hola Ely, no te enfades por lo de ayayay, peque, es solo una expresion ...

Una pregunta:
¿Has probado antes el chat alguna vez sin que te marcara este error (con varios usuario) y ha funcionado, o ha fallado desde el primer momento?

Puede que hayas abierto la base de datos desde access directamente en tu equipo y que entonces Access haya bloqueado la BD, cierra access mientras usas el chat.

Tal vez no sea este el error, puede que en algun otro momento de la aplicacion abras una conexion y despues se te olvide cerrarla, o abras un recordset para insertar y despues se te olvide hacer el update y el close ...
Estos pueden ser motivos de que la BD se quede bloqueada.

En el codigo no veo ningun error en un primer vistazo, pero supongo que habra mas archivos ASP, ten cuidado sobre todo en las inserciones.

Te mando un beso princesa ;)

Nota: creo que me ha entrado un virus o q algun haker esta intentando usar mi equipo como puente para hacer sus fechorias, porque me estan pasando cosas raras mientras intento contestarte ... no puedo acceder bien a casi nada y estoy un poco mosqueado.

Voy a ver si lo arreglo, si mandas un mensaje y ves que no contesto es que he tenido algun problema, no que no quiera contestarte ¿ok mi pequeña?

otor beso

asharakInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar