webForumDet fria alternativet
Logga in / Bli medlem

HJÄLP!!!

ASP

11 svar · 511 visningar · startad av abraqadabra

abraqadabraMedlem sedan feb. 20036 inlägg
Frågan#1

Hej!

Jag är i stort behov av snabb hjälp bitte!
Hade precis gjort klart en sida åt en kund med deadline på söndag, denna söndagen. Det är så att denna kunden vill ha ett emailformulär med på sidan
så jag gjorde som jag alltid gjort tidigare när jag behövt göra detta, ändrade
snabbt i min cdont kod. Men nu visare det sig att webhotellet vi har inte stödjer
CDONT, däremot JMAIL. Problemet är att jag aldrig skrivit ngn kod för jmail tidigare och jag har ingen aning om hur den skall se ut. Sidan är gjord i flash
och sänder 5 stringar till asp scriptet, name, message, email, etc. Detta skall sedan i sin tur skickas till min admin mail adress. Hur skulle detta JMAIL script kunna se ut?? nedanstående är den cdont kod jag använt mig av tidigare.

<%@ LANGUAGE="VBSCRIPT" %>
<html>

<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" content="text/html;charset=iso-8859-1">
<title>CDONTSMail</title>
<%
Sub Write(strWriteThis)
'This subroutine just writes out whatever is
'passed to it.
response.write(strWriteThis & "<br>")
end sub

  %\>

</head>

<body>
<%
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strMessage
Dim lngImportance

strFrom=request.form("txtFrom")
     strTo="myemail@site.com"
     strSubject = "Mail from mysite"
     strBody="Name: " & request.form("txtName") & CHR(13) & "Company: " & request.form("txtCompany") & CHR(13) & "Position: " & request.form("txtPosition") & CHR(13) & "Message: " & request.form("txtMessage")

     Set myCDONTSMail = CreateObject("CDONTS.NewMail")

     myCDONTSMail.Send strFrom,strTo,strSubject,strBody

     Set myCDONTSMail  = Nothing
     'Write "Mail has been sent."
     %\>

</body>
</html>

Hoppas ngn har tid att hjälpa mig!

ha det!

Engine^s avatarEngine^Medlem sedan dec. 20003 887 inlägg
#2

Jag vet inte hur man använder JMail, men det finns gott om dokumentation.

w3 JMail 4.3

abraqadabraMedlem sedan feb. 20036 inlägg
#3

hittade en annan kod snutt ifrån en annan post på denna sidan och gjorde några små ändringar i den för att se om det funkade men inte heller den här verkar fungera, vet inte om jag gjort ngt fel i koden eller inte?

[
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Option Explicit
Dim fornamn, efternamn, email, hemsida, telefon, telefax, meddelande, subject, recipient, web_site, msg

'_________________________________________

fornamn = Request.Form("txtName")
efternamn = Request.Form("txtName")
email = Request.Form("txtFrom")
hemsida = Request.Form("txtCompany")
telefon = Request.Form("txtPosition")
telefax = Request.Form("telefax")
meddelande = Request.Form("txtMessage")

'_________________________________________

subject = "Mail Från Hemsidan..."
recipient = "abraqadabra@hotmail.com"

'_________________________________________

Server.HTMLEncode("fornamn")
Server.HTMLEncode("efternamn")
Server.HTMLEncode("meddelande")

'_________________________________________

if left(hemsida, 11) = "http://www." then
web_site = hemsida
end if

if left(hemsida, 4) = "www." then
web_site = "http://" & hemsida
end if

if not instr(hemsida, ".") >0 then
web_site = "Ingen Hemsida"
end if

'_________________________________________

set msg = Server.CreateOBject( "JMail.Message" )

msg.From = email
msg.FromName = fornamn & " " & efternamn
msg.AddRecipient recipient
msg.Subject = subject

'_________________________________________

msg.body = "Namn: " & fornamn & " " & efternamn & vbcrlf & "Emailadress: " & email & vbcrlf & "Hemsida: " & web_site & vbcrlf & "Telefonnummer: " & telefon & vbcrlf & "Telefaxnummer: " & telefax & vbcrlf & vbcrlf & "Meddelande: " & vbcrlf & meddelande

'_________________________________________

if not msg.Send("smtp-au.server-mail.com" ) then
Response.write "&skickat=nej"
else
Response.write "&skickat=ja"
end if
%>

</body>
</html>
]

Vides avatarVideMedlem sedan dec. 19998 577 inlägg
#4

