Global.asa

Man kan ikke arbejde med databasen fra global.asa

Jeg husker problemet - men ikke løsningen... Var det fordi
Server.MapPath ikke virker? Prøv at skrive den fulde sti.

du skal tjekke om serveren aplication setting er valgt. du kan tjekke under "Internet service manager". Tvivler på at du kan updatere din db i asa fil.

Man kan godt åbne fil (FSO) men db, not sure.

dette er den originale, kode:
sub Session_OnEnd
  if Session("s_Nickname") <> "" then
    strDSN = "FILEDSN=PR_chat.dsn"

    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open strDSN

    strSQL = "UPDATE User SET OnLine = False WHERE Nickname ='" & Session("s_Nickname") & "';"
    cn.Execute strSQL

    strSQL = "INSERT INTO Message (FromUser, Message, Moment) VALUES ("_
      & "'System', '<i>" & Session("s_Nickname") & "</i> just left the chat', '" & Now & "');"
    cn.Execute strSQL
   
    cn.Close
    Set cn = Nothing
  end if
end sub
og den sq vidst virke...

men hvorfor virker min ik...

det er en dsn forbindelse. Tjek "FILEDSN=PR_chat.dsn" eksistere under Kontrol panel --> ODBC ...

hvordan kan jeg så buruge min egen db, ved at oprette en dsn eller hva?

hvordan gør jeg det?

hvis du har dben så kan du selv vælge om du vil have med DSN eller en så kaldt DSN-less forbindelse. DSN-less har nogle fordele en af dem er bedre performance. Men det er ikke en stor arbejder. her er et ex med DSN-less forbindelse:

Set Conn = Server.CreateObject("ADODB.Connection")
minDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("streetracers.dk.mdb")
Conn.Open minDSN

set rs = server.CreateObject("ADODB.RECORDSET")

strSQL = "INSERT INTO Message (FromUser, Message, Moment) VALUES ("_
      & "'System', '<i>" & Session("s_Nickname") & "</i> just left the chat', '" & Now & "');"


rs.Open strSQL, conn

Do Until rs.EOF
...

For at lave en DSN skal jeg vide hvilke platform du bruger, win98, win2000, NT eller XP, så kan jeg måske hjælpe dig, men som sagt DSN-less er bedst.

jeg vil helst bruge DSN-less :P 2 sec tjekker lige om det virker

virker stadig ik... 2 sec ska lige genstarte brb

minDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("streetracers.dk.mdb") 'husk at skal være din egen db navn her

det virker stadig ikke!

hvad er problemet? fejl besked?

... hva har du nogle forslag...??? kan du evt. prøve at køre det på din egen maskine...?

ìngen fejlbesked men den sætter bare ikke tabelen online til falsk...

jeg send til mig: mach3@get2net.dk

send alle sider + db

jeg sender hele mit site 2 sec

har du feåt det?

ja

godt sig til når det virker... :P

når det virker så send det til rhf@znoff.dk eller rfonvig@hotmail.com :P

hvad med databasen? kan du ikke lave en kopi af den du har, og tabellerne med 2 eller rekord? da jeg ikke ved datatyper osv

dsb ligger i bilioteket database :P

ups lol jeg har lavet en fejl... 2 sek sender lgie en ny sorry

kommer ny nu med db og alle filer :P

nu skulle du have den sorry

fundet du af noget ?

nej, jeg mangler index.html. da jeg klicker på chat skal den åbnes.

Nej, men det ser ud til at der er noget som du har sat sammen, og det er masse fejl :)
Hvad er det helt præcis du vil ha?

altså mit prob. er jo at den ikke sætter ol´nline til falsk når en brguer ikke længere er online altså når session("brugernavn") udløber

det er ikke noget med en chat at gøre... der har jeg bare noget script fra :P

Jeg kan ikke åbne alle sider, men jeg kiggede på global.asa jeg tilføjede nogle linier, prøv først med det.

<Object Runat="Server" Scope="application" ID="dOnlineUsers" ProgID="Scripting.Dictionary"></Object>
<script language="VBScript" runat="server">
Sub Application_OnStart
Application("BrugereOnline") = 0
End Sub

Sub Session_OnStart
session.timeout = 1
Application("BrugereOnline") = Application("BrugereOnline") + 1
End Sub

Sub Session_OnEnd

dOnlineUsers.Remove Session.SessionID
application.lock
Application("BrugereOnline") = Application("BrugereOnline") - 1
application.unlock


if Session("brugernavn") = "" then

Set Conn = Server.CreateObject("ADODB.Connection")
minDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database/database.mdb")
Conn.Open minDSN

set rs = server.CreateObject("ADODB.RECORDSET")

strSQL = "UPDATE medlemmer SET OnLine = False WHERE brugernavn ='" & Session("brugernavn") & "';"
conn.execute(strsql)

end if
end sub
</script>

strSQL = "UPDATE medlemmer SET OnLine = False WHERE brugernavn ='" & Session("brugernavn") & "';"

Er det i Update sætning som online sættes ikke til false? Fordi du har en if sætning hvor brugernavn er tom, og resten sættes i gang hvis den er tom:
if Session("brugernavn") = "" then
så giver ikke mening med:
WHERE brugernavn ='" & Session("brugernavn")
Jeg mener det skal være:
strSQL = "UPDATE medlemmer SET OnLine = False";"

der skal stå <> ikke = :P

men du har jo ret i det du siger lol... kan du ikke lave sådan at når en rbuger ikke har været online... eller bevæget sig i 5 min så logger den ud...=?

er du her endnu???

Jeg har noget kode liggende som vil sende til dig. dette finder whem er online og hvor er vedkommende det er i alt 3 sider.

er sendt!

ey hossein dette r et gammelt sprg. men kan du ikk lige afgive svar så får du pointene.. og hvis du ville være super kan du så ikk sende det kode du sendte til mig dengang.. kan ikk finde det da jeg har haft virus og mistede en del zip filer ;( Mvh Ronny

Hej, jeg skal finde det. Har du stadigvæk samme mail adresse:
rhf@znoff.dk eller rfonvig@hotmail.com