Notifikationer

Markér alle som læst Log ud

pro_styler Nybegynder

19. oktober 2003 - 19:52 Der er 6 kommentarer

Hva er fejlen.

Hejsa jeg har et lille bytte ting system :)
Jeg kan bare ikke finde fejlen :(
Håber der er noget der kan hjælpe mig ;)

Sådan ser min kode ud:

<%
Response.Buffer = True

mode = Request.QueryString("mode")
%>
<html>
<head>
<title> Tilbyder:</title>
<meta name="GENERATOR" content="Namo WebEditor v5.0(Trial)">
<meta name="description" content="Inserts a blank document layout with no defined style.">
</head>
<body>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

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

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From bruger_koeb\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

<% if mode = "bruger" then %>

<form action="byt.asp?mode=postet" method="post" name="formen">
HH Bruger Navn: <input type="text" name="hhname"><br>
Jeg Tilbyder : <input type="text" name="tilbyder"><br>
Jeg Får : <input type="text" name="for"><br>
Andet : <textarea name="txt"> rows="4" cols="40" </textarea><br>
<input type="submit" value="BYT!">

<hr>
<%=RS("hhname")%><br> Tilbyder:<%=RS("tilbyder")%><br> For:<%=RS("for")%> <br> Andet:<%=RS("txt")%>

<% end if %>
<% if mode = "postet" then %>

rs.AddNew
rs(hhname) = Request.form(hhname)
rs(tilbyder) = Request.form(tilbyder)
rs(for) = Request.form(for)
rs(icq) = Request.form(txt)
rs.Update

<% end if %>

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

</body>
</html>

Synes godt om

korup Nybegynder

19. oktober 2003 - 20:03 #1

Hvilken fejl får du?

/korup

Synes godt om

ddobbeltv Nybegynder

19. oktober 2003 - 20:13 #2

<% end if %>

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

</body>
</html>

skal rs.Close og resten ikke <% %>'s ?

Synes godt om

Slettet bruger

19. oktober 2003 - 20:15 #3

Der er flere steder der mangler <% og %>

<%
Response.Buffer = True

mode = Request.QueryString("mode")
%>
<html>
<head>
<title> Tilbyder:</title>
<meta name="GENERATOR" content="Namo WebEditor v5.0(Trial)">
<meta name="description" content="Inserts a blank document layout with no defined style.">
</head>
<body>

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

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

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From bruger_koeb\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

if mode = "bruger" then %>

<form action="byt.asp?mode=postet" method="post" name="formen">
HH Bruger Navn: <input type="text" name="hhname"><br>
Jeg Tilbyder : <input type="text" name="tilbyder"><br>
Jeg Får : <input type="text" name="for"><br>
Andet : <textarea name="txt"> rows="4" cols="40" </textarea><br>
<input type="submit" value="BYT!">

<hr>
<%=RS("hhname")%><br> Tilbyder:<%=RS("tilbyder")%><br> For:<%=RS("for")%> <br> Andet:<%=RS("txt")%>

<% end if %>
<% if mode = "postet" then

rs.AddNew
rs(hhname) = Request.form(hhname)
rs(tilbyder) = Request.form(tilbyder)
rs(for) = Request.form(for)
rs(icq) = Request.form(txt)
rs.Update

end if
rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

%>

</body>
</html>

Synes godt om

snakeeyz Nybegynder

20. oktober 2003 - 21:18 #4

der mangler da også " " Request.form
og i Recordsettet der bruges til at gemme

f.eks.:
rs.AddNew
rs("hhname") = Request.form("hhname")

Håber det hjælper ?

Synes godt om

snakeeyz Nybegynder

24. oktober 2003 - 08:32 #5

Har du fået løst problemet ?

Synes godt om

Slettet bruger

07. november 2003 - 21:32 #6

Er du der?

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
Persits.Upload Af bsn i ASP	1	I dag 11:37	6 minutter siden
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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