04. juni 2005 - 15:54Der er
12 kommentarer og 1 løsning
Indsætter i db 2 - flere gange. Hvorfor?
Hej
Jeg har en "anbefal siden", hvor jeg indsætter modtagers navn, mail og afsendernavn. Problemet er at der tillige indsættes i db 1 - 2 gange blankt - for hver anbefaling der afsendes.
Jeg forstår simpelthen ikke hvorfor? Hjælp modtages gerne.
<% dim conn
function OpenConn( DBPath )
Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Det du har skrevet af kode køres jo kun een gang som det står her Så hvis det køres flere gange må det være fordi du kalder det flere gange et andet sted fra !
Jeg kalder det ikke flere gange et andet sted fra. Jeg udfylder modtagernavn, mail, afsendernavn, klikker på send - og alt virker. Mailen bliver sendt, som den skal - oplysningerne går i db - men tillige kommer 1 blank række - nogen gange 2 blanke rækker. Thats it - og jeg fatter det ikke!
Jeg har nu anbefalet siden en del gange - og der bliver konsekvent indsat en blank række - derefter rækken med de korrekte oplysninger - en blank række - den korrekte række osv osv. Jeg kan se, at andre her på Eksperten også har haft problemet, men at det er tilsyneladende er løst ved set conn = nothing - hvilket jeg jo gør. Så........nogen bud?
Her får du et svar. Jeg tilslutter mig dog busschou og ksoren. Noget tyder på at scriptet køres flere gange. Hvis siden har flere knapper, så køres scriptet måske uanset hvilken knap man klikker på og i så fald indsættes en blank række? - held og lykke og tak for points :-)
<% navn = request("navn") modtager = request("M_navn") if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ContentTransferEncoding = "8bit" JMail.Charset = "ISO-8859-1"
JMail.Priority = 1 JMail.ServerAddress = "backup-mx.wannafind.dk" JMail.Sender = "kontakt@domæne.dk" JMail.Subject = "Anbefaling af siden" JMail.Body = "Hej " & modtager & vbCrLf & vbCrLf& "Lige en hilsen fra " & navn & vbCrLf & vbCrLf& vbCrLf JMail.Body= JMail.Body + "Prøv at kigge på denne hjemmeside:" & vbCrLf & vbCrLf JMail.Body= JMail.Body + "Den er lige noget for dig. " & vbCrLf & vbCrLf
JMail.AddRecipient request("ad") ' Send it... JMail.Execute set JMail = nothing response.write "<br><br><br>Hej " & request("navn")& " <br>Tak for din anbefaling,<br>som er sendt videre til <br>" & request("ad") & "<BR><BR>Venlig hilsen <br> NN"
Ok - men så ved jeg ikke lige, hvordan jeg så skal bære mig ad. Det forslag michaelfp kom med virker åbenbart.
Ellers opretter jeg et nyt spørgsmål.
Tak for hjælp fra alle - og fortsat god weekend!
Synes godt om
Ny brugerNybegynder
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.