Notifikationer

Markér alle som læst Log ud

lvborn Nybegynder

22. december 2000 - 22:21 Der er 2 kommentarer og
1 løsning

spørgeskema

Er der nogen, der har et eksempel på hvordan man kan lave et spørgeskema med eksempelvis 4 spørgsmål, hvor svareren har 5 valgmuligheder til hvert spørgsmål(f.eks med en drop down). Jeg kunne godt tænke mig en validering af spørgerens id nummer og måske mulighed for at spørgeren kan rette i data efter at de er afsendt første gang. Er det for stor en mundfuld?

Synes godt om

jper Nybegynder

30. december 2000 - 13:00 #1

Det er simpelt nok, men skal det være webbaseret eller hvad?

Synes godt om

sbarnney Nybegynder

22. januar 2001 - 17:05 #2

Her er en model. Der er 2 spørgsmål, du svare den chekker i databasen om det er rigtig. Hvis rigtig sendes vidre.

<%
\' Hvis der er blevet trykket på knappen \"form\"
If Request.Form(\"Action\") = \"form\" Then

\' Her forberedes de indtastede værdier til validering
str1 = Trim(Replace(Request.Form(\"nr1\"),\"\'\",\"\"))
str2 = Trim(Replace(Request.Form(\"nr2\"),\"\'\",\"\"))

\' Hvis der er skrevet noget i både nr1 og nr2
If Len(str1) > 0 And Len(str2) > 0 Then

\' DSNLess forbindelse til databasen
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DSN\", \"User\", \"Password\"

\' Opbygning af SQL streng
strSQL = \"SELECT ID FROM Form\"&_
\" WHERE (nr1 = \'\" & str1 & \"\')\"&_
\" AND (nr2 = \'\" & str2 & \"\')\"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
\' Hvis svarene fandtes i databasen
intUID = rs(\"ID\")

\' Hvis brugeren ikke fandtes i databasen
strERR = \"Dit svar er forkert\"

\' Rydder op i vores connection objekt
myConn.Close
Set myConn = Nothing

If Len(intUID) Then
\' Hvis variablen intUID indeholder en værdi sættes denne i sessionen \"UserID\" og brugeren bliver sendt videre
Session(\"ID\") = intUID
response.redirect (\"default.asp\")
End If
Else
\' Hvis der ikke var angivet brugernavn og adgangskode
strErr = \"Dit svar er forkert\"
End If

If Len(strErr) > 0 Then
\' Her laves fejlmeddelsen om til rød skrift
strErr = \"<p><font color=red>\" & strErr & \"</font></p>\"
End If
End If
%>
<html>
<head>
<title></title>
<body>
<form method=\"POST\" action=\"form.asp\">
<%=strErr%>
<table>
<tr>
<td>nr 1</td>
<td><select name=\"nr1\"><option value=\"1\">1</option><option value=\"2\">2</option></select></td>
</tr>
<tr>
<td>nr 2</td>
<td><select name=\"nr2\"><option value=\"3\">3</option><option value=\"4\">4</option></select></td>
</tr>
<tr>
<td><input type=\"submit\" value=\"form\" name=\"Action\"></td>
</tr>
</table>
</form>
</body>
</html>

Stig

Synes godt om

tentakkel Nybegynder

22. januar 2001 - 17:08 #3

vil høre med

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

SQL kurser

Computerworld tilbyder specialiserede kurser i database-management

Se alle SQL kurser

Flere spørgsmål fra MS SQL kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kan ikke connecte til Microsoft SQL 2005 server fra Windows 11 Af MartinBall i MS SQL	2	24/06/202509:38	24/06/202511:31
Danske karakterter i simpel insert Af boris i MS SQL	2	25/04/202414:05	29/04/202411:41
Kan ikke connecte til sql serveren Af simsen i MS SQL	2	05/01/202417:02	05/01/202420:51
Count med NOT IN og 2 conditions Af sorenmt84 i MS SQL	2	08/11/202308:37	08/11/202310:32
Top X af group Af totalpc i MS SQL	1	18/10/202321:23	09/11/202313:08

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