Avatar billede l_otto Nybegynder
23. oktober 2006 - 21:38 Der er 15 kommentarer og
1 løsning

hvorfor kommer Id ikke med

når jeg viser responewrite kommer alt andet med men ikke id nummeret ?

strSQL = "Insert into tilmelding (DateKolonne ,id,efternavn, forfos1, for2, forfos2, adresse, postnr, fby, telefon, email, fornavn, dato, konto, reg,holdnr, pris) values(now(),'" & replace(Request.Form("id"),"'","''") & "','" & replace(Request.Form("efternavn"),"'","''") & "','" & replace(Request.Form("forfos1"),"'","''") & "','" & replace(Request.Form("for2"),"'","''") & "','" & replace(Request.Form("forfos2"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "','" & replace(Request.Form("postnr"),"'","''") & "','" & replace(Request.Form("fby"),"'","''") & "','" & replace(Request.Form("telefon"),"'","''") & "','" & replace(Request.Form("email"),"'","''") & "','" & replace(Request.Form("fornavn"),"'","''") & "','" & replace(Request.Form("dato"),"'","''") & "','" & replace(Request.Form("konto"),"'","''") & "','" & replace(Request.Form("reg"),"'","''") & "','" & holdnummer & "','" & pris & "'  )"
DataConn.Execute(strSQL)

'Opdater antal tilmeldte i hold tabellen



'Kode som sender mailen her:




if Request.Form("adresse") <> "" then
  Dim objCDO
  Set objCDO = Server.CreateObject( "CDONTS.NewMail" )

  ' Her sættes afsender navn og e-mail adresse

  '
  ' Her sættes overskriften på mailen
  objCDO.Subject    = "Vedr. returvare fra RMA nr:" & Request.Form("efternavn")




  ' Her sættes selve teksten til mailen
  objCDO.Body  = "Kære " & Request.Form("efternavn") & VbCrLf &  VbCrLf &"Du har oprettet en returvare sag, dit returvare nummer er: " & Request.Form("id") & VbCrLf & VbCrLf & "Varenummer: " & Request.Form("fornavn") & VbCrLf & "Faktura nr: " & Request.Form("forfos1") & VbCrLf & VbCrLf & VbCrLf &"Vi behandler din sag så hurtigt som muligt, og du vil høre fra os når vi har afsluttet sagen." & VbCrLf &"Har du spørgsmål til din retursag, er du velkommen til at kontakte os ved at svare på denne mail  eller telefon 70 20 94 84  " & VbCrLf & VbCrLf &"Med venlig hilsen"& VbCrLf & VbCrLf &" .dk"





  ' Send e-mail og skriv status
  objCDO.Send


  ' Fjern objekt igen
Set objCDO = Nothing
end if


response.write "<br><br>Print venligst denne side ud, i 2 eksemplarer, den ene vedlægger du pakken med returvare.<br>"
response.write "<br>"
response.write "<br>"
Response.write "<table  cellpadding='3' cellspacing='1'  width='50%' border='1'>"
Response.write "<tr><td bgcolor='#EFEFEF'>"
response.write "<font size='3'>Returvare nummer: "& Request.Form("Id")
response.write "<br>"
response.write "Navn: "& Request.Form("efternavn")
response.write "<br>"
response.write "Adresse: "& Request.Form("adresse")
response.write "<br>"

response.write "Postnr: "& Request.Form("postnr")
response.write "<br>"
response.write "By: "& Request.Form("fby")
response.write "<br>"
response.write "Tlf:"& Request.Form("telefon")

Response.write "</td></tr>"

Response.Write "</table>"

response.write "<br>"
response.write "<br>"
response.write "<br>"
response.write "<br><br>Med venlig hilsen
Avatar billede softspot Forsker
23. oktober 2006 - 21:45 #1
Er du sikker på at id indeholder nogen værdi i request.form-listen i første omgang?

Bliver id skrevet i tabellen?

Prøv evt. at vise HTML-koden til din form.
Avatar billede l_otto Nybegynder
23. oktober 2006 - 21:51 #2
ja eller hvad ?

<form action="retur.asp" method="post" onsubmit="return Check_Form(this)">
<input type="hidden" name="id" value="<%=Request.Querystring("id")%>">

<TABLE width="500">
<TR>
    <TD>For/Efternavn:<FONT SIZE="1" COLOR="#ff00000">*</FONT> </TD>
    <TD><input type="text"  name="efternavn" size="45"  class="Formindhold"></TD>
</TR>

<TR>
    <TD>Adresse:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="adresse" size="45"  class="Formindhold"></TD>
</TR>
<TR>
    <TD>Postnr:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="postnr" size="4"  class="Formindhold"></TD>
</TR>
<TR>
    <TD>By:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="fby" size="45"  class="Formindhold"></TD>
</TR>
<TR>
    <TD>Telefon:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="telefon" size="8"  class="Formindhold"></TD>
</TR>
<TR>
    <TD>Mobil:</TD>
    <TD><input type="text"  name="forfos2" size="8"  class="Formindhold"></TD>
</TR>
<TR>
    <TD>Email:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="email" size="45"  class="Formindhold"></TD>
</TR>
<TR>
    <TD>Faktura nr:<FONT SIZE="1" COLOR="#ff00000">*</FONT> </TD>
    <TD><input type="text"  name="forfos1" size="45"  class="Formindhold"></TD>
</TR>
<TR>
    <TD>Varenummer:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD><input type="text"  name="fornavn" size="45"  class="Formindhold"></TD>
</TR>
<TR>
    <TD valign="top">Fejl beskrivelse:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD> <textarea  name="dato"  rows="12" cols="35" class="Formindhold"></textarea></TD>
</TR>

<TR>
    <TD>Hvad skal der ske ?:<FONT SIZE="1" COLOR="#ff00000">*</FONT></TD>
    <TD> <select name="for2" class="Formindhold" >
                <option value="" selected></option>
                <option value="Varen ombyttes til anden størrelse">Varen ombyttes til anden størrelse</option>
                <option value="Varen ombyttes pga. defekt">Varen ombyttes pga. defekt</option>
            <option value="Penge retur">Penge retur</option>
             
                </select></TD>
</TR>
<TR>
    <TD >Bank konto:</TD>
    <TD>Reg: <input type="text"  name="reg" size="5"  class="Formindhold">&nbsp;&nbsp;Konto: <input type="text"  name="konto" size="30"  class="Formindhold"></TD>
</TR>
<TR>
<TR>
    <TD valign="top"></TD>
    <TD><I>(udfyldes kun hvis du skal have penge retur)<BR><BR></I></TD>
</TR>
<TR>
    <TD></TD>
    <TD><input type="submit" value="Opret returvare sag" name="send" class="knap" >
</form></TD>
Avatar billede softspot Forsker
23. oktober 2006 - 22:13 #3
Ja, så er det da bekræftet at feltet id findes i formularen, så mangler vi bare at bekræfte at den har en værdi (dvs. om Request.QueryString("id") har en værdi i kaldet til formularsiden).

Kan du bekræfte det? Prøv evt. at skrive id'et ud på formular-siden eller se i browserens HTML-kildekode for at se hvad der står i value-attributten for id-feltet...
Avatar billede l_otto Nybegynder
23. oktober 2006 - 22:14 #4
hvad siger du til det ?
Avatar billede softspot Forsker
23. oktober 2006 - 22:14 #5
...eller kig i adresselinien når formularsiden er vist og se om du kan finde id-parameteren der og hvilken værdi den har.
Avatar billede michael_stim Ekspert
23. oktober 2006 - 22:15 #6
Request.Form("Id") skal väre:
Request.Form("id")
Avatar billede l_otto Nybegynder
23. oktober 2006 - 22:16 #7
ok det har den ikke... den bliver først oprettet i db når siden laves..
Avatar billede softspot Forsker
23. oktober 2006 - 22:19 #8
Godt, så skal du læse data igen efter du har oprettet rækken (og hvis det er en identity-kolonne, så bør du ikke selv indsætte den i din SQL-sætning).

Sidst men ikke mindst skal du aflæse dine data fra recordsettet i stedet for at aflæse felterne fra formularen (alternativt bare aflæse id'et fra den sidst oprettede række i databasen med kommandoen SELECT @@IDENTITY umiddelbart efter du har opretet rækken).
Avatar billede l_otto Nybegynder
23. oktober 2006 - 22:21 #9
michael det hjælper ikke desværre har jeg prøvet
Avatar billede softspot Forsker
23. oktober 2006 - 22:21 #10
Altså noget i stil med:

strSQL = "Insert into tilmelding (DateKolonne , efternavn, forfos1, for2, forfos2, adresse, postnr, fby, telefon, email, fornavn, dato, konto, reg,holdnr, pris) values(now(),'" & replace(Request.Form("efternavn"),"'","''") & "','" & replace(Request.Form("forfos1"),"'","''") & "','" & replace(Request.Form("for2"),"'","''") & "','" & replace(Request.Form("forfos2"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "','" & replace(Request.Form("postnr"),"'","''") & "','" & replace(Request.Form("fby"),"'","''") & "','" & replace(Request.Form("telefon"),"'","''") & "','" & replace(Request.Form("email"),"'","''") & "','" & replace(Request.Form("fornavn"),"'","''") & "','" & replace(Request.Form("dato"),"'","''") & "','" & replace(Request.Form("konto"),"'","''") & "','" & replace(Request.Form("reg"),"'","''") & "','" & holdnummer & "','" & pris & "'  )"
DataConn.Execute(strSQL)

set rs = DataConn.Execute("SELECT @@IDENTITY AS nytID")
if not rs.eof then
  nytID = rs("nytID")
else
  nytID = 0
end if
rs.close

if nytID > 0 then
  ' send din mail og hvad der nu ellers skal gøres...

else
  ' Vis en fejlmeddelese

end if
Avatar billede l_otto Nybegynder
23. oktober 2006 - 22:21 #11
softspot, hvirdan gør jeg det ? kan du sætte det ind i koden for mig ?
Avatar billede l_otto Nybegynder
23. oktober 2006 - 22:26 #12
ok det kommer ikke noget frem i id feltet stadig?

strSQL = "Insert into tilmelding (DateKolonne ,id,efternavn, forfos1, for2, forfos2, adresse, postnr, fby, telefon, email, fornavn, dato, konto, reg,holdnr, pris) values(now(),'" & replace(Request.Form("id"),"'","''") & "','" & replace(Request.Form("efternavn"),"'","''") & "','" & replace(Request.Form("forfos1"),"'","''") & "','" & replace(Request.Form("for2"),"'","''") & "','" & replace(Request.Form("forfos2"),"'","''") & "','" & replace(Request.Form("adresse"),"'","''") & "','" & replace(Request.Form("postnr"),"'","''") & "','" & replace(Request.Form("fby"),"'","''") & "','" & replace(Request.Form("telefon"),"'","''") & "','" & replace(Request.Form("email"),"'","''") & "','" & replace(Request.Form("fornavn"),"'","''") & "','" & replace(Request.Form("dato"),"'","''") & "','" & replace(Request.Form("konto"),"'","''") & "','" & replace(Request.Form("reg"),"'","''") & "','" & holdnummer & "','" & pris & "'  )"
DataConn.Execute(strSQL)

'Opdater antal tilmeldte i hold tabellen



'Kode som sender mailen her:

set rs = DataConn.Execute("SELECT @@IDENTITY AS nytID")
if not rs.eof then
  nytID = rs("nytID")
else
  nytID = 0
end if
rs.close

if nytID > 0 then



if Request.Form("adresse") <> "" then
  Dim objCDO
  Set objCDO = Server.CreateObject( "CDONTS.NewMail" )

  ' Her sættes afsender navn og e-mail adresse

  ' Afsenders mailserver RETTES TIL
  objCDO.Host = "mailout.b-one.net"

objCDO.From = "salg@"

  ' Her sættes modtager navn og e-mail adresse
  objCDO.To =  Request.Form("email")

  ' Her sættes overskriften på mailen
  objCDO.Subject    = "Vedr. returvare fra "




  ' Her sættes selve teksten til mailen
  objCDO.Body  = "Kære " & Request.Form("efternavn") & VbCrLf &  VbCrLf &"Du har oprettet en returvare sag, dit returvare nummer er: " & Request.Form("id") & VbCrLf & VbCrLf & "Varenummer: " & Request.Form("fornavn") & VbCrLf & "Faktura nr: " & Request.Form("forfos1") & VbCrLf & VbCrLf & VbCrLf &"Vi behandler din sag så hurtigt som muligt, og du vil høre fra os når vi har afsluttet sagen." & VbCrLf &"Har du spørgsmål til din retursag, er du velkommen til at kontakte os ved at svare på denne mail  eller telefon 70 20 94 84  " & VbCrLf & VbCrLf &"Med venlig hilsen"& VbCrLf & VbCrLf &" 





  ' Send e-mail og skriv status
  objCDO.Send


  ' Fjern objekt igen
Set objCDO = Nothing
end if
else
  ' Vis en fejlmeddelese

end if

response.write "<br><br>Print venligst denne side ud, i 2 eksemplarer, den ene vedlægger du pakken med returvare.<br>"
response.write "<br>"
response.write "<br>"
Response.write "<table  cellpadding='3' cellspacing='1'  width='50%' border='1'>"
Response.write "<tr><td bgcolor='#EFEFEF'>"
response.write "<font size='3'>Returvare nummer: "& Request.Form("nytID")
response.write "<br>"
response.write "Navn: "& Request.Form("efternavn")
response.write "<br>"
response.write "Adresse: "& Request.Form("adresse")
response.write "<br>"

response.write "Postnr: "& Request.Form("postnr")
response.write "<br>"
response.write "By: "& Request.Form("fby")
response.write "<br>"
response.write "Tlf:"& Request.Form("telefon")
Avatar billede softspot Forsker
23. oktober 2006 - 22:29 #13
Du skal heller ikke aflæse id'et fra request.for-listen men bare aflæse variablen direkte...

Eksempelvis denne linie:

response.write "<font size='3'>Returvare nummer: "& Request.Form("nytID")

skal være

response.write "<font size='3'>Returvare nummer: "& nytID


Jeg går ud fra at du selv kan finde den andre steder...
Avatar billede l_otto Nybegynder
23. oktober 2006 - 22:31 #14
der var den svar og 1000 tak
Avatar billede softspot Forsker
23. oktober 2006 - 22:37 #15
Vær så god :)
Avatar billede softspot Forsker
23. oktober 2006 - 22:40 #16
Velbekomme og tak for point :)
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