Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


aspsmartmail

Postades av 2004-11-18 00:30:29 - peppe olofsson, i forum asp - allmänt, Tråden har 4 Kommentarer och lästs av 456 personer

Hej, jag skulle behöva hjälp med att få nedanstående kod som jag gjort ändrad till aspsmartmail från jmail... Jag har försökt men nånstans så spricker det, är det någon som har koll? det som funkar är att det blir skickat och kommer fram, men det som bara kommer med i mailet är avsändarens epostadress samt namn och subject, det är det som skrivs ut men allt det andra finns inte med, alltså innehållet kommer inte med???
-------------------------------------------------------
<!--#include file="installningar.asp"-->
<%
Response.Buffer = true

namn = Request.Form("namn")
adress = Request.Form("adress")
postnr1 = Request.Form("postnr1")
postnr2 = Request.Form("postnr2")
padress = Request.Form("postadress")
tfn1 = Request.Form("tfn1")
tfn2 = Request.Form("tfn2")
epost = Request.Form("epost")
ovrigt = Request.Form("ovrigt")
info = Array(namn,adress,postnr1,postnr2,padress,tfn1,tfn2,epost,ovrigt)
info2 = ""
For i = 0 to 8
info2 = info2 & info(i)
IF Not i = 8 then
info2 = info2 & "|"
END IF
Next
For i = 0 to 7
IF NOT len(info(i)) <> 0 then
Session("webshopfel") = "Du glömde att fylla i något fält"
session("falt") = info2
Response.Redirect Request.ServerVariables("HTTP_REFERER")
END IF
Next

IF len(info(2)) > 5 then
Session("webshopfel") = "Felaktigt postnummer"
Session("falt") = info2
Response.Redirect Request.ServerVariables("HTTP_REFERER")
END IF

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("webshop.mdb")
Session.Lcid = 1053

varde = Request.Cookies(""& Session.SessionID &"")
hamta = Split(varde,"&")
ReDim MyArray(4,Ubound(hamta))
for x = 0 to ubound(hamta)
hamta2 = Split(hamta(x),"=")
IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then
SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0))
Set RecSet = Connect.Execute(SQL)
MyArray(0,x) = hamta2(0)
MyArray(1,x) = hamta2(1)
MyArray(2,x) = RecSet("artnr")
MyArray(3,x) = RecSet("namn")
MyArray(4,x) = RecSet("pris")

RecSet.Close
Set RecSet = nothing
END IF
next

Set mailare = Server.CreateObject("aspSmartMail.SmartMail")

mailare.Server = ""&mailserver&""
mailare.SenderName = ""&namn&""
mailare.SenderAddress = ""&epost&""
mailare.Recipients.Add "minmail@adress.se", "Mottagarens namn"

mailare.Subject = "Beställning"
HTML= "<font face=verdana size=1>"
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
HTML= "Art.nr: " & MyArray(2,i) & "<br>"
HTML= "Produkt: " & MyArray(3,i) & "<br>"
HTML= "Antal: " & MyArray(1,i) & "<br>"
HTML= "-------------------------------------------<br>"
IF i = Ubound(myArray,2) then
HTML= "&nbsp;<br>"
END IF
END IF
Next
HTML= "Namn: " & info(0) & "<br>"
HTML= "Adress: " & info(1) & "<br>"
HTML= "Postnr: " & info(2) & info(3) & "<br>"
HTML= "Postadress: " & info(4) & "<br>"
HTML= "Telefonnummer: " & info(5) & "-" & info(6) & "<br>"
HTML= "E-post: " & info(7) & "<br>"
HTML= "Övrigt: " & info(8) & "<br>"
HTML= "Skickat: " & Now() & "<br>"
HTML= "</font>"

mailare.body = ""&html&""
mailare.Priority = 2
mailare.ContentType = "text/html"
mailare.Charset = "iso-8859-1"
mailare.SendMail
Set mailare = nothing

For Each nyckel in Request.Cookies(Session.SessionID)
Response.Cookies(Session.SessionID)(nyckel) = ""
Next
sida = Request.ServerVariables("HTTP_REFERER") & "&skickad=ja"
Response.Redirect sida
%>


Svara

Sv: aspsmartmail

Postades av 2004-11-18 07:41:31 - Greger Hagström

Det beror nog på att du byter ut värdet i HTML hela tiden
testa:
HTML = HTML & "Telefonnummer: " & info(5) & "-" & info(6) & "<br>"
istället för:
HTML= "Telefonnummer: " & info(5) & "-" & info(6) & "<br>"


Svara

Sv: aspsmartmail

Postades av 2004-11-18 12:03:50 - peppe olofsson

Tack du är en klippa...nu fick jag med allt, förutom art.nr, produkt och antal...Där blir det fel på ngtvis

HTML= HTML & "<font face=verdana size=1>"
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
HTML= HTML & "Art.nr: " & MyArray(2,i) & "<br>"
HTML= HTML &"Produkt: " & MyArray(3,i) & "<br>"
HTML= HTML &"Antal: " & MyArray(1,i) & "<br>"
HTML= HTML & "-------------------------------------------<br>"
IF i = Ubound(myArray,2) then
HTML= HTML &"&nbsp;<br>"
END IF
END IF
Next
HTML= HTML &"Namn: " & info(0) & "<br>"
HTML= HTML & "Adress: " & info(1) & "<br>"
HTML= HTML &"Postnr: " & info(2) & info(3) & "<br>"
HTML= HTML &"Postadress: " & info(4) & "<br>"
HTML= HTML &"Telefonnummer: " & info(5) & "-" & info(6) & "<br>"
HTML= HTML & "E-post: " & info(7) & "<br>"
HTML= HTML &"Övrigt: " & info(8) & "<br>"
HTML= HTML &"Skickat: " & Now() & "<br>"
HTML= HTML &"</font>"


Svara

Sv: aspsmartmail

Postades av 2004-11-18 12:13:40 - Greger Hagström

Hej,

Har du kollat så att den verkligen går in i loopen?
En annan sak, om du använder asp.net skulle jag använda stringbuilder istället för att konkaternera strängar på detta sätt, det blir lite segt om det är sida som besöks ofta.

Mvh


Svara

Sv: aspsmartmail

Postades av 2004-11-18 12:57:09 - peppe olofsson

Sådär nu är det löst... Tack för hjälp!


Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 783
27 960
271 761
679
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies