Snitz Forums 2000 - greeting cards mod

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Snitz Forums 2000 MOD-Group

MOD Add-On Forum (W/O Code)

greeting cards mod

New Topic

Topic Locked

Printer Friendly

Author

Topic

pokemon
Junior Member

151 Posts

Posted - 26 March 2004 : 13:18:16

Can someone help me where to fine a greeting cards mod. I'm searching on snitz forum, but hardly fine it. Thanks

Classicmotorcycling
Development Team Leader

Australia
2085 Posts

Posted - 26 March 2004 : 21:57:43

Pokemon and who ever else,

I have just re-did the greeting card mod I did a while back to work with version 3.4.03 and above, but can be improved on if anyone wants to do it.

The updated mod is at: Greeting Card Mod 1.1

I hope it is what you want.

Cheers,

David Greening

serritzlev
Junior Member

Denmark
291 Posts

Posted - 27 March 2004 : 17:05:40

Hi david i have use this gretings card fore long time ago on my first forums and have pay a web designer to do some change to that here is he files.

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#include file="greeting_cards_con2.asp"--> 
<table border="0" width="100%">
  <tr>
    <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="<%= strImageUrl %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="default.asp">All Forums</a><br>
    <img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open_topic.gif" height=15 width=15 border="0"><a href="greeting_cards.asp">  Greeting Cards</a><br>
    <img src="<%= strImageUrl %>icon_blank.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open_topic.gif" height=15 width=15 border="0"> Greeting Card Sent</a><br>
    </font></td>
  </tr>
</table>
<br>
<%
im = request.form("image")
ida = request.form("id")
title = request.form("title")
toname = request.form("toname")
tomail = request.form("tomail")
fromname = request.form("fromname")
frommail = request.form("frommail")
message = request.form("message")
bgcol = request.form("bgcol")
txtcol = request.form("txtcol")
sound = request.form("sound")
set Conna= Server.CreateObject("ADODB.Connection")
		set rsa = server.CreateObject("ADODB.RecordSet")
		Conna.Open Conn_String
sqla ="select * from sent"
SQLB = "select * from config"
set rsb = conna.execute (sqlb)

RSa.open sqla,Conna,1,3
RSa.AddNew
randomize
rsa("pid") = int(rnd*99999)+1
RSa("card")=im
RSa("fromname")=fromname
RSa("frommail")=frommail
RSa("toname")=toname
RSa("tomail")=tomail
RSa("title")= title
RSa("bgcol")= bgcol
RSa("txtcol")= txtcol
RSa("message")= message
RSa("sentdate")= date()
RSa("sound") = sound
RSa.update
response.write "sent"
ticket = rsa("pid")
mysite = rsb("url")
myname = rsb("myname")
days = rsb("days")

'<!------------------------------------>
%>

<!--#include file="greeting_cards_send_mail.asp"-->

<%
'<!------------------------------------->

	if Err.Number<>0 then
		Response.write "Error: " & Err.description
	else
%>

<center>
<font size ="4">Card has been sent to:<br>
<%=toname%> (<%=tomail%>)<br>
<hr width=25% color=#245495>
<a href = "sitenews.asp"> Return To Start </a></font>
</center>



<%
end if
rsa.close

%>

<%WriteFooter
%>

<%
mailkomponent = 1

'mailserver = "mail.our.com"
mailserver = "mail.our.com"
mailmodtager = tomail
mailafsender = frommail
mailsubject = "You Have a received an e-Card"
mailmessage = mailmodtager &"," & vbCrLf & mailafsender & " " & "has made you an e-card! "& vbCrLf &_
"you can pick up you card on our site" & " "& mysite & vbCrLf & "by entering your ticket which is: " & ticket & vbCrLf & " or simply click on the link to view your card " & vbCrLf & mysite& "greeting_cards_get.asp?ticket="& ticket & vbCrLf & vbCrLf & "Regards" & vbCrLf & myname & vbCrLf & "* Card must be collected within " & days & " days or it will be automatically trashed."

'Set objMail = CreateObject("CDONTS.NewMail")
'objMail.From = 
'objMail.To = 
'objMail.Subject = 
'objMail.Body = mailmessage
'Send the message
'objMail.Send
'Set objMail = nothing

if testsendmail = 1 then
	'mailserver = "smtp.web-sale.dk"
	mailserver = "mail.tele.dk"
	mailmodtager = "testmail_jmail@cht.dk"
	mailafsender = "testmail_jmail@cht.dk"
	mailsubject = "Subject - Testing"
	mailmessage = "Tekst - Testing"
end if

Select case mailkomponent
case 1:
	Set JMail = Server.CreateObject("JMail.SMTPMail")
	JMail.ServerAddress = mailserver
	JMail.ISOEncodeHeaders = false
	JMail.Charset = "iso-8859-1"
	JMail.ContentType = "text/plain"
	'§ JMail.ContentType = "text/html"
	JMail.ContentTransferEncoding = "8bit"
	JMail.Sender = mailafsender
	JMail.Subject = mailsubject
	JMail.AddRecipient mailmodtager
	JMail.Body = mailmessage
	JMail.Priority = 3
	if JMail.Execute then
		'Response.Write "Mail sent..."
	else
		'Response.Write "Mail send failure. Error was " & Mailer.Response
		Response.Write "Mail send failure."
	end if
	set JMail = nothing

