Access og ASP

\"kommunikationen mellem databasen og vores ASP-strings\" ??? hva er det ?

forklar hva problemet er....

ok jeg har en ordre med nogle varer. dette bliver gemt i en tabel ved navn ordre. problemet er at jeg gerne vi have kopieret nogle af dataerne fra ordre over i en anden tabel ved navn kunde.

du kan sagtens få koden at se

ok.. lad os se noget kode nute ;-)

kan du ikke bare legge dataene inn i din \'kunde\' tabell samtidig som du legger dem inn i din \'ordre\' tabell ??

<% pageTitle = \"Validate Order\" %>
<!-- #include file=\"db.asp\" -->
<!-- #include file=\"adovbs.inc\" -->

<font face=\"Arial\">
<%


\'Validate user entries in form fields and generate error pages
For Each key in Request.Form
        strName = key
        strValue = Request.Form(key)
        Session(strName) = strValue
    Next

    strFirst = Request.Form(\"strFirst\")
    strLast = Request.Form(\"strLast\")
    strEmail = Request.Form(\"strEmail\")
    strAddress1 = Request.Form(\"strAddress1\")

   
    strPostalCode = Request.Form(\"strPostalCode\")

    strPhone = Request.Form(\"strPhone\")
   
    strCcType = Request.Form(\"strCcType\")
    \'cctype = Request.Form(\"strCcType\")
   
    \'dtmCcExpire = Request.Form(\"dtmCcExpire\")
    strCcNumber = Request.Form(\"strCcNumber\")
    \'number = Request.Form(\"strCcNumber\")
   

If strFirst = \"\" then
   
    Response.Write \"<font size=\'4\'><b>\" & \"husk dit fornavn\" & \"</b><br><br>\" & \"<font size=\'2\'>\" & \"Tryk på browserens \" & \"<b>tilbageknap</b> \" & \"for at rette fejlen.\" & \"<br><br>\"
    Response.Write \"<hr color=\'#cccccc\' size=\'1\' noshade>\"
    Response.End
end if
If strLast = \"\" then
   
    Response.Write \"<font size=\'4\'><b>\" & \"husk dit efternavn\" & \"</b><br><br>\" & \"<font size=\'2\'>\" & \"Tryk på browserens \" & \"<b>tilbageknap</b> \" & \"for at rette fejlen.\" & \"<br><br>\"
    Response.Write \"<hr color=\'#cccccc\' size=\'1\' noshade>\"
    Response.End
end if
If strEmail = \"\" OR len(strEmail) <=7 then
   
    Response.Write \"<font size=\'4\'><b>\" & \"der noget galt med din email. Du bliver nød til at skrive det igen\" & \"</b><br><br>\" & \"<font size=\'2\'>\" & \"Tryk på browserens \" & \"<b>tilbageknap</b> \" & \"for at rette fejlen.\" & \"<br><br>\"
    Response.Write \"<hr color=\'#cccccc\' size=\'1\' noshade>\"
    Response.End
end if
If strEmail = \"\" Or instr(strEmail, \"@\") = 0 then
   
    Response.Write \"<font size=\'4\'><b>\" & \"der noget galt med din email. Du bliver nød til at skrive det igen\" & \"</b><br><br>\" & \"<font size=\'2\'>\" & \"Tryk på browserens \" & \"<b>tilbageknap</b> \" & \"for at rette fejlen.\" & \"<br><br>\"
    Response.Write \"<hr color=\'#cccccc\' size=\'1\' noshade>\"
    Response.End
end if
If strAddress1 = \"\" OR len(strAddress1) <=7 then
   
    Response.Write \"<font size=\'4\'><b>\" & \"husk at skrive din adresse\" & \"</b><br><br>\" & \"<font size=\'2\'>\" & \"Tryk på browserens \" & \"<b>tilbageknap</b> \" & \"for at rette fejlen.\" & \"<br><br>\"
    Response.Write \"<hr color=\'#cccccc\' size=\'1\' noshade>\"
    Response.End
end if




If strPhone = \"\" OR len(strPhone) < 8 then
   
    Response.Write \"<font size=\'4\'><b>\" & \"husk at dit telefonnummer har 8 cifre\" & \"</b><br><br>\" & \"<font size=\'2\'>\" & \"Tryk på browserens \" & \"<b>tilbageknap</b> \" & \"for at rette fejlen.\" & \"<br><br>\"
    Response.Write \"<hr color=\'#cccccc\' size=\'1\' noshade>\"
    Response.End
end if
If strCcNumber = \"\" OR len(strCcNumber) < 16 then
    Response.Write \"<font size=\'4\'><b>\" & \"husk at dit kort nummer har 16 cifre\" & \"</b><br><br>\" & \"<font size=\'2\'>\" & \"Tryk på browserens \" & \"<b>tilbageknap</b> \" & \"for at rette fejlen.\" & \"<br><br>\"
    Response.Write \"<hr color=\'#cccccc\' size=\'1\' noshade>\"
    Response.End
end if

%>
</font>
<%
    set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open ConString

    intOrderID = Request.form(\"intOrderID\")

    set rsOrder = Server.CreateObject(\"ADODB.Recordset\")
    rsOrder.Open \"SELECT * FROM ordre WHERE ordreID = \" _
        & intOrderID, Conn, adOpenStatic, adLockOptimistic, _
        adCmdText

    if rsOrder.EOF then
        Response.Write \"der er sket en fejl med din ordre. prøv igen. \"
       
    else

        rsOrder(\"fragt\") = Request.form(\"intShipping\")
        rsOrder(\"moms\") = Request.form(\"intTax\")
        rsOrder(\"fNavn\") = Request.form(\"strFirst\")
        rsOrder(\"eNavn\") = Request.form(\"strLast\")
        rsOrder(\"email\") = Request.form(\"strEmail\")
        rsOrder(\"adr\") = Request.form(\"strAddress1\")
       
     
        rsOrder(\"postnummer\") = Request.form(\"strPostalCode\")
       
        rsOrder(\"telefon\") = Request.form(\"strPhone\")
       
        rsOrder(\"kortType\") = Request.form(\"strCcType\")
        rsOrder(\"kortNummer\") = Request.form(\"strCcNumber\")
       
        rsOrder(\"kortDato\") = Request.form(\"dtmCcExpire\")
        rsOrder(\"total\") = Request.form(\"intTotal\")
       
        rsOrder(\"ordreDato\") = Date
        rsOrder(\"status\") = \"Færdig\"
        rsOrder.Update
       
        Conn.Execute(\"DELETE FROM bestilling WHERE \" _
            & \"ordreID = \" & intOrderID)

        set rsItem = Server.CreateObject(\"ADODB.Recordset\")
        rsItem.Open \"bestilling\", Conn, adOpenStatic, adLockOptimistic, adCmdTable

        for each item in Request.form(\"strOrderItem\")

            strOrderItem = cstr(item)
            itemInfo = split(strOrderItem, \",\")

            rsItem.addNew
            rsItem(\"ordreID\") = intOrderID
            rsItem(\"produktID\") = itemInfo(0)
            rsItem(\"antal\") = itemInfo(1)
            rsItem.Update

        next
       
        rsItem.Close
        set rsItem = Nothing
       
        Session.abandon
       
    end if
    rsOrder.Close
    set rsOrder = Nothing

    Conn.Close
    set Conn = Nothing

%>


<html>
<head>
<meta name=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
<title><%= pageTitle %></title>
<style type=\"text/css\">
<!--
a:link      { color: #808080 }
a:visited    { color: #808080 }
a:hover      { color: #ff9900 }
-->
</style>
</head>

<body bgcolor=\"#ffffff\" topmargin=\"0\" leftmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" text=\"#808080\">
<basefont face=\"Verdana\" size=\"2\">
<table border=\"0\" width=\"100%\" cellpadding=\"4\" cellspacing=\"1\">
  <tr>
    <td valign=\"top\" nowrap>&nbsp;</td>
    <td valign=\"bottom\" nowrap align=\"right\">&nbsp;</td>
  </tr>
</table>
<table border=\"0\" bgcolor=\"#FFFFFF\" cellpadding=\"0\" cellspacing=\"0\" width=\"625\">
  <tr>
   
    <td width=\"1\" bgcolor=\"#000000\"><img src=\"../images/spacer.gif\" width=\"1\" height=\"1\" alt border=\"0\"></td>
    <td align=\"center\" valign=\"middle\"><table border=\"0\" cellspacing=\"4\" cellpadding=\"4\"><tr>
          <td align=\"center\"> <font face=\"Arial\" size=\"4\"><b> Tak for din ordre
            du f&aring;r dine varer inden for 4 hverdage.</font> </td>
</tr>
</table>
</p>
      <p><font face=\"Arial\" size=\"4\"><b>P&aring; gensyn</b></font></p>
    </td>
  </tr>
  </table>
  </td>
  </tr>
  </table>
      <hr color=\"#CCCCCC\" size=\"1\" noshade>
</body>
</html>

det er den der ordre som skal have kopieret fnavn og enavn osv altså kunde oplysninger ... det skal over i en tabel som hedder kunde...

du kan jo når som helst sette de opplysninger over i din kunde tabell ved å fyre av en SQL:

SQL = \"INSERT INTO kunde (fnavn, enavn) VALUES (\'\" & request.form(\"strFirst\") & \"\', \'\" & request.form(\"strLast\") & \"\')\"
Conn.Execute( SQL )

/nute

hvis jeg nu laver kunde-tabellen om så den er ens med ordre. kan du så skrive hvordan man laver det i kode

hvad står der i db.asp?

ja...

kan man lave det der sql? jeg ved ikke om siden uderstøtter det

jeebes >> det er *dårlig* database design å ha to identiske tabeller. hva skal det være godt for ???

*alle* databaser understøtter SQL. det er standard språk for ¨kommunisere med databaser

<%

\'Password protect your database and then substitute the password for \"foo\" in the code below


Dim vPath, pPath, ConString

vPath = \"db\\db1.mdb\" \'use this one if database is in root of cart folder
\'vPath = \"\\db\\db1.mdb\" \'use this one if database is in root of your website
pPath = Server.MapPath( vPath )

ConString = \"PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=\" & pPath & \";\" & \"JET OLEDB:Database Password=foo\"
%>

det er fordi jeg skal have det det op sådan her:

ordre:
ordreID
ordreDato
status
moms
fragt
total

kunde:
fnavn
enavn
email
adr
postnummer
telefon
kortType
kortNummer
kortDato

endvidere ville det være cool hvis der i begge tabeller var et kundeID som er det samme tal som ordreID

hvis du laver det kan vi gøre sådan at du får 300pt

300 point er ikke nødvendig. 200 points er *mer* enn nok...

hvis vi tenker litt logisk...en ordre eksisterer ikke uten en kunde ?! derfor er ordre tabellen en \"slave\" av kunde tabellen. hvis det ikke er en kunde, jammen så er det heller ikke en ordre. På bakgrunn av det, kan vi konkludere at det er nødvendig med en mapping mellom kunde og ordre tabellen fra kunde tabellen. dette oppnår vi ved å legge inn en ny kolonne: ordreID. Så vil din kkunde tabell se sånn ut:


fnavn
enavn
email
adr
postnummer
telefon
kortType
kortNummer
kortDato
ordreDato

deretter skal du bare legge inn din ordre først, og deretter din kunde med referansen til  din ordre tabell...

det er en skoleopgave og det skal stå på den anden måde
Vi har den metode du har skrevet der, men vi må ikke aflevere det sådan, så vi skal en aller anden måde have kontakten mellem kunde og ordre til at hedde KundeID
Ved du hvad .EOF står for i ASP

jeg har lige fået det lavet sådan at den putter det der skal i ordre ind i ordretabellen men den putter ikke noget i kundetabellen ofrdi den stopper ved
if rskunde.EOF then... hvad tyder det på...

oki....din ordre tabell skal se sånn ut:

ordreID
ordreDato
status
moms
fragt
total
kundeID (inneholder samme verdi som kundeID i tabellen \'kunde\')

din kunde tabell skal se sånn ut:

kundeID
fnavn
enavn
email
adr
postnummer
telefon
kortType
kortNummer
kortDato
ordreDato

EOF står for End Of File

/nute

hvis det er en skoleoppgave, så skal dere kanskje tenke på å lese noen lekser ?!?!

i den kode du har postet, er det ingenting som heter \'rskunde\'

er det ikke du som har skrevet den koden du har postet ??

nej. fordi vi skal kun lave det i access men da dette er for let vil jeg prøve i asp. men så er det jo super at du lige kan hjælpe...

det var bare fordi jeg selv lige skulle prøve men det virkede jo ikke idet der kommer den der eof fejl

din EOF feil oppstår fordi du ikke har et recordset objekt med navn \'rskunde\'

der behøver ikke at være ordreDato i kunde tabellen

vil du se det jeg har lavet hvor der er kunde med?

hov...nei...det er en feilkopiering...den skal ikke være der...

ok

hvis du kan legge koden i en tekst fil og legge den på en server et eller annet sted, ville det vært bedre så slipper threaden å bli så fryktelig laaaang...

ok lige et sekund så

hkan jeg sende den via email?

http://www25.brinkster.com/ralf/hey.txt her er den jeg har rettet lidt i der mangler stadigt at blive ændre lidt i det med ordre tabellen

har du set den??

bytt denne linje:

rskunde.Open \"SELECT * FROM kunde WHERE kundeID = \" _
        & intkunderID, Conn, adOpenStatic, adLockOptimistic, _
        adCmdText

ut med denne linje

rskunder.Open \"SELECT * FROM kunde WHERE kundeID = \" _
        & intkunderID, Conn, adOpenStatic, adLockOptimistic, _
        adCmdText

/nute

det har jeg gjort nu.

og ???

jeg kan ikke hjelpe deg med mindre du forteller meg hva dine øyne ser ?!?! jeg aner ikke om tingene fungerer eller ikke. *du* er nødt til å fortelle *meg* hvilke resultater du får, hvilke feil du får, hvilke resultater du ønsker å få...

ellers kan jeg si med det samme at det ikke er mulig å hjelpe...

den skriver at siden ikke kan læses

jeg vil gerne have at der står \"...dine varer inden for 4 hverdage\" hvis den har sat det rigtigt ind i databasen

nu har jeg lavet databasen om så der står:
ordre::::
ordreID
ordreDato
status
moms
fragt
total
kundeID


kunde::::
kundeID
fnavn
enavn
email
adr
postnummer
telefon
kortType
kortNummer
kortDato

jeg kan ikke hjelpe hvis du ikke forteller meg annet enn at siden ikek kan vises !!!! det kan skyldes 1000 ting...

send meg de nødvendige filene pr mail så skal jeg se på det...min adresse ligger under min profil

det står at siden ikke kan vises

hvilke filer skal du bruge?
bare den ene du har kigget på?

vi du også have databasen? (db.mdb)

les hva jeg skriver:

\"send meg de nødvendige filene\"...siden databasen er nødvendig for at systemet skal fungere, så er det nok en nødvendig fil. du har også en side med et formular...denne er også en nødvendig fil. *alle* filer som er nødvendig for at systemet skal kunne kjøre på min maskin er nødvendige...

ok jeg sender...

den er sendt skriv lige når du har fået den..

jeg har lgie lagt det i en zip.

fejlen er i validateOrder2.asp resten virker i hvert fald på nettet.

www25.brinkster.com/ralf

kikker på det etter jeg har spist

kanon. mange tak

jeg kan ikke se noen sider hvor man skal legge inn de informasjoner du ønsker (navn, adresse, email osv...)

tjek checkout.asp....

det er bare en tal med asp. det er den man taster ind i...

det er ikke noe sted man setter kundeID. ordreID blir satt via session variabler, det er også noe du prøver på med kundeID, men du setter ikke kundeID noe sted

ok men hvordan? det er ok hvis kundeID bare er det samme \"tal\" som ordreID

ehhh...det vil jo være direkte idioti...

hvis jeg handler hos deg flere ganger, så blir jeg oppretter  som kunde hver gang. Det hører jo ingen steds hjemme. den aller simpleste løsningen er å la brukeren velge om han er ny eller gammel kunde. dette kan gjøres med å legge en checkbox på siden \'checkout.asp\'. er det i orden ?

ja

jeg har lige tjekket din profil. du er da rigtig dygtig.

takk...

jeg har sendt deg to filer pr mail...disse fungerer for meg.

du skal kun gjøre én eneste ting og det er med din database. din \'kundeID\' kolonne skal settes til typen \'autonumber\' istedenfor \'number\'

/nute

bare lige for at være sikker.. skal jeg rette kundeID til autonummer både i kunde-tabellen og ordre-tabellen?

nope...kun i kundetabellen...

men vent litt med å test...jeg ser at det er noe annet galt...jeg korrigerer det og sender deg filen igjen om litt...

ok

fint at du lige kigger det igennem. det er kanon.

så er det mail igjen...dette skal fungere...

ok.

hvad er der ændrepå det to filer altså den du lige har sendt og den du sendte før(validateorder2)

måten den legger data inn i databasen + et par andre ting...

det virker ikke på min side www25.brinkster.com/ralf
den siger at siden ikke kan findes når man har trykket på godkend

hey jeg har fundet problemet. den melder fejl fordi jeg ikke giver den et kunde nummer...

nei...du skal *enten* angi kundenummer *eller* fylle ut skjemaet...

men det var en liten feil...ny mail er sendt

ok

hmm den melder stadig \"ingen side\" hvis man ikke skriver et kunde nummer

men lige meget hvad man skriver om kunde nummer får man kunde nummer efter autonummering i databesen.

og den nulstiller heller ikke indkøbskurven automatisk

send meg din database...

ok

så er den sendt.
- nå man laver kunde 2 så kommer han ikke med i kunde-tabellen kun i ordre-tabellen

det ser rigtig godt ud men den sletter stadig ikke det sidst valge i forgående ordre fra indkøbskurven

kan man ikke sætte noget ind i koden til default siden som sletter cookies. for det er vel den cookie der gør at indkøbskurven ikke er tom

eller at cookien bliver slettet idet man trykker godkend i validate2.asp

ny mail er sendt...det var (enda) en liten feil :-(

den sletter inkjøpskurven for meg...hvis jeg plasserer en ordre og går tilbake til innkjøpskurven, så er den tom...

kanon. hvordan er du blevet et haj i så mange prog. sprog??? jeg er lige startet på at læse til datamatiker... jeg er ku god til lidt grafik= simpel flash og så access

er der nogle bøger du kan anbefale

fungerer det ?

jeg startet i et internett firma, og når man gjør det, så er man jo nødt til å lære seg de språk som er nødvendig. man skriver og leser mye kode, så lærer man det...

/nute

har ikke lest bøker selv...kun andre sin kode...

nute styrer... mange tak for hjælpen

anytime...

selv takk...