Notifikationer

Markér alle som læst Log ud

anderst Nybegynder

02. marts 2003 - 13:43 Der er 36 kommentarer og
2 løsninger

hvor er fejlen

Jeg har en formel på min hjemmeside hvor brugerne kan dufylde nogle felter og når man trykker gem, skal den gemme oplysningerne i en acces database men hvorfor gør den ikke det. Her er scriptet:

<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select> år </td>
</tr>
<tr>
<td><input name="submit" type="submit" value="Gem"></td>
<td> </td>
</tr>
</table>
</form>
<%
End If
%>
<%
If Request.QueryString("step") = 2 Then

If Len(Request.Form("billetnr")) <> 3 Then
Response.Write("Billet nummeret SKAL være et tre-cifret tal")
ElseIf Request.Form("fornavn") = "" Then
Response.Write("Du har ikke indtastet et fornavn")
ElseIf Request.Form("efternavn") = "" Then
Response.Write("Du har ikke indtastet noget efternavn")
ElseIf Len(Request.Form("mobilnr")) <> 8 Then
Response.Write("Det indtastede mobilnummer er ikke gyldigt")
ElseIf Instr(Request.Form("email"), "@") = 0 Then
Response.Write("Det indtastede er ikke en gyldigt email")
Else

'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")

'Set RS = Server.CreateObject("ADODB.Recordset")
'SQL = "Select * FROM tabel"
'RS.Open SQL, Conn,3,3

'RS.AddNew
'RS("billetnr") = Request.Form("billetnr")
'RS("fornavn") = Request.Form("fornavn")
'RS("efternavn") = Request.Form("efternavn")
'RS("mobilnr") = Request.Form("mobilnr")
'RS("dag") = Request.Form("dag")
'RS("maaneder") = Request.Form("maaneder")
'RS("aar") = Request.Form("arr")
'RS.Update

End If ' Len(Request.Form("billetnr")) <> 3

End IF ' Request.QueryString("step") = 2
%>
<font color="#0000CC">By Ameq</font><font color="#FF0000"> <a href="http://ameq.dk">http://ameq.dk</a></font>
</body>
</html>

Synes godt om

eagleeye Praktikant

02. marts 2003 - 13:47 #1

For du har udkommenteret hele den kode som gemmer. Prøv at fjerne ' foran alle disse linier:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM tabel"
RS.Open SQL, Conn,3,3

RS.AddNew
RS("billetnr") = Request.Form("billetnr")
RS("fornavn") = Request.Form("fornavn")
RS("efternavn") = Request.Form("efternavn")
RS("mobilnr") = Request.Form("mobilnr")
RS("dag") = Request.Form("dag")
RS("maaneder") = Request.Form("maaneder")
RS("aar") = Request.Form("arr")
RS.Update

Synes godt om

anderst Nybegynder

02. marts 2003 - 14:11 #2

det virker ike kan der være noget galt med databasen den ligger her www.club-p.dk/wwwroot/hej/database.mdb

Synes godt om

eagleeye Praktikant

02. marts 2003 - 14:18 #3

Får du en fejl?

Synes godt om

somaliomar Praktikant

02. marts 2003 - 14:58 #4

Prøv med

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM tabel"
RS.Open SQL, Conn, 1, 3

RS.AddNew
RS("billetnr") = Request.Form("billetnr")
RS("fornavn") = Request.Form("fornavn")
RS("efternavn") = Request.Form("efternavn")
RS("mobilnr") = Request.Form("mobilnr")
RS("dag") = Request.Form("dag")
RS("maaneder") = Request.Form("maaneder")
RS("aar") = Request.Form("arr")
RS.Update

Synes godt om

somaliomar Praktikant

02. marts 2003 - 15:00 #5

Svar :)

Synes godt om

eagleeye Praktikant

02. marts 2003 - 16:04 #6

Det vil være 10 gange lettere at hjælpe hvis du skrev hvilken fejl du får i stedet for "det virker ike "

Synes godt om

somaliomar Praktikant

02. marts 2003 - 16:05 #7

eagleeye >> Det har du fuldstændig ret i. Så slipper man også for at lege gætte-leg.

Synes godt om

the_bma_man Nybegynder

03. marts 2003 - 14:35 #8

Undskyld, men hvad er forskellen på dette spørgsmål og så:
http://exp.dk/spm/323567
??

Synes godt om

anderst Nybegynder

03. marts 2003 - 16:37 #9

den gemmer det ikke i data basen der er fejlen

Synes godt om

anderst Nybegynder

03. marts 2003 - 16:43 #10

kan i ikke hjælpe

Synes godt om

somaliomar Praktikant

03. marts 2003 - 16:46 #11

Prøv med

<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select> år </td>
</tr>
<tr>
<td><input name="submit" type="submit" value="Gem"></td>
<td> </td>
</tr>
</table>
</form>
<%
End If
%>
<%
If Request.QueryString("step") = 2 Then

If Len(Request.Form("billetnr")) <> 3 Then
Response.Write("Billet nummeret SKAL være et tre-cifret tal")
ElseIf Request.Form("fornavn") = "" Then
Response.Write("Du har ikke indtastet et fornavn")
ElseIf Request.Form("efternavn") = "" Then
Response.Write("Du har ikke indtastet noget efternavn")
ElseIf Len(Request.Form("mobilnr")) <> 8 Then
Response.Write("Det indtastede mobilnummer er ikke gyldigt")
ElseIf Instr(Request.Form("email"), "@") = 0 Then
Response.Write("Det indtastede er ikke en gyldigt email")
Else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM tabel"
RS.Open SQL, Conn, 1, 3

RS.AddNew
RS("billetnr") = Request.Form("billetnr")
RS("fornavn") = Request.Form("fornavn")
RS("efternavn") = Request.Form("efternavn")
RS("mobilnr") = Request.Form("mobilnr")
RS("dag") = Request.Form("dag")
RS("maaneder") = Request.Form("maaneder")
RS("aar") = Request.Form("arr")
RS.Update

End If ' Len(Request.Form("billetnr")) <> 3

End IF ' Request.QueryString("step") = 2
%>
<font color="#0000CC">By Ameq</font><font color="#FF0000"> <a href="http://ameq.dk">http://ameq.dk</a></font>
</body>
</html>

Synes godt om

anderst Nybegynder

03. marts 2003 - 17:03 #12

det virker slet ikke se her http://www.club-p.dk/hej/index9.asp

Synes godt om

anderst Nybegynder

03. marts 2003 - 17:03 #13

se dattabasen filerne bliver ikke gemt www.club-p.dk/wwwroot/hej/database.mdb

Synes godt om

anderst Nybegynder

03. marts 2003 - 17:03 #14

kan i ikke hjælpe

Synes godt om

somaliomar Praktikant

03. marts 2003 - 17:04 #15

Får du nogen fejl?

Synes godt om

somaliomar Praktikant

03. marts 2003 - 17:04 #16

Post lige hele din kode her...

Synes godt om

anderst Nybegynder

03. marts 2003 - 17:36 #17

DEn gemmer ikke i databasen

<% Option Explicit %>
<%
dim run
%>
<html>
<head>
<style type="text/css">
input{
font-face : Verdana;
font-size: 12;
}
</style>
</head>
<body>
<%
If Request.QueryString("step") = 1 Or Request.QueryString("step") = "" Then
%>
<form action="index.asp?step=2" name="formen" method="post">
<table width="350" border="0" cellspacing="0" cellpadding="0" style="font-face : Verdana; font-size: 12;">
<tr>
<td>Billet Nr.</td>
<td><input type="text" name="billetnr"></td>
</tr>
<tr>
<td>Fornavn.</td>
<td><input type="text" name="fornavn"></td>
</tr>
<tr>
<td>Efternavn.</td>
<td><input type="text" name="efternavn"></td>
</tr>
<tr>
<td>Mobilnr.</td>
<td><input type="text" name="mobilnr"></td>
</tr>
<tr>
<td> E-Mail</td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td>Fødsels dato.</td>
<td><select name="dag">
<%
run = 0
Do until run = 31
run = run + 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select>
Dag
<select name="maaneder">
<%
Do until run = 12
run = run + 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select>
Måned
<select name="aar">
<%
run = 2004
Do Until run = 1950
run = run - 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select> år </td>
</tr>
<tr>
<td><input name="submit" type="submit" value="Gem"></td>
<td> </td>
</tr>
</table>
</form>
<%
End If
%>
<%
If Request.QueryString("step") = 2 Then

