webForumDet fria alternativet

långsam JMail

ASP

0 svar · 170 visningar · startad av rollo

Medlem sedan aug. 2001203 inlägg
Frågan#1

Hej!

Jag har problem med JMail!

Jag använder det för att skicka mail till den personen som lagt orginalinlägget i ett forum när någon svara på hans inlägg.

Det tar fruktansvärt lång tid för sidan att laddas och mailet kommer innan sidan laddats färdigt!

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\data\iforum.mdb"

	tmp_id = request("MessageId")

	SQL3 = "SELECT * FROM entries where id ="& tmp_id
	Set RS6 = Connection.Execute(SQL3)
	
	tmp_full_name = rs6("full_name")
	tmp_full_name2 = "'"& tmp_full_name &"'"

	if rs6("email") = "" then
	else
	
		if request("anonym") = off then
			Name = Request("name")
		else
			name = "Anonym"
		end if
		SenderEmail = "mailadress"
		Recipient = rs6("email") 

		tmp_reply_name = name
		tmp_amne = rs6("subject")
		tmp_forumid = rs6("forumid")
		
		Set JMail = Server.CreateObject ("JMail.Message") 
		
		
		jmail.AddRecipient recipient
		jmail.From = "mailadress"
		jmail.Priority = 4
	
	
	
			Set Connection = Server.CreateObject("ADODB.Connection")
			Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\intranet\data\members2.mdb"

			SQL4 = "SELECT * FROM members where full_name ="& tmp_full_name2
			Set RS7 = Connection.Execute(SQL4)
	
		if rs7("lang") = "eng" then

		jmail.Subject = "Reponse to your posting: " & tmp_amne & ""
			
		jmail.HTMLBody = "<html><body bgcolor=ffffff>Hi!<br><br>" & tmp_reply_name & " has answered your posting - " & tmp_amne & " <br>"
		jmail.appendHTML "<br><br>Webmaster</body></html>"
		
		else
	
		jmail.Subject = "Svar på ditt inlägg: " & tmp_amne & ""

			
		jmail.HTMLBody = "<html><body bgcolor=ffffff>Hej!<br><br>" & tmp_reply_name & " har svarat på ditt inlägg - " & tmp_amne & " <br>"
		jmail.appendHTML "<br><br>Webmaster</body></html>"
		
		end if
		
		' But as not all mailreaders are capable of showing HTML emails
		' we will also add a standard text body
		jmail.Body = "Too bad you can't read HTML-mail."

		jmail.Send( "mailserver" )	

		
	end if

Var är det som är fel?

Servern det ligger på är en win2k server med alla service pack, client access (terminal emuleringsprogram).

Databasen som namn och e-postadress hämtas från är en access97 databas.

rollo

254 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
118 ms — deklarationer (db)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)