CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

chameleon Nybegynder

30. august 2001 - 10:28 Der er 5 kommentarer og
1 løsning

VBScript error ? Hvad betyder denne fejl?

Hej jeg forsøger at bruge et vote system som benytter sig af \"include\" - på 90% af mine sider fungerer dette fint, men på enkelte får jeg denne fejl:

Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/foreignhelp/stem.inc, line 3

function stem(id)
^

Synes godt om

senj Nybegynder

30. august 2001 - 10:34 #1

mere kode!

Synes godt om

chameleon Nybegynder

30. august 2001 - 10:41 #2

Selve functiondelen ser således ud (men den virker jo som sagt perfekt på 90% af siderne):

<%

function stem(id)

font = \"<b><font size=\'1\' face=\'Verdana\'>\"
faktor = 1
barcolor = \"#FF0000\"

Set RsVote = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"/log/stem.mdb\")
RsVote.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

Sql = \"Select * from navn where Id = \" & id
Set Record = RsVote.Execute(Sql)
If Not Record.EOF then
If (Len(Request.Cookies(\"stem\")(CSTR(id)))) then
Dim Valg(5)
valg(1) = Record(\"valg1\")
valg(2) = Record(\"valg2\")
valg(3) = Record(\"valg3\")
valg(4) = Record(\"valg4\")
valg(5) = Record(\"valg5\")

response.write font & Record(\"Beskrivelse\") & \"<br>\"

Sql = \"Select count(*) as Found from Result where VoteId = \" & id
Set Record = RsVote.Execute(Sql)
Ialt = Record(\"found\")

Response.Write \"<div align=\'left\'><table border=\'0\'><tr>\"
For i = 1 to 5
If valg(i) <> \"\" then
Sql = \"Select count(*) as Found from Result where VoteId = \" & id & \" and vote = \'\" & Valg(i) & \"\'\"
Set Record = RsVote.Execute(Sql)
Procent = 100/Ialt * Record(\"Found\")
response.write \"<td>\" & font & Valg(i) & \"</td><td align=\'right\'>\" & font & Round(procent) & \"%</td></tr>\"
end if
Next
Response.Write \"</table></div>\"

Response.Write \"<p align=\'center\'>Based on \" & Ialt & \" votes </p>\"

else
session(\"retur\") = Request.ServerVariables(\"SCRIPT_NAME\")
response.write font & Record(\"Beskrivelse\")
response.write \"<html><head><title>Stem</title></head><body>\"
response.write \"<form method=\'POST\' action=\'/foreignhelp/stemreg.asp\'>\"
response.write \"<input type=\'hidden\' name=\'Voteid\' value=\" & Id & \">\"
If Record(\"Valg1\") <> \"\" then
response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg1\") & \"\' name=\'R1\'>\" & Record(\"Valg1\") & \"<br>\"
end if
If Record(\"Valg2\") <> \"\" then
response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg2\") & \"\' name=\'R1\'>\" & Record(\"Valg2\") & \"<br>\"
end if
If Record(\"Valg3\") <> \"\" then
response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg3\") & \"\' name=\'R1\'>\" & Record(\"Valg3\") & \"<br>\"
end if
If Record(\"Valg4\") <> \"\" then
response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg4\") & \"\' name=\'R1\'>\" & Record(\"Valg4\") & \"<br>\"
end if
If Record(\"Valg5\") <> \"\" then
response.write \"<input type=\'radio\' value=\'\" & Record(\"Valg5\") & \"\' name=\'R1\'>\" & Record(\"Valg5\") & \"<br>\"
end if
response.write \"<p> <input type=\'submit\' value=\'Vote\' name=\'B1\' class=\'cmdflat\'>   <input type=\'reset\' value=\'Reset\' name=\'B2\' class=\'cmdflat\'></p>\"
response.write \"</form></body></html>\"
end if
else
response.write font & \"Fejl\"
end if
end function
%>

Synes godt om

cygnet Praktikant

30. august 2001 - 11:57 #3

er det fordi du har flere forspørgelser på den side med problemet. F.eks. har du også et forum eller ligende.. ?

Synes godt om

cyb Nybegynder

30. august 2001 - 13:03 #4

Hmm .. kan ikke lige gennemskue det men kan det være fordi du includere den samme side to gange ?

Synes godt om

chameleon Nybegynder

01. september 2001 - 11:59 #5

Problemet op står bla. på en side hvor man kan se sin profil - så jo der er forespørgsler (beklager men jeg er ikke en ørn til ASP)

Kan jeg skrive noget i toppen af min stem.inc fil så jeg kommer udover dette? hvis der er problemer med flere forespørgelser?

Je skyder lige lidt i tågen:

<% response.buffer = true%> eller
option explicit eller
<%VBScript...

Synes godt om

cyb Nybegynder

01. september 2001 - 22:53 #6

Hvis problemet er at du includere siden flere gange (fra evt. fra flere undersider) så kan du ikke tjekke på om den allerde er includeret, surry det kan man ikke :-(

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

16/08

Til åbningsfest i det nye NNIT-hovedkontor: ”Som at flytte til New York sammenlignet med der hvor vi kommer fra” - se alle billederne

16/08

Test: Den ideelle form for videoovervågning, hvis du bor i lejlighed

16/08

Stjålet kunde-data fra VVS-Eksperten flyder frit på dark web: Advarer sine kunder mod identitetstyveri efter angreb

16/08

Nørgaard: Kommer vi nogensinde til at kunne stole på software igen? Jim mener ja. Jeg tvivler

16/08

Microsoft: Denne type cyberangreb er steget med mere end 100 procent på et år

16/08

Gigantisk firewall skal indramme 240 millioner mennesker: Softwareleverandører frygter kæmpe forstyrrelser

16/08

Her er 10 smarte Power Toys-værktøjer, du bør anvende i Windows

16/08

Tag det næste skridt i karrieren: Vi har fundet 10 spændende it-stillinger, som du kan søge lige nu

16/08

Google lancerer sin AI-søgemaskine i flere lande - går uden om Danmark

16/08

Digitaliseringsstyrelsen vil have privat leverandør til at overvåge danske hjemmesider: Står klar med ubegrænset kontrakt

16/08

Nu kommer filmen om showet, der skabte de store stjerner

Vis flere artikler

IT-JOB

Lægemiddelstyrelsen

Erfaren IT-koordinator med solid teknisk indsigt

MAN Energy Solutions

Department Manager Edge Platform

Udviklings- og Forenklingsstyrelsen

Erfarne generalister til koordinering mellem ledelse, forretning og it-fagligheder

ATP

Analysekonsulent, der kan skabe kundeindsigter til forbedring af kundeoplevelsen

HusCompagniet A/S

Application Manager

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:32	Lade gennem minidock Af tjacob i PC
I går 18:13	Kan ikke komme på nettet med opera for xp Af edbjohn i Browsere
I går 09:19	W11 fra 22H2 til 23H2 Af barth i Windows
16/0818:36	batteri Af grzona i Mobiltelefoner
16/0816:50	Samsung Odyssey Neo G8 Qled 240 Hz Display Port Problem Af Shamanji i Skærme