Berätta vad du får för fel så kanske vi kan hjälpa till lite bättre. :)

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#5

...och använd [kod]-taggar så är det lättare för oss att läsa koden.

mvh,

abraqadabraMedlem sedan feb. 20036 inlägg
#6

Det är det som är problemet, jag får inget fel. Bara det att inget händer. Dvs jag får inget email. Om jag testar det hela i flash och lägger in ett dynamiskt text fält för att testa variabeln "skickat" i flash så säger den "ja" så så långt verkar det funka. Grejen är den att jag emailat systemadministratören för webhotellet och denne säger att jag skall använda mig av JMAIL så jag får anta att det skall fungera i den änden då. Nedanför kan ni läsa om vad de sa:

Detta stod i ett meddelande jag fick ifrån deras webkontakt system:

Unfortunately we don't allow CDONTS, however you can do much the same thing with JMail. It allows you to send and retrieve emails from your web site without a mail program or mail server such as Outlook or Eudora.

I have emailed through to kmio@kth.se sample conversion scripts when going from CDONTs to JMail.

Let us know if you have any further questions.

Och detta stod i emailet:

Below is a sample conversion script when going from CDONTs to Jmail.

Sample CDONTS script:
<%
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "user@domain.com"
objMail.Subject = "email with CDONTS"
objMail.To = "user@domain.com"
objMail.Body =
objMail.Send
Response.write("Mail was Sent")
set objMail = nothing
%>
Sample Jmail script:

<%
Set objMail = Server.CreateObject("Jmail.Message")
objMail.From = "user@domain.com"
objMail.Subject = "email with Jmail"
objMail.AddRecipient "user@domain.com"
objMail.Body = "Test" & vbcrlf&_ "with JMAIL."
objMail.Send ("smtp-au.server-mail.com")
Response.write("Mail was Sent")
set objMail = nothing
%>

Changes made:

Server.CreateObject("CDONTS.NewMail") ->
Server.CreateObject("Jmail.Message")

objMail.To = "user@domain.com" -> objMail.AddRecipient "user@domain.com"

objMail.Send -> objMail.Send ("smtp-au.server-mail.com")

This is a straightforward example. CDONTS may support further properties or
methods which might need conversion

Tack igen!

Sorry för att alla fel med tagsen, är ny här och väldigt stressad :(

Jesper Ts avatarJesper TMedlem sedan nov. 20017 144 inlägg
#7

Använder du rätt mailserver då?

abraqadabraMedlem sedan feb. 20036 inlägg
#8

jo det gör jag, tog "smtp-au.server-mail.com" ifrån deras mail, det borde ju vara rätt?

Vides avatarVideMedlem sedan dec. 19998 577 inlägg
#9

Är "smtp-au.server-mail.com" rätt server att skicka ifrån, eller har webhotellet en annan adress?

/R
Lite seg där... ;)
Kolla upp med dom vilken serveradress du skall skicka ifrån.

abraqadabraMedlem sedan feb. 20036 inlägg
#10

jupp det var rätt adress, jag börjar undra om de inte har fuckat upp den här grejen totalt, läste detta nu på deras info sida:

Subject JMail ServerAddress
Modified 2001-12-06 10:17:29
Details: Customers using JMail should to set their ServerAddress property to "smtp.bne.server-mail.com" or "smtp-au.server-mail.com"; which points at the Layer 4 switch. This should ensure that they always get a live mailserver.

You may find if they use their mail.domainname.com etc mail cannot be sent. This is because of new firewalling restrictions against some of the smtp clusters (mail.domainname.com points to these clusters).

Låter som om man med andra ord inte kan använda sig av JMAIL alls då? och iom att JMAIL e det enda systemet de använder sig av, såvida jag inte gör det med ett cgi script så är jag rätt körd? verkar ju helt otroligt, det skall ända vara ett rätt så stort företag i Australien...

Toonsters avatarToonsterMedlem sedan feb. 20001 590 inlägg
#11

Ibland måste man använda sig av en "giltig" "from" adress för att det ska funka, dvs alla mail som skickas kanske måste ha en giltig "från adress" från ert webbkonto

[red.]
msg.From = email

här kanske email måste vara en adress kopplad till erat webbkonto

abraqadabraMedlem sedan feb. 20036 inlägg
#12

ok detta skall kollas upp omgående, tack för hjälpen så länge

284 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
131 ms — deklarationer (db)
0 ms — hämta statistik (cache)
150 ms — hämta tråd, inlägg och bilagor (db)
126 ms — ändringar (db)