Japp det kan det ;)
Nej men seriöst, ta ett av exempeln som finns och modifiera det, det är det enklaste sättet att göra det på.
15 svar · 701 visningar · startad av Brazzan
Nån som kan förklara för mig hur jag ska installera JMail på min IIS server för att få det fungera?? Jag har programet och jag har läst manualen, men jag fattar inte. Kan va att jag e trög?
Japp det kan det ;)
Nej men seriöst, ta ett av exempeln som finns och modifiera det, det är det enklaste sättet att göra det på.
Alltså, jag fattar inte. Först måste jag installera det. Ok det har jag gjort. C:/program osv osv. Sen ska jag registrera så IIS fattar att det e installerat(Så har jag förstått det i alla fall). Men jag fattar inte hur jjag ska registrera det. jag har kodat allt klart. Men nu fattas det bara själva JMail
Jag får följande fel när jag kör scriptet.
Teknisk information (för supportpersonal)
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01C2)
Fel antal argument eller felaktig egenskapstilldelning.: 'AddRecipient'
/web/order.asp, line 74
Webbläsare:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Sida:
POST 150 bytes to /web/order.asp
POST Data:
namn=sdad&adress=sdfdsd&postnr1=23&postnr2=33&postadress=asdas&tfn1=32&tfn2=23&epost=stoffeg@hotmail.com&ovrigt=ds&Submit2=Skicka+best%E4llning+%3E%3E
Tid:
den 21 juli 2004, 22:22:06
Mer information:
Microsoft Support
Såhär ser koden ut:
<!--#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 jmail = server.createobject("jmail.smtpmail")
jmail.AddRecipient ""& eposten &"", ""& eposten &""
jmail.From = "" & info(7) & ""
jmail.Subject = "Beställning"
jmail.appendHTML "<font face=verdana size=1>"
For i = 0 To Ubound(myArray,2)
IF Len(MyArray(0,i)) > 0 then
jmail.appendHTML "<b>Art.nr: </b>" & MyArray(2,i) & "<br>"
jmail.AppendHTML "<b>Produkt: </b>" & MyArray(3,i) & "<br>"
jmail.AppendHTML "<b>Antal: </b>" & MyArray(1,i) & "<br>"
jmail.AppendHTML "-------------------------------------------<br>"
IF i = Ubound(myArray,2) then
jmail.AppendHTML " <br>"
END IF
END IF
Next
jmail.appendHTML "<b>Namn: </b>" & info(0) & "<br>"
jmail.appendHTML "<b>Adress: </b>" & info(1) & "<br>"
jmail.appendHTML "<b>Postnr: </b>" & info(2) & info(3) & "<br>"
jmail.appendHTML "<b>Postadress: </b>" & info(4) & "<br>"
jmail.appendHTML "<b>Telefonnummer: </b>" & info(5) & "-" & info(6) & "<br>"
jmail.appendHTML "<b>E-post: </b>" & info(7) & "<br>"
jmail.appendHTML "<b>Övrigt: </b>" & info(8) & "<br>"
jmail.appendHTML "<b>Skickat: </b>" & Now() & "<br>"
jmail.appendHTML "</font>"
jmail.Send(mailserver)
For Each nyckel in Request.Cookies(Session.SessionID)
Response.Cookies(Session.SessionID)(nyckel) = ""
Next
sida = Request.ServerVariables("HTTP_REFERER") & "&skickad=ja"
Response.Redirect sida
%>
Nån som vet?
varför har du massa dubbelfnuttar? :(
å lägg din kod i kod-tagar..
jmail.AddRecipient eposten
ska räcka.
Kan det ha att göra med att jag måste registrera JMail på nån vänster? Eller?. Har alldrig använt JMail.
när du skriver kod här på webforum ska du använda kod-taggar..
självklart måste du registrera jmail, men om du inte gjort det borde du fått fel på raden där du instansiera det..
ok. Men vad kan det va för fel da?
Gå igenom manualen.. Att registrera komponenten är inte alls svårt och tar max 1 minut.
Jag har gått igenom manualen. Och jag har inte fått det att fungera. Måste i så fall bero på att jag e MKT trög! Men alltså det står inte hur man ska göra. De skriver det som om man fattar exakt vad de menar och tar saker för givet. som t.ex "du måste registrera JMail.. inan du kan använda det." Dom beskriver inte hur jag ska göra det.
(Inte arg på någon)
Saxat ifrån manualen som ligger på Dimac.net:
To use Dimac’s w3 JMail you must have the jmail.dll registered at your web
server. This is done by either running the installation program or by copying
the jmail.dll fi le to your web server and manually registering it with the command
regsvr32 jmail.dll.
ok. Jag har installerat programet. E det allt?
Isåfall så e det ju itne det som e problemet.
Vad innehåller variabeln eposten?
Var får den sitt värde? Har du gett den variabeln fel namn?
Det kan ju vara en bra ide att använda sig av uteslutningsmetoden när något inte fungerar, mao så lite påbyggt som möjligt och sen ta bit för bit. Tex med en hårdkodad variabel i detta fall.