Avatar billede maluso77 Nybegynder
31. oktober 2002 - 16:18 Der er 6 kommentarer og
1 løsning

Fra form til database

Jeg har et lille problem...
Jeg har lavet en lille side med oprettelse af ny kunde.
Jeg får ikke nogen fejl, men jeg får heller ikke noget skærmbilled. Dvs. Jeg kan ikke se den tabel jeg har lavet.
ASP'siden hedder nykunde.asp
DB'en hedder kunder.mdb (access 2000)
Tabel'en hedder kundeoplysning

jeg fatter ikke en bjælde af hvorfor.
Koden ser sådan her ud.....
Nu håber jeg at den kan forståes.
Hvis der er brug for flere oplysninger så sig til plzz
Plzzz Help...
100 point... fordi den skal bruges hurtigst muligt

Sub CustomerCreation()
%>
<p class="sidetitel" align="center"></p>
<form method="POST" action="nykunde.asp?action=CrCustInDB">
  <p align="center"><font size="2">Udfyld venligst nedenstående formular for at de kan <br>blive oprette i vores kunde kartotek:</font></p><%=strErr%>
<br>
<table border="0" rules="none" cellpadding=0 width="450">
  <tr>
    <td><blockquote>Fornavn: </td>
    <td align="left"><input type="text" name="fornavn"></td>
  </tr>
  <tr>
    <td><blockquote>Efternavn:&nbsp</td>
    <td align="left"><input type="text" name="efternavn"></td>
  </tr>
  <tr>
    <td><blockquote>Adresse: </td>
    <td align="left"><input type="text" name="adresse"></td>
  </tr>
  <tr>
    <td><blockquote>Postnr: </td>
    <td align="left"><input type="text" name="postnr"></td>
  </tr>
  <tr>
    <td><blockquote>Telefonnr: </td>
    <td align="left"><input type="text" name="telefonnr"></td>
  </tr>
  <tr>
    <td><blockquote>Email: </td>
    <td align="left"><input type="text" name="email"></td>
  </tr>
  <tr>
    <td><br><blockquote>Deres telefonnummer vil automatisk sættes som brugerid</td>
    <td align="left"></td>
  </tr>
  <tr>
    <td><br><blockquote>Indtast den adgangskode De ønsker: </td>
    <td align="left"><input type="password" name="password"></td>
  </tr>
  <tr>
    <td></td>
    <td align="left"><br><input type="submit" value="Opret kunde" name="submitoprkunde"></td>
  </tr>
</table>
</form>
<%
End Sub

Sub CreateCustomerInDB()
%>

  <table border="0">
    <tr>
      <td>
    <%
'    Session("user") = Request.Form("telefonnr")

    dim cn,cnstr
    set cn = server.createobject("adodb.connection")
    cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
    cnstr = cnstr & "Data Source=F:\skole\web\Webside\hovedasp\aspsider\kunder.mdb;"
    cn.connectionstring = cnstr
    cn.open

    SQL = "Insert Into kundeoplysning (user,password,fornavn,efternavn,adresse,postnr,telefonnr,email) values ('"&Request.Form("telefonnr")&"' , '"&Request.Form("password")&"' , '"&Request.Form("fornavn")&"' , '"&Request.Form("efternavn")&"' , '"&Request.Form("adresse")&"' , '"&Request.Form("postnr")&"' , '"&Request.Form("telefonnr")&"' , '"&Request.Form("email")&"' )"

    Cn.Execute(SQL)

    Cn.close
    Set Cn=nothing

    %>
      </td>
      <td><%Response.Redirect "nykunde.asp? action=CustomerCreation"%> </td>
    </tr>
  </table>
<%
End Sub
%>
</body>
</html>
Avatar billede medions Nybegynder
31. oktober 2002 - 16:19 #1
<%
    If Not Request.QueryString("action") = "CrCustInDB" Then
%>
<p class="sidetitel" align="center"></p>
<form method="POST" action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME")) %>?action=CrCustInDB">
  <p align="center"><font size="2">Udfyld venligst nedenstående formular for at de kan <br>blive oprette i vores kunde kartotek:</font></p><%=strErr%>
<br>
<table border="0" rules="none" cellpadding=0 width="450">
  <tr>
    <td><blockquote>Fornavn: </td>
    <td align="left"><input type="text" name="fornavn"></td>
  </tr>
  <tr>
    <td><blockquote>Efternavn:&nbsp</td>
    <td align="left"><input type="text" name="efternavn"></td>
  </tr>
  <tr>
    <td><blockquote>Adresse: </td>
    <td align="left"><input type="text" name="adresse"></td>
  </tr>
  <tr>
    <td><blockquote>Postnr: </td>
    <td align="left"><input type="text" name="postnr"></td>
  </tr>
  <tr>
    <td><blockquote>Telefonnr: </td>
    <td align="left"><input type="text" name="telefonnr"></td>
  </tr>
  <tr>
    <td><blockquote>Email: </td>
    <td align="left"><input type="text" name="email"></td>
  </tr>
  <tr>
    <td><br><blockquote>Deres telefonnummer vil automatisk sættes som brugerid</td>
    <td align="left"></td>
  </tr>
  <tr>
    <td><br><blockquote>Indtast den adgangskode De ønsker: </td>
    <td align="left"><input type="password" name="password"></td>
  </tr>
  <tr>
    <td></td>
    <td align="left"><br><input type="submit" value="Opret kunde" name="submitoprkunde"></td>
  </tr>