If Len(Request.Form("billetnr")) <> 3 Then
Response.Write("Billet nummeret SKAL være et tre-cifret tal")
ElseIf Request.Form("fornavn") = "" Then
Response.Write("Du har ikke indtastet et fornavn")
ElseIf Request.Form("efternavn") = "" Then
Response.Write("Du har ikke indtastet noget efternavn")
ElseIf Len(Request.Form("mobilnr")) <> 8 Then
Response.Write("Det indtastede mobilnummer er ikke gyldigt")
ElseIf Instr(Request.Form("email"), "@") = 0 Then
Response.Write("Det indtastede er ikke en gyldigt email")
Else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM tabel"
RS.Open SQL, Conn, 1, 3

RS.AddNew
RS("billetnr") = Request.Form("billetnr")
RS("fornavn") = Request.Form("fornavn")
RS("efternavn") = Request.Form("efternavn")
RS("mobilnr") = Request.Form("mobilnr")
RS("dag") = Request.Form("dag")
RS("maaneder") = Request.Form("maaneder")
RS("aar") = Request.Form("arr")
RS.Update

End If ' Len(Request.Form("billetnr")) <> 3

End IF ' Request.QueryString("step") = 2
%>
<font color="#0000CC">By Ameq</font><font color="#FF0000"> <a href="http://ameq.dk">http://ameq.dk</a></font>
</body>
</html>

Synes godt om

anderst Nybegynder

03. marts 2003 - 17:38 #18

Du kan jo selv se at den ikke gemmer udfyld formlen her http://www.club-p.dk/hej/index.asp

og download databasen her www.club-p.dk/wwwroot/hej/database.mdb

Synes godt om

somaliomar Praktikant

03. marts 2003 - 18:18 #19

De ting du prøver at gemme og de felter som databasen indeholder passer slet ikke sammen. Jeg ville overveje at læse det her igennem http://www.html.dk/tutorials/asp/ og måske også http://www.kenddinpc.dk/default.asp?ID1=66

Prøv det her

<html>
<head>
<style type="text/css">
input{
font-face : Verdana;
font-size: 12;
}
</style>
</head>
<body>
<%
If Request.QueryString("step") = 1 Or Request.QueryString("step") = "" Then
%>
<form action="index.asp?step=2" name="formen" method="post">
<table width="350" border="0" cellspacing="0" cellpadding="0" style="font-face : Verdana; font-size: 12;">
<tr>
<td>Billet Nr.</td>
<td><input type="text" name="billetnr"></td>
</tr>
<tr>
<td>Fornavn.</td>
<td><input type="text" name="fornavn"></td>
</tr>
<tr>
<td>Efternavn.</td>
<td><input type="text" name="efternavn"></td>
</tr>
<tr>
<td>Mobilnr.</td>
<td><input type="text" name="mobilnr"></td>
</tr>
<tr>
<td> E-Mail</td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td>Fødsels dato.</td>
<td><select name="dag">
<%
run = 0
Do until run = 31
run = run + 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select>
Dag
<select name="maaneder">
<%
Do until run = 12
run = run + 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select>
Måned
<select name="aar">
<%
run = 2004
Do Until run = 1950
run = run - 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select> år </td>
</tr>
<tr>
<td><input name="submit" type="submit" value="Gem"></td>
<td> </td>
</tr>
</table>
</form>
<%
End If

If Request.QueryString("step") = 2 Then

