Søg
Avatar billede maínframe.subnet Nybegynder
15. december 2000 - 08:08 Der er 14 kommentarer og
1 løsning

sending

jeg har denne kildekode som sender oplysninger til en database
---------------------------------------------------------------
<body link=green alink=green vlink=green bgcolor=\"orange\">

<div align=\"center\"><table border=\"0\" width=\"580\" height=\"700\" bgcolor=\"white\">
<tr><td width=\"120\" valign=\"top\" background=\"bg_orange.gif\"><img src=\"120trans.gif\"><center><a href=\"vis_spil.asp?id=81\"><img src=\"jul.gif\" border=\"0\"></a><BR><img src=\"120trans.gif\"><BR><a href=\"#\"><img src=\"nytår.gif\" border=\"0\"></a></a></center></td><td width=\"25\" bgcolor=\"white\"><img src=\"25x1.gif\"></td><td width=\"250\" valign=\"top\" bgcolor=\"white\"><img src=\"250trans.gif\">

<a href=\"http://www.tuborg.dk\"><img src=\"tuborg_banner.gif\" border=\"1\"></a><BR><BR>

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>

<table border=\"0\" width=\"250\" bgcolor=\"white\">
<tr><td width=\"250\" valign=\"top\" bgcolor=\"white\">
<form action=\"tilfoej.asp?mode=send?alle=oplysninger\" method=\"POST\" class=\"css\">

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">



<tr><td colspan=\"2\"><font size=\"1\" face=\"Verdana\"><B><font color=\"red\">* </font>Titel på øl-spil:</B> <INPUT TYPE=\"text\" NAME=\"overskrift\" size=\"26\" style=\"font-size: 10px; font-family: Verdana\"><BR><BR></td></tr>

<tr><td valign=\"top\" colspan=\"2\"><font size=\"1\" face=\"Verdana\"><B><font color=\"red\">*</font> Dit øl-spil:</B></font><BR><textarea name=\"spil\" rows=\"25\" cols=\"46\" style=\"font-size: 10px; font-family: Verdana\"></textarea></td></tr>


<tr><td><font size=\"1\" face=\"Verdana\"><B><font color=\"red\">*</font> Navn:</B></font><BR>
        <INPUT TYPE=\"text\" NAME=\"navn\" size=\"20\" style=\"font-size: 10px; font-family: Verdana\"></td>
    <td><font size=\"1\" face=\"Verdana\"><B><font color=\"red\">* </font> Email:</b></font><BR>
        <INPUT TYPE=\"text\" NAME=\"email\" size=\"21\" style=\"font-size: 10px; font-family: Verdana\"></td>
</tr>



<tr><td colspan=\"2\"><BR><font size=\"1\" face=\"Verdana\">Vælg en katagori: <B><font color=\"red\">*</B></font>
    <select size=\"1\" NAME=\"kategori\" style=\"font-size: 10px; font-family: Verdana\">
    <option value=\"Kortspil\">Kortspil</option>
    <option value=\"Terningespil\">Terningespil</option>
    <option value=\"Fjernsynsspil\">Fjernsynsspil</option>
    <option value=\"Fri fantasi\">Fri fantasi</option>
    <option value=\"Musikspil\">Musikspil</option>
    <option value=\"Andet\">Andet...</option>
    </select><BR><BR></td></tr>



<tr><td colspan=\"2\"><input type=\"submit\" name=\"B1\" value=\"Tilføj øl-spil\" style=\"font-size: 10px; font-family: Verdana\">
                    <INPUT TYPE=\"reset\" NAME=\"Slet\" value=\"Slet data\" style=\"font-size: 10px; font-family: Verdana\"></form></td></tr>

</table>



</td></tr></table>

<BR><font face=\"Verdana\" size=\"1\" color=\"black\"><font color=\"red\">*</font> Ved denne mærkning skal der udfyldes.<BR><BR>Den indsendte tekst forbeholdes \"navn\".dk, og indsender personen.

</td><td width=\"25\" bgcolor=\"white\"><img src=\"25x1.gif\"></td><td width=\"150\" valign=top background=\"bg_orange.gif\"><img src=\"150trans.gif\"><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><B><font face=\"Verdana\" color=\"#FFFFFF\" size=\"1\">
<center></center><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR><center><A HREF=\"nyhed.asp\"><img src=\"tilfoej.gif\" border=\"0\"></A><BR><BR>
<A HREF=\"all.asp\"><img src=\"alle.gif\" border=\"0\"></A><BR><BR><A HREF=\"test.asp\"><img src=\"nyeste.gif\" border=\"0\"></A></center></B>
<BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR>
<center><img src=\"search.gif\"> <B>Søg efter et ølspil.</B><BR>Kategori, titel, navn, dato.</center>
<form method=\"POST\" action=\"search.asp\">
<center><input type=\"text\" name=\"Keyword\" size=\"24\" style=\"font-size: 10px; font-family: Verdana\"><br><br>
<input type=\"submit\" value=\"Søg Øl-spil\" name=\"Action\" style=\"font-size: 10px; font-family: Verdana\"></center></form>
<center>Dato skrives: <%=date()%></center><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"></td></tr></table>

