Avatar billede okay Nybegynder
11. april 2001 - 17:40 Der er 14 kommentarer og
1 løsning

gæstbog

jeg har prøvet at lave en gæstbog men jeg ved ik om det virker sådan her ??

Filen skriv.asp:
<html>
<head>
<title>
Skriv i min gæstbog</title>
</head>

<body>
<form action=\"lag.asp\" method=\"post\">
Name : <input type=\"text\" name=\"navn\">
Email : <input type=\"text\" name=\"email\">
Comments : <textarea name=\"besked\"></textarea>
<input type=\"submit\"><input type=\"reset\">
</form>
</body>
</html>

og filen lag.asp:
<html>
<head>
<title>Tak :)</title>
</head>

<body>
<%
strSQL = \"SELECT * FROM Gbog\"
Set dbConnection = Server.CreateObject(\"ADODB.Connection\")
Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\")
dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\"
rsRecordSet.Open strSQL, dbConnection, 2, 3
rsRecordSet.AddNew
rsRecordSet(\"navn\") = Request.Form(\"navn\")
rsRecordSet(\"email\") = Request.Form(\"email\")
rsRecordSet(\"besked\") = Request.Form(\"besked\")
rsRecordSet.Update
rsRecordSet.Close
dbConnection.Close
Set rsRecordSet = Nothing
Set dbConnection = Nothing
%>
Tak fordi du skrev i min gæstbog </body>
</html>

og til sidste filen vis.asp:
<html>
<head>
<title>
Look I\'m sooo popular</title>
</head>

<body>
<%
strSQL = \"SELECT * FROM Gbog\"
Set dbConnection = Server.CreateObject(\"ADODB.Connection\")
Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\")
dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\"
rsRecordSet.Open strSQL, dbConnection
if rsRecordSet.EOF and rsRecordSet.BOF then
rsRecordSet.MoveFirst
while not rsRecordSet.EOF
%>
<%=rsRecordSet(\"navn\")%>
<%=rsRecordSet(\"email\")%>
<%=rsRecordSet(\"besked\")%>
<%
  rsRecordSet.MoveNext
wend
else
  Response.Write(\"Intet :(\")
end if
rsRecordSet.Close
dbConnection.Close
Set rsRecordSet = Nothing
Set dbConnection = Nothing
%>
</body>
</html>

simple gæstbog ik :)
men hvad er der galt med den...og jeg har oprettet en database..

med ID/NAVN/EMAIL/BESKED :)
Avatar billede okay Nybegynder
11. april 2001 - 17:41 #1
jeg har prøvet den men det ser ud til at der er fejl i scripten..

du kan test den her:
http://www.web-zone.dk/ringetoner/gbog/skriv.asp
Avatar billede bjarke-b Nybegynder
11. april 2001 - 17:43 #2
dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.Mappath(\"gbog.mdb\")
Avatar billede bjarke-b Nybegynder
11. april 2001 - 17:43 #3
Det skal ændres i begge filer
Avatar billede okay Nybegynder
11. april 2001 - 17:44 #4
gæstbog = gæstebog :)
Avatar billede okay Nybegynder
11. april 2001 - 17:47 #5
ja, men prøv selv at skriv noget, den kommer ik....

http://www.web-zone.dk/ringetoner/gbog/vis.asp
Avatar billede bjarke-b Nybegynder
11. april 2001 - 17:49 #6
<%
strSQL = \"SELECT * FROM Gbog\"
Set dbConnection = Server.CreateObject(\"ADODB.Connection\")
Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\")
dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\"
rsRecordSet.Open strSQL, dbConnection, 1, 3
rsRecordSet.AddNew
rsRecordSet(\"navn\") = Request.Form(\"navn\")
rsRecordSet(\"email\") = Request.Form(\"email\")
rsRecordSet(\"besked\") = Request.Form(\"besked\")
rsRecordSet.Update
rsRecordSet.Close
dbConnection.Close
Set rsRecordSet = Nothing
Set dbConnection = Nothing
%>







<html>
<head>
<title>
Look I\'m sooo popular</title>
</head>

<body>
<%
strSQL = \"SELECT * FROM Gbog\"
Set dbConnection = Server.CreateObject(\"ADODB.Connection\")
Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\")
dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\"
rsRecordSet.Open strSQL, dbConnection, 1, 3
if rsRecordSet.EOF and rsRecordSet.BOF then
rsRecordSet.MoveFirst
while not rsRecordSet.EOF
%>
<%=rsRecordSet(\"navn\")%>
<%=rsRecordSet(\"email\")%>
<%=rsRecordSet(\"besked\")%>
<%
  rsRecordSet.MoveNext
wend
else
  Response.Write(\"Intet :(\")
end if
rsRecordSet.Close
dbConnection.Close
Set rsRecordSet = Nothing
Set dbConnection = Nothing
%>
</body>
</html>

Avatar billede okay Nybegynder
11. april 2001 - 17:50 #7
og hvad betyder det ??
Avatar billede bjarke-b Nybegynder
11. april 2001 - 17:51 #8
de 2 filer
Avatar billede okay Nybegynder
11. april 2001 - 17:53 #9
virker hellere ik !!
Avatar billede okay Nybegynder
11. april 2001 - 17:54 #10
der er nogen galt med VIS:ASP !!! :)
Avatar billede okay Nybegynder
11. april 2001 - 17:55 #11
fordi den indsætte teksten som jeg skriver i database..
Avatar billede bjarke-b Nybegynder
11. april 2001 - 17:56 #12
<html>
<head>
<title>
Look I\'m sooo popular</title>
</head>

<body>
<%
strSQL = \"SELECT * FROM Gbog\"
Set dbConnection = Server.CreateObject(\"ADODB.Connection\")
Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\")
dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\"
rsRecordSet.Open strSQL, dbConnection, 1, 3
if recordet.eof or recordset.bof then
Response.Write(\"ingen poster\")
else
Do until recordset.eof
%>
<%=rsRecordSet(\"navn\")%>
<%=rsRecordSet(\"email\")%>
<%=rsRecordSet(\"besked\")%>
<%
recordsset.movenext
loop
end if
rsRecordSet.Close
dbConnection.Close
Set rsRecordSet = Nothing
Set dbConnection = Nothing
%>
</body>
</html>

Avatar billede okay Nybegynder
11. april 2001 - 18:05 #13
først var der noget galt her i linje 12, så jeg skiftede det til:
dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.Mappath(\"gbog.mdb\")

og skrev den at der er noget galt her
if recordet.eof or recordset.bof then

men nu ved jeg ik hvad problemet er ??
Avatar billede okay Nybegynder
11. april 2001 - 18:19 #14
min problemer BLIVER aldrig løset, jeg skal altid løse dem selv :(
Avatar billede okay Nybegynder
11. april 2001 - 18:38 #15
ok nu har jeg selv fikset det som normalt :-)
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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