Sitephoria Knowledge Base

Frequently Asked Questions about Sitephoria Hosting
It is currently Sat May 25, 2019 8:26 am

All times are UTC - 6 hours [ DST ]




Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 1 post ] 
Author Message
 Post subject: ASP Components Available
PostPosted: Tue Mar 05, 2002 7:47 pm 
Offline
Site Admin

Joined: Tue Mar 05, 2002 4:22 am
Posts: 107
Components List

Components available for use with the SITEPHORIA Windows environment:

ASP Mail 4.0
ASP JPEG 1.2
ASP UPLOAD 2.6
ASP Encrypt 2.1
CDONTS
JMAIL
SA-FileUP 3.5
SOAP Toolkit 2.0 SP1
CGZIP
SmartMail
SmartUpload

E-Commerce Gateways:
PayFlowPro (replacement of Cybercash which is discontinued)
Moneris - PayGateway
PSI Gate
CyberOffice Platform 2002


Sample Code for Components

Please refer to the following code examples when using these components:

ASPMail

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = Request.Form("yourname")
Mailer.FromAddress = Request.Form("youraddress")
Mailer.RemoteHost = "mail.domain_name.com"
Mailer.AddRecipient Request.Form("toname"), Request.Form("toaddress")
Mailer.AddCC Request.Form("ccname"), Request.Form("ccaddress")
Mailer.Subject = Request.Form("subject")
message = "Message: " & Request.Form("message")
message = message & vbCRLF
Mailer.BodyText = message
if Mailer.SendMail then %>


ASPUpload

<%
'Authorize User
' Uplolad Script
Dim members_path
path = Server.MapPath("/")
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save path
For Each File in Upload.Files
If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
Response.Write "GIF or JPG files only please!<BR>"
End If
If File.ImageWidth > 150 OR File.ImageHeight > 150 Then
Response.Write "Image cannot exceed 150 pixels squared.<BR>"
End IF
If File.Size > 500000 then
Response.Write("Too Much!<BR>")
End If
Response.Write File.Path & " (" & File.Size &")<BR>"
Next
%>

CDONTS

<%
Set objMail=Server.createobject("CDONTS.NewMail")
objMail.From=strEmail
objMail.To="username@domain.com"
objMail.Subject=strSubject
objMail.Body=strDetails & vbcrlf & vbcrlf & strCompany & vbcrlf & strFirstName & " "
& strLastName
objMail.send
%>

JMail

<%
' Get the form data
name = Request.Form("name")
senderEmail = Request.Form("email")
recipient = Request.Form("recipient")
body = Request.Form("body")
' Create the JMail message Object
set msg = Server.CreateOBject( "JMail.Message" )
' Set logging to true to ease any potential debugging
' And set silent to true as we wish to handle our errors yourself
msg.Logging = true
msg.silent = true
' Enter the sender data
msg.From = senderEmail
msg.FromName = name
' Note that as addRecipient is method and not
' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient
' The subject of the message
msg.Subject = subject
' And the body
msg.body = body
' Now send the message, using the indicated mailserver
if not msg.Send("mail.domain_name.com" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if
' And we're done! The message has been sent.
%>

SA FileUp

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("/directory_name")
upl.SaveAs "upload.tst"
%>


Top
 Profile  
 
Display posts from previous:  Sort by  
Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 1 post ] 

All times are UTC - 6 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Group