</table>
</form>
<%
    End If
   
    If Request.QueryString("action") = "CrCustInDB" Then
%>

  <table border="0">
    <tr>
      <td>
    <%
'    Session("user") = Request.Form("telefonnr")

    dim cn,cnstr
    set cn = server.createobject("adodb.connection")
    cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
    cnstr = cnstr & "Data Source=F:\skole\web\Webside\hovedasp\aspsider\kunder.mdb;"
    cn.connectionstring = cnstr
    cn.open

    SQL = "Insert Into kundeoplysning (user,password,fornavn,efternavn,adresse,postnr,telefonnr,email) values ('"&Request.Form("telefonnr")&"' , '"&Request.Form("password")&"' , '"&Request.Form("fornavn")&"' , '"&Request.Form("efternavn")&"' , '"&Request.Form("adresse")&"' , '"&Request.Form("postnr")&"' , '"&Request.Form("telefonnr")&"' , '"&Request.Form("email")&"' )"

    Cn.Execute(SQL)

    Cn.close
    Set Cn=nothing

    %>
      </td>
      <td><%Response.Redirect "nykunde.asp? action=CustomerCreation"%> </td>
    </tr>
  </table>
<%
    End If
%>
</body>
</html>

;o)
//>Rune
Avatar billede medions Nybegynder
31. oktober 2002 - 16:20 #2
Det eneste jeg har gjort er at fjerne dine SUB's da der jo overhovedet ikke er brug for dem og erstattet dem med If...Then betingelser...

//>Rune
Avatar billede maluso77 Nybegynder
31. oktober 2002 - 16:27 #3
Jeg er godt klarover at jeg skal skrive et nyt spg. men jeg får nu denne melding....
Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error in INSERT INTO statement.
/hovedasp/aspsider/nykunde.asp, line 70
Avatar billede maluso77 Nybegynder
31. oktober 2002 - 16:29 #4
Du skal nok få dine points Rune....
Takker
Avatar billede eagleeye Praktikant
31. oktober 2002 - 16:37 #5
Password er reserveret ord i SQL der skal [] omkring i SQL''en:

  SQL = "Insert Into kundeoplysning (user,[password],fornavn,efternavn,adresse,postnr,telefonnr,email) values ('"&Request.Form("telefonnr")&"' , '"&Request.Form("password")&"' , '"&Request.Form("fornavn")&"' , '"&Request.Form("efternavn")&"' , '"&Request.Form("adresse")&"' , '"&Request.Form("postnr")&"' , '"&Request.Form("telefonnr")&"' , '"&Request.Form("email")&"' )"


P.S: normalt er en ny fejl meddelse ikke lig et nyt spørgsmål. Man bliver hjulpet "færdig"
Avatar billede maluso77 Nybegynder
31. oktober 2002 - 16:50 #6
Lyder fint, men det løser desværre ikke mit problem.. :[
  SQL = "Insert Into kundeoplysning (user,password,fornavn,efternavn,adresse,postnr,telefonnr,email) values ('"&Request.Form("telefonnr")&"' , '"&Request.Form("password")&"' , '"&Request.Form("fornavn")&"' , '"&Request.Form("efternavn")&"' , '"&Request.Form("adresse")&"' , '"&Request.Form("postnr")&"' , '"&Request.Form("telefonnr")&"' , '"&Request.Form("email")&"' )"

    Cn.Execute(SQL) 'synderen påstår den...

    Cn.close
    Set Cn=nothing

Jeg prøver at indsætte "rigtige" informationer men det lykkes ikke
Kan det være DB'en jeg har fejl i?
Jeg kan nemmerlig godt hente fra den
Avatar billede medions Nybegynder
31. oktober 2002 - 17:24 #7
Hmm du skal finde ud af om det er et talfelt eller om det er et tekst felt... Tekst felter skal der været ' og ' rundt om, hvor imod der ik' skal været det ved talfelter... Du har fx. sat ' og ' rundt om telefonnr, det må du ikke hvis det er et talfelt! der skal du fjerne dem!

  SQL = "Insert Into kundeoplysning (user,password,fornavn,efternavn,adresse,postnr,telefonnr,email) values ("&Request.Form("telefonnr")&" , '"&Request.Form("password")&"' , '"&Request.Form("fornavn")&"' , '"&Request.Form("efternavn")&"' , '"&Request.Form("adresse")&"' , '"&Request.Form("postnr")&"' , "&Request.Form("telefonnr")&" , '"&Request.Form("email")&"' )"

//>Rune
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