Avatar billede zyxep Nybegynder
24. november 2001 - 22:55 Der 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>

<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Nick</title>
</head>

<body>

<form method=\"POST\" action=\"opret.asp\" webbot-action=\"--WEBBOT-SELF--\">
  <!--webbot bot=\"SaveResults\" startspan U-File=\"../_private/form_results.txt\"
  S-Format=\"TEXT/CSV\" S-Label-Fields=\"TRUE\" --><input TYPE=\"hidden\" NAME=\"VTI-GROUP\" VALUE=\"0\"><!--webbot
  bot=\"SaveResults\" endspan i-checksum=\"43374\" --><p>Nick:<input type=\"text\" name=\"T5\" size=\"20\" value=\"<%=nickname%>\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  mail:<input type=\"text\" name=\"T8\" size=\"20\" value=\"<%=mail%>\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>
  <p>Navn:<input type=\"text\" name=\"T1\" size=\"20\" value=\"<%=fornavn%>\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  alder:<input type=\"text\" name=\"T3\" size=\"20\" value=\"<%=alder%>\"></p>
  <p>Efternavn:<input type=\"text\" name=\"T2\" size=\"20\" value=\"<%=efternavn%>\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  by:<input type=\"text\" name=\"T4\" size=\"20\" value=\"<%=by%>\"></p>
  <p>føsdag:<input type=\"text\" name=\"T6\" size=\"20\" value=\"<%=føsdag%>\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  postnr:<input type=\"text\" name=\"T7\" size=\"20\" value=\"<%=postnr%>\"></p>
  <p><input type=\"submit\" value=\"Send\" name=\"B1\"><input type=\"reset\" value=\"Nulstil\" name=\"B2\"></p>
</form>

</body>

</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 :(
Avatar billede zyxep Nybegynder
24. november 2001 - 22:56 #1
hvis der er nogen der kan komme med en bedre form så må de godt det :)
Avatar billede peterp1 Nybegynder
24. november 2001 - 23:11 #2
Du mangler <> \"\" efter linien

AND Request.Form(\"mail\"))

AND Request.Form(\"mail\") <>\"\")
Avatar billede zyxep Nybegynder
24. november 2001 - 23:19 #3
okey prøver lige :)
Avatar billede zyxep Nybegynder
24. november 2001 - 23:21 #4
den siger det stadig :(
Avatar billede zyxep Nybegynder
24. november 2001 - 23:23 #5
du kan se det her http://212.10.105.56/ny/ <------ den adr hvor den henter tingne fra db\'en
http://212.10.105.56/ny/opret.asp <-- den adr til at gemme tingne altså lave en ny
Avatar billede peterp1 Nybegynder
24. november 2001 - 23:54 #6
Du skal give felterne i din form de rigtige navne

dobbeltklik på felterne og giv dem de rigtige navne.

Ligenu hedder dit nickname felt T5, kald det i stedet nickname, det samme gælder for resten af dine felter.
Avatar billede zyxep Nybegynder
25. november 2001 - 00:07 #7
okey fint nok gør lige
Avatar billede zyxep Nybegynder
25. november 2001 - 00:13 #8
nu siger den ADODB.Fields fejl \'800a0cc1\'

ADO kunne ikke finde objektet i den samling, der svarer til den henvisning til navn eller ordenstal, som programmet anmodede om.

/ny/opret.asp, linje 20
linje 20=     rs(\"eftenavn\") = (Request(\"efternavn\"))
Avatar billede peterp1 Nybegynder
25. november 2001 - 00:17 #9
Det er fordi du har sat <%nickname%> ind som value i din form, hvorfor gør du det ??, slet dem
Avatar billede zyxep Nybegynder
25. november 2001 - 00:18 #10
de er slettet
Avatar billede zyxep Nybegynder
25. november 2001 - 00:19 #11
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>

<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>Nick</title>
</head>

<body>

<form method=\"POST\" action=\"opret.asp\" webbot-action=\"--WEBBOT-SELF--\">
  <!--webbot bot=\"SaveResults\" startspan U-File=\"../_private/form_results.txt\"
  S-Format=\"TEXT/CSV\" S-Label-Fields=\"TRUE\" --><input TYPE=\"hidden\" NAME=\"VTI-GROUP\" VALUE=\"0\"><!--webbot
  bot=\"SaveResults\" endspan i-checksum=\"43374\" --><p>Nick:<input type=\"text\" name=\"nickname\" size=\"20\" value=\"nickname\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  mail:<input type=\"text\" name=\"mail\" size=\"20\" value=\"mail\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>
  <p>Navn:<input type=\"text\" name=\"fornavn\" size=\"20\" value=\"fornavn\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  alder:<input type=\"text\" name=\"alder\" size=\"20\" value=\"alder\"></p>
  <p>Efternavn:<input type=\"text\" name=\"efternavn\" size=\"20\" value=\"efternavn\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  by:<input type=\"text\" name=\"by\" size=\"20\" value=\"by\"></p>
  <p>føsdag:<input type=\"text\" name=\"fosdag\" size=\"20\" value=\"fosdag\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  postnr:<input type=\"text\" name=\"postnr\" size=\"20\" value=\"postnr\"></p>
  <p><input type=\"submit\" value=\"Send\" name=\"B1\"><input type=\"reset\" value=\"Nulstil\" name=\"B2\"></p>
</form>

</body>

</html>
Avatar billede peterp1 Nybegynder
25. november 2001 - 00:34 #12
Under tilføj bruger til databasen.

Skriv i stedet for:
rs.addnew
rs(\"nickname\") = Request(\"nickname\")
rs(\"fornavn\") = Request(\"fornavn\")
osv...
Avatar billede zyxep Nybegynder
25. november 2001 - 00:39 #13
okey bare en ven der sagde det var lige meget
Avatar billede zyxep Nybegynder
25. november 2001 - 00:46 #14
det samme :( ADODB.Fields fejl \'800a0cc1\'

ADO kunne ikke finde objektet i den samling, der svarer til den henvisning til navn eller ordenstal, som programmet anmodede om.

/ny/opret.asp, linje 20
linje 20=      rs(\"eftenavn\") = (Request(\"efternavn\"))
Avatar billede peterp1 Nybegynder
25. november 2001 - 00:53 #15
du har droppet () omkring (Request(\"efternavn\")) ik\'

og du har selvfølgelig et dabasefelt som hedder efternavn...

prøv rs(\"efternavn\")=Request.form(\"efternavn\")

det burde være ligegyldigt men hvem ved ??
Avatar billede zyxep Nybegynder
25. november 2001 - 01:12 #16
min ven som ga mig koderne har lavet det men du skal self få dine point
Avatar billede peterp1 Nybegynder
25. november 2001 - 01:14 #17
Takker, tak for i aften :)
Avatar billede zyxep Nybegynder
25. november 2001 - 01:17 #18
np men lige 1 ting hvis du har tid og gider at hjælpe mig :)
Avatar billede zyxep Nybegynder
25. november 2001 - 01:19 #19
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>\" %>

<SCRIPT LANGUAGE=\"JavaScript\">
function openUserWin() {
window.open(\'zyxep.asp\',\'userWin\',\'width=150,height=170,toolbar=no,scrollbars=no,resizable=yes,location=no,menubar=no\');
}
</SCRIPT>
<a href=\"#\" onclick=\"java script:openUserWin()\"><%=rs(\"nickname\")%></a>
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