</body></html></div>

<% end if %>

<% if mode = \"send?alle=oplysninger\" then %>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"spil.mdb\") & \";UID=admin;PWD=;\"

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

      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"spil\") = Request.form(\"spil\")
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"email\") = Request.form(\"email\")
      rs(\"kategori\") = Request.form(\"kategori\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

<HTML>

<center><font face=\"Verdana\" size=\"2\" color=\"black\">Dit spil er blevet tilføjet!<BR><BR><a href=\"test.asp\">Gå tilbage til forsiden</a>

</td><td width=\"25\" bgcolor=\"white\"><img src=\"25x1.gif\"></td><td width=\"150\" valign=top background=\"bg_orange.gif\"><img src=\"150trans.gif\"><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><B><font face=\"Verdana\" color=\"#FFFFFF\" size=\"1\">
<center><%
\' DSNLess forbindelse til databasen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"spil.mdb\")

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

strSQL = \"SELECT COUNT(id) AS Antal FROM nyheder\"
Set rs = myConn.Execute(strSQL)
Response.Write \"Antal spil: \" & rs(\"Antal\") & \"\"
%><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\">
Online bruger(e): <%=Application(\"active\")%></center><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR><center><A HREF=\"tilfoej.asp\"><img src=\"tilfoej.gif\" border=\"0\"></A><BR><BR>
<A HREF=\"all.asp\"><img src=\"alle.gif\" border=\"0\"></A><BR><BR><A HREF=\"test.asp\"><img src=\"nyeste.gif\" border=\"0\"></A></center></B>
<BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR>
<center><img src=\"search.gif\"> <B>Søg efter et ølspil.</B><BR> Søg efter titel, navn, dato.</center>
<form method=\"POST\" action=\"search.asp\">
<center><input type=\"text\" name=\"Keyword\" size=\"24\" style=\"font-size: 10px; font-family: Verdana\"><br><br>
<input type=\"submit\" value=\"Søg Øl-spil\" name=\"Action\" style=\"font-size: 10px; font-family: Verdana\"></center>
</form><center>Dato skrives: <%=date()%></center><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"></td></tr></table>

</body></html></div>

</body></html>

<% end if %>
-----------------------------------------------------------------

men jeg har det problem at hvis du ikke udfylder et felt i formularen, kan den ikke sende oplysningerne! hvordan klarer jeg den?

mvh.
Kenneth Madsen
Avatar billede tdaugaard Nybegynder
15. december 2000 - 08:11 #1
Hvordan \"ikke sende oplysningerne\" ?
Avatar billede maínframe.subnet Nybegynder
15. december 2000 - 08:13 #2
og hvis man ikke tilføjer et felt, skal den automatisk tilføje noget som jeg bestemmer????
Avatar billede maínframe.subnet Nybegynder
15. december 2000 - 08:14 #3
hvis du ikke udfyldet et felt, kommer den med en fejl.. altså det virker ikke medmindre man udfyldet alle felter!
Avatar billede tdaugaard Nybegynder
15. december 2000 - 08:15 #4
Den er en database fejl, ikke ? I så fald skal du åbne din DB og din tabel i designvisning, vælge et felt af gagen og sørge for at \"Tillad null-værdi\" er sat til \"ja\"
Avatar billede tdaugaard Nybegynder
15. december 2000 - 08:18 #5
      strOverskrift = Request.form(\"overskrift\"): If Len(strOverskrift) = 0 Then strOverskrift = \"noget du selv bestemmer\"
      strSpil = Request.form(\"spil\"): if len .. bla bla osv.
      strNavn = Request.form(\"navn\")
      strEmail = Request.form(\"email\")
      strKat = Request.form(\"kategori\")

      rs.AddNew
      rs(\"overskrift\") = strOverskrift
      rs(\"spil\") = strSpil
      rs(\"navn\") = strNavn
      rs(\"email\") = strEmail
      rs(\"kategori\") = strKat
      rs.Update
Avatar billede maínframe.subnet Nybegynder
15. december 2000 - 08:51 #6
<% if mode = \"send?alle=oplysninger\" then %>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"spil.mdb\") & \";UID=admin;PWD=;\"

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

      strOverskrift = Request.form(\"overskrift\"): If Len(strOverskrift) = 0 Then strOverskrift = \"Titel ukendt\"
      strSpil = Request.form(\"spil\"): If Len(strSpil) = 0 Then strSpil = \"Indsenderen har ikke skrevet noget spil.\"
      strNavn = Request.form(\"navn\"): If Len(strNavn) = 0 Then strNavn = \"Ukendt navn\"
      strEmail = Request.form(\"email\"): If Len(strEmail) = 0 Then strNavn =\"kenneth@qcom.dk\"
      strKat = Request.form(\"kategori\"): If Len(strKat) = 0 Then strKat = \"Andet\"

      rs.AddNew
      rs(\"overskrift\") = strOverskrift
      rs(\"spil\") = strSpil
      rs(\"navn\") = strNavn
      rs(\"email\") = strEmail
      rs(\"kategori\") = strKat
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>





......................................................................................

Microsoft OLE DB Provider for ODBC Drivers fejl \'80004005\'

[Microsoft][ODBC Microsoft Access Driver]Error in row

/tuborg/tilfoej.asp, linje 104

......................................................................

linje 104 er den hvor der står:      rs.Update
Avatar billede tdaugaard Nybegynder
15. december 2000 - 09:00 #7
Du har en fejl..

  strEmail = Request.form(\"email\"): If Len(strEmail) = 0 Then strNavn =\"kenneth@qcom.dk\"

skulle være

  strEmail = Request.form(\"email\"): If Len(strEmail) = 0 Then strEmail =\"kenneth@qcom.dk\"

Avatar billede tdaugaard Nybegynder
15. december 2000 - 09:02 #8
Har du evt. prøvet med flg. INSERT INTO er lidt nemmere hvis det virker..
(har også lige rettet den strNavn fejl.
Hvad skulle PROVIDER=MSDASQL; i din Connection streng forøvrigt gøre godt for når det er en Access Database du bruger ?

<%
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"spil.mdb\") & \";UID=admin;PWD=;\"

    strOverskrift = Request.Form(\"overskrift\"): If Len(strOverskrift) = 0 Then strOverskrift = \"Titel ukendt\"
    strSpil = Request.Form(\"spil\"): If Len(strSpil) = 0 Then strSpil = \"Indsenderen har ikke skrevet noget spil.\"
    strNavn = Request.Form(\"navn\"): If Len(strNavn) = 0 Then strNavn = \"Ukendt navn\"
    strEmail = Request.Form(\"email\"): If Len(strEmail) = 0 Then strEmail =\"kenneth@qcom.dk\"
    strKat = Request.Form(\"kategori\"): If Len(strKat) = 0 Then strKat = \"Andet\"

    strSQL = \"INSERT INTO nyheder (overskrift, spil, navn, email, kategori VALUES (\'\" & strOverskrift & \"\',\'\" & strSpil & \"\',\'\" & strNavn & \"\',\'\" & strNavn & \"\',\'\" & strKat & \"\');\"
    Conn.Execute strSQL
    Conn.Close
    Set Conn = Nothing
%>
Avatar billede maínframe.subnet Nybegynder
15. december 2000 - 09:05 #9
ok, takker - hvad gør jeg hvis brugeren SKAL udfylde et af felterne, ellers må han ikke sende... sådan at hvis du ikke udfylder f.eks. email skriver den \"du har ikke skrevet din email?\"
Avatar billede tdaugaard Nybegynder
15. december 2000 - 09:13 #10
Virkede det andet fint ?
Der skal du bruge et lille javascript der validerer formen ved onsubmit.

f.eks.

<script language=\"JavaScript\">
  function checkfields() {
    if (minform.mitfelt.value==\"\") {
      alert(\"Udfyldt venligst feltet \\\'MitFelt\\\'\");
      return (false);
    }

    return (true);
  }
</script>

<form action=\"noget.asp\" method=\"post\" onsubmit=\"return checkfields();\" name=\"minform>
  <input type=\"text\" name=\"mitfelt\">
  <!-- og en submit btn. -->
</form>

hvis du submitter den form her uden noget i feltet skulle den gerne \"beklage\" sig.
Avatar billede maínframe.subnet Nybegynder
15. december 2000 - 09:50 #11
det skal være sådan: email og overskrift! behøves du ikke udfylde, der bliver bare tilføjet det jeg selv vælger hvis brugeren ikke udfylder (det var det du hjalp mig med først)

navn, spil og kategori, skal udfyldes! eller skal den brokke sig!!! det er vidst noget med If Then = 0 strError=\"fejl\" eller lign :)
Avatar billede tdaugaard Nybegynder
15. december 2000 - 10:17 #12
hmm .. det er bedre at bruge et javascript client side da brugeren så ikke skal vente på at dit ASP finder fejlen.
Avatar billede maínframe.subnet Nybegynder
15. december 2000 - 12:01 #13
det skal være ASP
Avatar billede tdaugaard Nybegynder
15. december 2000 - 12:03 #14
Nåå okay ... det fixer jeg lige så :-)
Avatar billede tdaugaard Nybegynder
15. december 2000 - 12:06 #15
kan du ikke lige sende mig den fil som du postede her, bare i den rettede version for jeg har lidt svært ved at stykke det hele sammen som du har brugt det (det aner jeg jo ikke!)

e@eksperten.dk
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
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »