Søg
Avatar billede moore Nybegynder
10. april 2002 - 13:58 Der er 12 kommentarer og
1 løsning

2 store probs.

Nu efter jeg havde fået noget JMail til at virke. Er det holdt med at virke *G*

Koden er:

<select name="Personer">
    <option selected value="thomas@soundofmemphis.dk">En generel kommentar</option>
  <option value="Thomas@cb-oleb.dk">Thomas</option>
  <option value="Torben@cb-oleb.dk">Torben</option>
  <option value="Calle@cb-oleb.dk">Calle</option>
</select>

<%

body = request.form("Uforpligtende tilbud paa")
afsender = request.form("navn")
telefon = request.form("telefon")
email = request.form("email")
dato = request.form("dato")

If afsender <> "" AND body <> "" Then

response.write " Din forespørgsel er sendt til CB & Ole B. Booking"
modtageremail = Request.Form("Personer")

Set JMail = Server.CreateObject("JMail.SMTPMail")

  JMail.ServerAddress = "mail.soundofmemphis.dk"
  JMail.Sender = Trim(Request.Form("Email"))
  JMail.Subject = dato & " "  & afsender
  JMail.AddRecipient modtageremail
  JMail.Body = body
  JMail.Priority = 3
  JMail.Execute

End If
%>

Da modtageremail står i add.recepient og kommer fra en select case, så virker det kun hvis jeg bruger en xxx@soundofmemphis.dk adr.
Hjemmesiden ligger indtil videre på www.soundofmemphis.dk..
Men kan man ikke teste om jeg kan skrive til de andre email adr, selvom den ligger på mit domæne???

Hvis nej..
Hvad skal jeg så bruge???

Nogen kode???

2. prob.

Jeg har lavet noget her.
<form action="insert.asp" method="post">
<textarea name="textkunstner" cols="80" rows="30" wrap="virtual"></textarea>
<input type="submit"

If request.form("textkunstner") <> "" Then

strSQLInsert = "UPDATE kunstner SET tekst = '"& Request.Form("textkunstner") &"' WHERE id =" & request.querystring("ID")

response.write "<br>"
response.write strSQLinsert
objConn.execute(strSQLinsert)
response.write "Textfeltet er opdateret"
objConn.close
Set objConn = nothing

End If

Dog virker min update sætning IKKE.. men .. kan man ikke gøre sådan at når man opdaterer så får man automatisk et extra felt med.
Dvs. jeg har et prisfelt som jeg gerne vil have med i samme textarea..
Kan det lade sig gøre???
Avatar billede webbe Nybegynder
10. april 2002 - 15:10 #1
Hvad er fejlmeddelelserne??

Både på det med JMail og det med din UPDATE??
Avatar billede moore Nybegynder
10. april 2002 - 15:41 #2
ved JMail står der bare at add.recipents ikke blev fundet..

Og ved updaten > ID blev ikke fundet, selvom jeg nedenuden har skrevet det ud..
Men hvis du har email så kan jeg sende koderne til dig i aften??
Avatar billede wittnezz Nybegynder
10. april 2002 - 15:47 #3
Hmmm undrer mig:


If afsender <> "" AND body <> "" Then

response.write " Din forespørgsel er sendt til CB & Ole B. Booking"
modtageremail = Request.Form("Personer")

Set JMail = Server.CreateObject("JMail.SMTPMail")

  JMail.ServerAddress = "mail.soundofmemphis.dk"
  JMail.Sender = Trim(Request.Form("Email"))
  JMail.Subject = dato & " "  & afsender
  JMail.AddRecipient modtageremail
  JMail.Body = body
  JMail.Priority = 3
  JMail.Execute

End If


er det meningen at der kun skal sendes en mail hvis (afsender <> "" AND body <> "")

Det er det der står i koden lige nu! Det forklarer måske noget?



Problem 2:

Har selv haft samme problem, men hvis man opdaterer databasen vha. et recordset-objekt i stedet skulle det være 10-4


Set ObjRS = Server.CreateObject("ADODB.Recordset")
Set ObjRS.Activeconnection = Objconn '(ObjConn er dit Connection objekt)
ObjRS.open "Kunstner", ObjConn, 2, 3

ObjRs.Addnew 'Denne kommando er kun nødvendig hvis det er en ny post

ObjRS("tekst")        = Request.Form("textkunstner")
ObjRS("ID")        = Request.Form("ID")

ObjRS.Update



________________________________________________________
Det skulle være det!!
Avatar billede moore Nybegynder
10. april 2002 - 21:08 #4
ok.. tester det lige imorgen.. og takker indtil videre for hjælpen.
Avatar billede moore Nybegynder
10. april 2002 - 21:34 #5
Indtast din text her..

<form action="insert.asp" method="post">
<textarea name="textkunstner" cols="80" rows="30" wrap="virtual"></textarea>
<input type="submit"

<%
Set objConn = server.createobject("adodb.connection")
objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("kunstner.mdb")
set objRS=server.createobject("ADODB.recordset")

ID = request.querystring("ID")
response.write "<br><br>"
response.write ID
If request.form("textkunstner") <> "" Then

strSQLInsert = "UPDATE kunstner SET tekst =" & Request.Form("textkunstner") &" WHERE id =" & ID

Set ObjRS = Server.CreateObject("ADODB.Recordset")
Set ObjRS.Activeconnection = Objconn '(ObjConn er dit Connection objekt)
ObjRS.open "Kunstner", ObjConn, 2, 3
'ObjRs.Addnew 'Denne kommando er kun nødvendig hvis det er en ny post

ObjRS("tekst")        = Request.Form("textkunstner")
ObjRS("ID")        = Request.Form("ID")
ObjRS.Update

response.write "<br>"
response.write strSQLinsert
response.write "Textfeltet er opdateret"
End If
%>
</form>

Sådan ser det ud efter det er ændret.. .men det vil ikke rigtigt virke.. ?? skal det også stå sådan...???
Avatar billede wittnezz Nybegynder
10. april 2002 - 21:39 #6
Jeg ved ikke om du har Form'en, og asp'en i hver sin fil, men det skal det i hvert fald (sådan som koden ser ud her!)
Avatar billede moore Nybegynder
10. april 2002 - 21:39 #7
jeg har 2 filer.. en form og en asp.. hvis du har email kan jeg hurtigt sende dig de 2 filer..??
Avatar billede wittnezz Nybegynder
10. april 2002 - 21:41 #8
ID = request.querystring("ID")

hvor kommer denne querystring fra?
Avatar billede wittnezz Nybegynder
10. april 2002 - 21:41 #9
claus@9ia.dk
Avatar billede moore Nybegynder
10. april 2002 - 21:43 #10
filerne er sendt til dig
Avatar billede moore Nybegynder
11. april 2002 - 08:48 #11
hej..desværre virkede det ikke... den skriver af fejl, at feltet ikke kunne opdateres
Avatar billede wittnezz Nybegynder
11. april 2002 - 11:50 #12
k, er du sikker på at du har skrive-rettigheder i det bibliotek, hvor database-filen ligger?
Avatar billede moore Nybegynder
11. april 2002 - 11:53 #13
ja.. jeg har lige kigget.. mystisk.. jeg må finde en anden løsning på problemet.. den har ellers bare aldrig brokket sig før over det..
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
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
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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
26/1012:28 slet gemte logind Af knuldefar1942 i Diverse
24/1020:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
24/1012:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
White papers
Flere white papers »