If Len(Request.Form("billetnr")) <> 3 Then
Response.Write("Billet nummeret SKAL være et tre-cifret tal")
ElseIf Request.Form("fornavn") = "" Then
Response.Write("Du har ikke indtastet et fornavn")
ElseIf Request.Form("efternavn") = "" Then
Response.Write("Du har ikke indtastet noget efternavn")
ElseIf Len(Request.Form("mobilnr")) <> 8 Then
Response.Write("Det indtastede mobilnummer er ikke gyldigt")
ElseIf Instr(Request.Form("email"), "@") = 0 Then
Response.Write("Det indtastede er ikke en gyldigt email")
Else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")

strSQL = "Insert into tabel ("

strSQL = strSQL & "billetnr, "
strSQL = strSQL & "fornavn, "
strSQL = strSQL & "efternavn, "
strSQL = strSQL & "mobilnr, "
strSQL = strSQL & "borndate, "
strSQL = strSQL & "email) "

strSQL = strSQL & "values( "

strSQL = strSQL & Request.Form("billetnr") & ", "
strSQL = strSQL & "'" & Request.Form("fornavn") & "', "
strSQL = strSQL & "'" & Request.Form("efternavn") & "', "
strSQL = strSQL & "'" & Request.Form("mobilnr") & "', "
strSQL = strSQL & Request.Form("dag") & Request.Form("maaneder") & Request.Form("arr") & ", "
strSQL = strSQL & "'" & Request.Form("email") & "')"

Conn.Execute(strSQL)

End If ' Len(Request.Form("billetnr")) <> 3

End IF ' Request.QueryString("step") = 2
%>
<font color="#0000CC">By Ameq</font><font color="#FF0000"> <a href="http://ameq.dk">http://ameq.dk</a></font>
</body>
</html>

Synes godt om

eagleeye Praktikant

03. marts 2003 - 18:22 #20

Prøv at rette denne Linie.

If Request.QueryString("step") = 2 Then

Til:

If Request.QueryString("step") = "2" Then

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:08 #21

ok her du du se den ikke virker http://www.club-p.dk/hej/index.asp
og her er databasen den vil slet ikke gemme infomationerne www.club-p.dk/wwwroot/hej/database.mdb

den der først laver en database og en asp kode der passer får pointne

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:13 #22

Du har jo ikke engang prøvet at bruge min kode! Filen index.asp har stadig den gamle kode.

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:13 #23

jeg mener index20

den kan slet ikke åbne den

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:15 #24

Du er helt lost! Hvad er index20? Hvad er det den ikke kan åbne?

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:16 #25

Sorry... Jeg mente:
Jeg er helt lost! Hvad er index20? Hvad er det den ikke kan åbne?

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:16 #26

hvorfor gemer den slet ikke dataerne
somaliomar hvis du laver en database og et script der passer får du pointne

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:17 #27

den kan åbnes men den gemmer ´stadigvæk ikke i databasen prøv selv og download databasen bagefter

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:17 #28

Jamen, du har jo allerede et script og en database...

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:18 #29

www.club-p.dk/hej/index20.asp

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:19 #30

men det passer ikke sammen hvis du laver et der passer sammen får du pointne

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:25 #31

Der kommer denne fejl, når jeg prøver at køre www.club-p.dk/hej/index20.asp

Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'Conn'
/hej/index.asp, line 104

Dette betyder at du har <% Option Explicit %> i toppen af index20.asp. Koden jeg postede 03/03-2003 18:18:33 har slet ikke denne linje i toppen. Derfor kan jeg se at du ikke bruger min kode i index20.asp.

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:36 #32

men du skal køre hej/index.asp

men hvis du koder det hele får du alle pointne (database og script)

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:41 #33

Både index.asp og index20.asp er indeholder det samme kode.

Databasen har du allerede lavet og koden har du fået af mig. Jeg postede koden 03/03-2003 18:18:33. Copy denne kode og paste den i din index.asp eller index20.asp. Hvor svært kan det være?

Synes godt om

jpvj Nybegynder

03. marts 2003 - 19:43 #34

somaliomar> Ja, det virker lidt mærkeligt, at man beder om hjælp, får et svar, bruger det ikke og spørger igen....

Synes godt om

