24. november 2001 - 22:55Der er
18 kommentarer og 1 løsning
gemme i en db side
Hej eksperter...
jeg kan ikke rigtig få mit asp script til at du jeg har lavet en udtræk fra en db i asp og så vil jeg lave en side lisom et news system og tagwall og sådan men jeg kan ik rigtig få den til at du her er min kode: <% \'Åbner connection til databasen Set conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"members.mdb\") \'Hvis brugeren har submittet formularen if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Tjecker om felterne er udfyld if (Request.Form(\"nickname\") <> \"\" AND Request.Form(\"fornavn\") <> \"\" AND Request.Form(\"efternavn\") <> \"\" AND Request.Form(\"alder\") <> \"\" AND Request.Form(\"by\") <> \"\" AND Request.Form(\"føsdag\") <> \"\" AND Request.Form(\"postnr\") <> \"\" AND Request.Form(\"mail\")) then
\'Tilføjer brugeren til databasen Set rs = Server.CreateObject(\"ADODB.Recordset\") strSQL = \"select * from members\" rs.Open strsql, conn, 1, 3
\'Tilføjer brugeren til databasen og sender ham/hende til login siden rs.AddNew rs(\"nickname\") = Server.HTMLEncode(Request(\"nickname\")) rs(\"fornavn\") = (Request(\"fornavn\")) rs(\"eftenavn\") = (Request(\"efternavn\")) rs(\"alder\") = Server.HTMLEncode(Request(\"alder\")) rs(\"by\") = Server.HTMLEncode(Request(\"by\")) rs(\"føsdag\") = (Request(\"føsdag\")) rs(\"mail\") = (Request(\"mail\")) rs(\"postnr\") = (Request(\"postnr\")) rs.update
Response.Write(\"<strong><font color=\'red\'>Du har sendt formen!</font></strong>\") rs.Close set rs = nothing
else Response.Write(\"<strong><font color=\'red\'>Du mangler at udfylde felter!</font></strong>\") end if end if %> <html>
når jeg udfylder formen så skriver den med rød text øverst du mangler at udfylde felterne og jeg har udfyldt dem alle sammen men hvorfor dur det ikke :(
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
den nye kode er sådan her: <% \'Åbner connection til databasen Set conn = Server.CreateObject(\"ADODB.Connection\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"members.mdb\") \'Hvis brugeren har submittet formularen if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Tjecker om felterne er udfyld if (Request.Form(\"nickname\") <> \"\" AND Request.Form(\"fornavn\") <> \"\" AND Request.Form(\"efternavn\") <> \"\" AND Request.Form(\"alder\") <> \"\" AND Request.Form(\"by\") <> \"\" AND Request.Form(\"fosdag\") <> \"\" AND Request.Form(\"postnr\") <> \"\" AND Request.Form(\"mail\") <>\"\") then
\'Tilføjer brugeren til databasen Set rs = Server.CreateObject(\"ADODB.Recordset\") strSQL = \"select * from members\" rs.Open strsql, conn, 1, 3
\'Tilføjer brugeren til databasen og sender ham/hende til login siden rs.AddNew rs(\"nickname\") = Server.HTMLEncode(Request(\"nickname\")) rs(\"fornavn\") = (Request(\"fornavn\")) rs(\"eftenavn\") = (Request(\"efternavn\")) rs(\"alder\") = Server.HTMLEncode(Request(\"alder\")) rs(\"by\") = Server.HTMLEncode(Request(\"by\")) rs(\"fosdag\") = (Request(\"fosdag\")) rs(\"mail\") = (Request(\"mail\")) rs(\"postnr\") = (Request(\"postnr\")) rs.update
Response.Write(\"<strong><font color=\'red\'>Du har sendt formen!</font></strong>\") rs.Close set rs = nothing
else Response.Write(\"<strong><font color=\'red\'>Du mangler at udfylde felter!</font></strong>\") end if end if %> <html>
i min index.asp der hvor jeg udtrækker dem fra db\'en vil jeg godt have et javascript(popup) til hvert af de navne til hver deres fil men hvordan gør jeg det her er min index fil:<% \' Connection til database Set Conn = Server.CreateObject(\"ADODB.Connection\") DBPath = \"DBQ=\" & server.mappath(\"members.mdb\") Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Her hiver vi indholdet af databasen ud, sorterer dem efter dato Sql = \"SELECT * FROM members ORDER BY fornavn DESC\" Set rs = Conn.Execute(Sql) %> <% response.write\"<center>\" %>
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.