Hans wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej Mik
>
> Jeg har lavet et komponent til dig i asp, fordi jeg ikke forstå
> dette der webbot noget! Jeg går ud fra at du har indtalleret ISS...
> Jeg har også lavet, i komponentet, en side så du kan se om det er
> blevet tilføjet med det samme... Hvis du gemmer denne fil som jeg
> skriver om et øjeblik, som db_add.asp og gemmer filen samme sted som
> du havde den anden problem-fil, så skulle det virke!
>
> Komponent:
>
> <%
> 'Lavet af Hans Dam [War'n Dugs]
> %>
> <html>
>
> <head>
> <title>Mik's side!</title>
> </head>
>
> <body>
> <%
> 'Komponent der kan få flere sider til at være inde i et dokument!
> strMode = Request.Querystring("mode")
> select case strMode
> 'Side der bliver aktiveret hvis man laver en url der hedder noget
i
> retning af: db_add.asp?mode=save
> case "save"
>
> Const adOpenKeyset = 1
> Const adLockOptimistic = 3
>
> 'Database forbindelse
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver
> (*.mdb)};DBQ=" & Server.MapPath("fpdb/tutorial.mdb") &
> ";UID=admin;PWD=;"
>
> Set rs = Server.CreateObject("ADODB.RecordSet")
> strSQL = "Select * From Personer"
> rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
>
> rs.AddNew
> rs("Fornavn") = Request.form("Fornavn")
> rs("Efternavn") = Request.form("Efternavn")
> rs("Telefon") = Request.form("telefon")
> rs("fodselsdag") = request.form("fodselsdag")
> rs.Update
>
> rs.Close
> Set rs = Nothing
>
> 'Lukning af database forbindelse
> Conn.Close
> set Conn = Nothing
>
> 'Side der bliver vist efter oplysningerne er gemt i databasen
> response.redirect "db_add.asp?mode=vis"
>
>
> case "vis"
>
> 'Database forbindelse
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath ("fpdb/tutorial.mdb")
> strSQL = "SELECT * FROM Personer order by id desc;"
>
> conn.execute(strSQL)
> set rs = Conn.execute(strSQL)
>
> do while not rs.eof
>
> strfornavn = rs("fornavn")
> strefternavn = rs("efternavn")
> %>
>
> <b><% = strfornavn %> <% = strefternavn %></b>
> <table border="0" cellpadding="0" cellspacing="5">
> <tr>
> <td>Fornavn</td>
> <td><b><% = strfornavn %></b></td>
> </tr>
> <tr>
> <td>Efternavn</td>
> <td><b><% = strefternavn %></b></td>
> </tr>
> <tr>
> <td>Telefonnr</td>
> <td><b><%=rs("telefon")%></b></td>
> </tr>
> <tr>
> <td>fødselsdag</td>
> <td><b><%=rs("fodselsdag")%></b></td>
> </tr>
> </table> <br><br>
>
> <%
> rs.movenext
> loop
>
> 'Lukning af database forbindelse
> conn.close
> set conn = nothing
>
> 'Side der vises når du går ind på siden db_add.asp
> case else
> %>
> <form method="POST" action="db_add.asp?mode=save">
> <p>
> Tilføj nye medlemmer</p>
> <table border="0" cellpadding="0" cellspacing="5"
> style="border-collapse: collapse" bordercolor="#111111"
> id="AutoNumber1">
> <tr>
> <td>Fornavn</td>
> <td><input type="text" name="fornavn" size="20"></td>
> </tr>
> <tr>
> <td>Efternavn</td>
> <td><input type="text" name="efternavn" size="20"></td>
> </tr>
> <tr>
> <td>Telefonnr</td>
> <td><input type="text" name="telefon" size="20"></td>
> </tr>
> <tr>
> <td>fødselsdag</td>
> <td><input type="text" name="fodselsdag" size="20"></td>
> </tr>
> <tr>
> <td> </td>
> <td> </td>
> </tr>
> </table>
> <p> </p>
> <p> </p>
> <p><input type="submit" value="Send" name="B1"><input
> type="reset" value="Nulstil" name="B2"></p>
> </form>
> <%
> End select
> %>
>
> </body>
>
> </html>
>
> Hvis der er noget galt, så er min e-mail hans.dam@mail.dk eller
> htddam@hotmail.com
> Mit ICQ# er 151347148
>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials
Hej hans
Tak for dit hurtige svar , jeg har kopiet din nedenstående script til
en fil med navnet db_add.asp og når jeg køre den kommer den frem med
følgende ::
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0408)
Tegnet er ugyldigt
/db_add.asp, line 16, column 22
retning af: db_add.asp?mode=save
---------------------^
Siger det dig eller andre noget
Med venlig hilsen
Mik
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials