Avatar billede Slettet bruger
26. september 2002 - 10:56 Der er 7 kommentarer og
1 løsning

Asp form til mail og database

Hej
Jeg har en asp form som bliver sendt med email, og det virker fint, men mit spørgsmål er nu. Kan jeg samtidig få svarene lagt i en Acces database.
Her er formen:
<form METHOD="POST" action="be_fak.asp" onSubmit="return(validate(this))">
  <table>
    <tr>
      <td width="581" colspan="2"><strong>Opgørelse <br>
      </strong><p>&nbsp;</td>
    </tr>
    <tr>
      <td width="151">Nummer</td>
      <td width="430"><input type="text" name="lid" size="20"></td>
    </tr>
    <tr>
      <td width="151">Navn på kunde</td>
      <td width="430"><input NAME="Navn_k" SIZE="23"></td>
    </tr>
Og her er noget af be_fak.asp
<%
    Dim CR
    Dim MyBody
    Dim MyCDONTSMail
    CR = Chr(10) & Chr(13)
   
    Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From ="test@xxx.dk"
    MyCDONTSMail.To= "test2@xxx.dk
    MyCDONTSMail.CC= "test@xxx.dk"
   
    MyCDONTSMail.Subject="Fak Installationsordrer " & request.form("AOnummer")
    MyBody = MyBody & "nummer / Navn på kunden...................: " & request.form("nummer") & " / " & request.form("Navn_k") & CR
MyBody = MyBody
    MyCDONTSMail.Body= MyBody
    MyCDONTSMail.Send
    set MyCDONTSMail=nothing
%>
Avatar billede slash Nybegynder
26. september 2002 - 11:23 #1
ja da!
tilføj blot dit insert statement før du sender mailen á la:

strSQL = "INSERT INTO SVARTABEL (FELT1, FELT2) VALUES ("&cint(Request.form("AOnummer"))&", '"&Request.form("Navn_k")&"')"
conn.execute(strSQL)

Dim CR
Dim MyBody
    Dim MyCDONTSMail
    CR = Chr(10) & Chr(13)
   
    Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    MyCDONTSMail.From ="test@xxx.dk"
    MyCDONTSMail.To= "test2@xxx.dk
    MyCDONTSMail.CC= "test@xxx.dk"
   
    MyCDONTSMail.Subject="Fak Installationsordrer " & request.form("AOnummer")
    MyBody = MyBody & "nummer / Navn på kunden...................: " & request.form("nummer") & " / " & request.form("Navn_k") & CR
MyBody = MyBody
    MyCDONTSMail.Body= MyBody
    MyCDONTSMail.Send
    set MyCDONTSMail=nothing
Avatar billede slash Nybegynder
26. september 2002 - 11:25 #2
du kunne naturligvis overveje at teste på om inserten gik godt hvis det er essentielt at den vitterligt bliver udført uden fejl...
Avatar billede Slettet bruger
26. september 2002 - 11:26 #3
Ok, jeg prøver om jeg kan få det til at virke
Avatar billede slash Nybegynder
26. september 2002 - 12:28 #4
funger det?
Avatar billede Slettet bruger
26. september 2002 - 12:34 #5
Nej,jeg bliver ved at få denne fejlmelding.
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same.

be_fak.asp, line 10
Avatar billede slash Nybegynder
26. september 2002 - 12:42 #6
lad mig se koden... umiddelbart vil jeg tro, at det er fordi du angiver at du vil inserte til 3 felter, men der er kun 2 værdier i values fx.!
Avatar billede Slettet bruger
26. september 2002 - 12:47 #7
Hej slash
Jeg har fundet fejlen, så nu virker det perfekt.
Tak for hjælpen.
Hilsen Linda
Avatar billede slash Nybegynder
26. september 2002 - 12:49 #8
Det var så lidt ;-)
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