Case 2:
	Set NewMailObj = Server.CreateObject("CDONTS.NewMail")
	NewMailObj.From = mailafsender
	NewMailObj.To = mailmodtager
	NewMailObj.Subject = mailsubject
	NewMailObj.BOdy = mailmessage
	NewMailObj.Send
	Set NewMailObj = Nothing

Case 3:
	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	Mailer.FromName   = mailafsender
	Mailer.FromAddress= mailafsender
	Mailer.RemoteHost = mailserver
	Mailer.AddRecipient mailmodtager, mailmodtager
	Mailer.Subject    = mailsubject
	Mailer.BodyText   = mailmessage
	if Mailer.SendMail then
	  Response.Write "Mail sent..."
	else
	 Response.Write "Mail send failure. Error was " & Mailer.Response
	end if
Case Else
	response.write "<b>Fejl ved afsendelse af mail. Der mangler et komponent til afsendelse af mail!</b>"
End Select
%>

But i have done my owen and that works fine fore me in sh, crash and images forums but not use this fetures today becourse my isp suport this fetures on email to day and here is my that use the mail from forums to it.

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#include file="greeting_cards_con2.asp"--> 
<table border="0" width="100%">
  <tr>
    <td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <img src="<%= strImageUrl %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="default.asp">All Forums</a><br>
    <img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open_topic.gif" height=15 width=15 border="0"><a href="greeting_cards.asp">  Greeting Cards</a><br>
    <img src="<%= strImageUrl %>icon_blank.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open_topic.gif" height=15 width=15 border="0"> Greeting Card Sent</a><br>
    </font></td>
  </tr>
</table>
<br>
<%
im = request.form("image")
ida = request.form("id")
title = request.form("title")
toname = request.form("toname")
tomail = request.form("tomail")
fromname = request.form("fromname")
frommail = request.form("frommail")
message = request.form("message")
bgcol = request.form("bgcol")
txtcol = request.form("txtcol")
sound = request.form("sound")
set Conna= Server.CreateObject("ADODB.Connection")
		set rsa = server.CreateObject("ADODB.RecordSet")
		Conna.Open Conn_String
sqla ="select * from sent"
SQLB = "select * from config"
set rsb = conna.execute (sqlb)

RSa.open sqla,Conna,1,3
RSa.AddNew
randomize
rsa("pid") = int(rnd*99999)+1
RSa("card")=im
RSa("fromname")=fromname
RSa("frommail")=frommail
RSa("toname")=toname
RSa("tomail")=tomail
RSa("title")= title
RSa("bgcol")= bgcol
RSa("txtcol")= txtcol
RSa("message")= message
RSa("sentdate")= date()
RSa("sound") = sound
RSa.update
response.write "sent"
ticket = rsa("pid")
mysite = rsb("url")
myname = rsb("myname")
days = rsb("days")

'<!------------------------------------>
'if lcase(strEmail) = "1" then
		if (Err_Msg = "") then
			strRecipientsName = Request.Form("toname")
			strRecipients = Request.Form("tomail")
			strFromName = Request.Form("namefrom")
			strFrom = Request.Form("frommail")
			strsubject = namefrom & "has sent you a Greeting!"
			strMessage = "Hello " & fromname & vbCrLf & vbCrLf
			strMessage = strMessage & namefrom & "(" & frommail & ")" & " has sent you a Greeting!"& vbCrLf &_
"you can pick up you card on our site" & " "& mysite & vbCrLf & "by entering your ticket which is: " & ticket & vbCrLf & " or simply click on the link to view your card " & vbCrLf & mysite& "greeting_cards_get.asp?ticket="& ticket & vbCrLf & vbCrLf 

			strMessage = strMessage & "Regards" & vbCrLf & myname & vbCrLf   

			strMessage = strMessage & "* Card must be collected within " & days & " days or it will be automatically trashed." & vbCrLf

			separatore = "______________________________________"
			separatore = separatore & chr(13) & chr(10) & separatore & chr(13) & chr(10) & vbCrLf & vbCrLf
			strMessage = strMessage & separatore &"This card was sent and created with the postcardservice at http://www.assy.dk"

	end if
'<!------------------------------------->
%>
<!--#INCLUDE FILE="inc_mail.asp" -->


<% 

	if Err.Number<>0 then
		Response.write "Error: " & Err.description
	else
%>




<center>
<font size ="4">Card has been sent to:<br>
<%=toname%> (<%=tomail%>)<br>
<center><hr width=33% color=#668fc7>
<a href = "sitenews.asp"> Return To Start </a></font>
</center>



<%
end if
rsa.close

%>

<%WriteFooter%>

And have works fine on my old host.

enjoy it

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.27 seconds.