Beste mensen.. Ik heb een probleem..
Ik heb een poll die de vragen en antwoorden uit een database haalt...
Nu heb ik dus een admin pagina gebouwd. zodat je via een website de vragen en antwoorden kan veranderen.....
Deze code is:
Nou werkt die poll gebeuren foutloos..
Maar als ik mijn lijstje met vragen en antwoorden invul en ik druk op toevoegen (dan gaat ie dus naar deze code) gaat de server hangen... dan kan ik er een hele poos niet meer bij.
Het laadbalkje onder in IE gaat ook heel langzaam...
Als ik na een kwartier er weer bij kan zijn alle weizigingen toch wel in de database beland... en het goede getal komt ook in aantal.txt...
Dus het werkt wel... Maar waarom hangt mijn server een kwartier ?
Please Help...
Ik heb een poll die de vragen en antwoorden uit een database haalt...
Nu heb ik dus een admin pagina gebouwd. zodat je via een website de vragen en antwoorden kan veranderen.....
Deze code is:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| <%
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("weekly_poll.mdb"))
sqltext = "Select * FROM tblPolls"
rst.Open sqltext,cnn,3,3
dim vraag, antwoord1, antwoord2, antwoord3,antwoord4,aantal
vraag = Request.Form("vraag")
antwoord1 = Request.Form("antwoord1")
antwoord2 = Request.Form("antwoord2")
antwoord3 = Request.Form("antwoord3")
antwoord4 = Request.Form("antwoord4")
aantal = Request.Form("aantal")
rst.AddNew
rst("Question") = vraag
rst("Selection_1") = antwoord1
rst("Selection_2") = antwoord2
rst("Selection_3") = antwoord3
rst("Selection_4") = antwoord4
rst.update
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("aantal.txt"))
if aantal = 2 then
Set act = fso.CreateTextFile(server.mappath("aantal.txt"), true)
act.WriteLine("180")
Else IF aantal = 3 then
Set act = fso.CreateTextFile(server.mappath("aantal.txt"), true)
act.WriteLine("230")
Else
Set act = fso.CreateTextFile(server.mappath("aantal.txt"), true)
act.WriteLine("270")
End IF
End IF
Response.Redirect "adminweekly_poll.asp"
%> |
Nou werkt die poll gebeuren foutloos..
Maar als ik mijn lijstje met vragen en antwoorden invul en ik druk op toevoegen (dan gaat ie dus naar deze code) gaat de server hangen... dan kan ik er een hele poos niet meer bij.
Het laadbalkje onder in IE gaat ook heel langzaam...
Als ik na een kwartier er weer bij kan zijn alle weizigingen toch wel in de database beland... en het goede getal komt ook in aantal.txt...
Dus het werkt wel... Maar waarom hangt mijn server een kwartier ?
Please Help...
[ Voor 12% gewijzigd door Verwijderd op 21-10-2004 02:04 ]