02. december 2002 - 23:48Der er
7 kommentarer og 1 løsning
Spørgeskema. Hvordan?
Hej eksperter.
Vi skal igang med at lave en markedsanalyse, og vil til dette formål gerne lave et elektronisk spørgeskema som kan lægge på vores webhotel.
Tanken er, at der skal indsættes forskellige knapper til at besvare spørgsmålene med, og svarene skal så returneres i en kommasepareret tekstfil, så de er nemme at importere i excell...Dvs. indholdet af tekstfilen er noget i retning af:
det afhænger af hvilket programmeringssprog du bruger, men du kan gemme de indtastede data i enten cookies, eller sessions, inden de sendes, hvis du altså vil lave dem over flere sider
Det er faktisk ret kompliceret 'selv' at gå igang med, du skal til at igang med noget ASP eller PHP ikke lige noget man lærer sådan uden at have læst en bog eller 2. Men der findes faktisk mange gode bøger om det på Biblioteket.
Nu har jeg fået fingrene i et ASP script som fungerer fint, men jeg har et enkelt problem. Jeg kan ikke få den til at skrive svarene i den rette rækkefølge.
Men af en eller anden årsag, så kommer de ud sådan her: svar01, svar13, svar02, svar14 osv...det der undrer mig er, at den starter med at kludre i det fra nr 13 af...det giver ingen mening...hvad kan der være galt?
Jeg har i virksomheds information (handelsskole) lavet et etisk regnskab om skolens kantine. Til det har jeg lavet et spørgeskema og en hjemmeside til at indtaste resultaterne i, da det efter min mening er en del lettere end at optælle manuelt. Det er lavet i php og mysql. Jeg ved at det ikke er helt det du søger, men tag et kik på det, så kan jeg evt. hjælpe med at rette det til så det fungerer som du vil have det til. Jeg har så lavet en side der tæller op hvor mange svar der er af hvad. Det skulle være nemt at få scriptet til at krydse svarerne.
sub AppendFile(path) set fs = CreateObject("Scripting.FileSystemObject") if not fs.FileExists(path) then set file = fs.OpenTextFile(path, 8, true) for each item in request.form file.Write(item & ";") 'hvis filen er ny så skriv feltnavnene i første linie next file.Writeline() else set file = fs.OpenTextFile(path, 8, true) end if for each item in request.form file.Write(request.form(item) & ";") 'Skriv felterne på een linie adskilt af semikolon next file.Writeline() file.Close() end sub
Appendfile(path) i = Request.Form.Count response.write "Tak. " & i & " felter er noteret."
%> </head>
<body> </body> </html>
Synes godt om
Ny brugerNybegynder
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.