anderst Nybegynder

03. marts 2003 - 19:45 #35

kig igen på hej/index100.asp

her er den kode jeg brugte men det virker stadigvæk ikke

<html>
<head>
<style type="text/css">
input{
font-face : Verdana;
font-size: 12;
}
</style>
</head>
<body>
<%
If Request.QueryString("step") = 1 Or Request.QueryString("step") = "" Then
%>
<form action="index.asp?step=2" name="formen" method="post">
<table width="350" border="0" cellspacing="0" cellpadding="0" style="font-face : Verdana; font-size: 12;">
<tr>
<td>Billet Nr.</td>
<td><input type="text" name="billetnr"></td>
</tr>
<tr>
<td>Fornavn.</td>
<td><input type="text" name="fornavn"></td>
</tr>
<tr>
<td>Efternavn.</td>
<td><input type="text" name="efternavn"></td>
</tr>
<tr>
<td>Mobilnr.</td>
<td><input type="text" name="mobilnr"></td>
</tr>
<tr>
<td> E-Mail</td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td>Fødsels dato.</td>
<td><select name="dag">
<%
run = 0
Do until run = 31
run = run + 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select>
Dag
<select name="maaneder">
<%
Do until run = 12
run = run + 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select>
Måned
<select name="aar">
<%
run = 2004
Do Until run = 1950
run = run - 1
%>
<option value="<%=run%>"><%=run%></option>
<%
Loop
run = 0
%>
</select> år </td>
</tr>
<tr>
<td><input name="submit" type="submit" value="Gem"></td>
<td> </td>
</tr>
</table>
</form>
<%
End If

If Request.QueryString("step") = 2 Then

If Len(Request.Form("billetnr")) <> 3 Then
Response.Write("Billet nummeret SKAL være et tre-cifret tal")
ElseIf Request.Form("fornavn") = "" Then
Response.Write("Du har ikke indtastet et fornavn")
ElseIf Request.Form("efternavn") = "" Then
Response.Write("Du har ikke indtastet noget efternavn")
ElseIf Len(Request.Form("mobilnr")) <> 8 Then
Response.Write("Det indtastede mobilnummer er ikke gyldigt")
ElseIf Instr(Request.Form("email"), "@") = 0 Then
Response.Write("Det indtastede er ikke en gyldigt email")
Else

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open"DRIVER={Microsoft Access Driver(*.mdb)}; DBQ="&Server.MapPath("database.mdb")

strSQL = "Insert into tabel ("

strSQL = strSQL & "billetnr, "
strSQL = strSQL & "fornavn, "
strSQL = strSQL & "efternavn, "
strSQL = strSQL & "mobilnr, "
strSQL = strSQL & "borndate, "
strSQL = strSQL & "email) "

strSQL = strSQL & "values( "

strSQL = strSQL & Request.Form("billetnr") & ", "
strSQL = strSQL & "'" & Request.Form("fornavn") & "', "
strSQL = strSQL & "'" & Request.Form("efternavn") & "', "
strSQL = strSQL & "'" & Request.Form("mobilnr") & "', "
strSQL = strSQL & Request.Form("dag") & Request.Form("maaneder") & Request.Form("arr") & ", "
strSQL = strSQL & "'" & Request.Form("email") & "')"

Conn.Execute(strSQL)

End If ' Len(Request.Form("billetnr")) <> 3

End IF ' Request.QueryString("step") = 2
%>
<font color="#0000CC">By Ameq</font><font color="#FF0000"> <a href="http://ameq.dk">http://ameq.dk</a></font>
</body>
</html>

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:51 #36

Jeg kan hverken gå ind på www.club-p.dk/hej/index20.asp eller www.club-p.dk/hej/index.asp. Jeg får et

ERROR
The requested URL could not be retrieved

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:51 #37

jpvj >> Ja, det er utroligt!

Synes godt om

somaliomar Praktikant

03. marts 2003 - 19:52 #38

http://www.club-p.dk/hej/index100.asp viker heller ikke.

ERROR
The requested URL could not be retrieved

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
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
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

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