msgbox

Hvad er det for en fejl du får???

Kan vi få noget kode at se??

Begge dele vil hjælpe os meget til at hjælpe dig! ;0)

Jeg får denne fejl

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0046)
Tilladelse nægtet: \'MsgBox\'

Når jeg prøver bare at sætte msgbox ind

Hvor vil du sætte en MsgBox ind henne?

Er det på siden som skal vises er det nemmere at bruge javascript til dette.

I din asp kode skriver du:
response.write \"alert(\'Her kan du skrive din besked\')\" & VbCrLf

Dette skulle gerne give dig en box på clienten\'s skærm.

Det er dog ikke altid lige så enkelt som jeg lige beskriver her fordi der er en del steder det er \'forbudt\' at bruge metoden men prøv det.

/NaZaq

Det er klart bedst at bruge JavaScript som nazaq nævner. Det er kun MS-browsere der forstår VBS.

Det virkelige problem er, at asp-kode udføres på serveren hvor man ikke har lov at bruge MsgBox, hvorimod nazaq\'s svar sender noget Javascript kode til klientens browser, og får det kørt der.

Jeg har ikke glemt jer men er optaget af noget andet. Jeg vender snart tilbage

Så er jeg tilbage igen. Hvis i kan hjælpe mig, forhøjer jeg poing talet.

Jeg er ved at lave en ASP side som står pinger nogle server. Detter virker. Meningen er så at så længe serverne svare, skal siden bare køre minimeret. Hvis en af serverne ikke svare, skal der så komme en msgbox der ligger foran andre prgrammer.

Kan dette lade sig gøre

Det du vil er at du vil have din browser side til at dukke op midt i det hele og ligge forrest når der er en server der ikke svarrer, er det korrekt??

Det du kan gøre ved at udføre et javascript på klienten og det er:
    window.focus();

Kunne du fortælle lidt om hvordan du har sat det hele op? Det lyder egentligt lidt interressant samt at det måske ville være nemmere at finde den helt rigtige måde at gøre tingene på.

/NaZaq

Det som jeg er ved at prøve på er at vi har en server. Jeg vil lave en side der pinger disse server. En del af denne kode er her. Den er noget rodet da jeg leger med det for tiden

Option Explicit

Response.expires = 0
Dim StrConnection
Dim objConn, ObjRS, strQ, fl, bes, a
Set objConn = server.CreateObject(\"ADODB.connection\")
strConnection =\"DNS = init;Data Source =INIT;\"
objConn.open StrConnection
StrQ = \"Select ip, Bes from ip\"
set objrs = objconn.Execute(StrQ)

While not objRS.EOF
Dim flag
dim ipadr

flag = 1

Dim objPing
    Set objPing = Server.CreateObject(\"AspPing.Conn\")
      objPing.PingCount = 1
    objPing.Remotehost = objRS(\"ip\")
    If Left(objPing.Ping,7) = \"Request\" Then
    Fl = 1
    Else
    fl = 2
    End If
if fl = 1 then Response.Write objRS(\"Bes\")
REsponse.write \"Dette er en prøve\"

Det som jeg så gerne vil er at siden kunne køre i baggrunden og så hvis der en af serverne går ned kommer den msgbox frem der stanser andre programmer.

Jeg ved ikke om det kan lade sig gøre.