Newest KB Articles in Sample code

How to connect to MySQL with PHP

Wed, 18 Aug 2010 00:35:01 GMT

MySQL database connection settings can be found at Winhost Control Panel > Sites > the domain name > MySQL > Manage (applicable database). In the example script below, replace ServerName, DatabaseUsername and DatabasePassword.

<?php
$servername = "ServerName";
$username = "DatabaseUsername";
$password = "DatabasePassword";

$conn = new mysqli($servername, $username, $password);

if ($conn->connect_error) {
  die("Connection failed: " . $conn->connect_error);
}
echo "Connected successfully";
?>

For more information on mysqli_connect see https://www.php.net/manual/en/mysqli.construct.php.

How to connect to MySQL with ASP.Net

Mon, 16 Aug 2010 21:46:00 GMT

<%@ import namespace="System.Data" %> 
<%@ import namespace="MySql.data.MySqlclient" %> 
<%@ import namespace="MySql.data.MySqlclient.MySqlConnection" %> 
<Script runat="server"> 
    Sub page_load() 
        Dim dbconn As MySqlConnection 
        Dim dbCMD As MySqlCommand 
        Dim dtr As MySqldatareader 
        dbconn = New MySqlConnection("server=MySQL Server;database=MYSQL_database;user=DB Login;port=3306;password=DB password;") 
        dbconn.open() 
        dbCMD = New Mysqlcommand("select * from table_name", dbconn) 
        dtr = dbCMD.executereader() 
        While dtr.read() 
            Response.Write("<li>") 
            Response.Write(dtr(0) & "---" & dtr(1)) 
        End While 
        dtr.close() 
        dbconn.close() 
    End Sub 
</Script>

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.

How to set up a connection string so that communication with the SQL server is encrypted

Thu, 14 Jan 2010 00:21:14 GMT

The connection string below is an example that specifies the use of encryption. Essentially you are using the connection string from the SQL section of your control panel and adding encrypt=true to the end. Setting the encrypt property to true will cause the transmission of data to and from the SQL server to be encrypted.

<connectionStrings> <add name="MyConnection" connectionString="Data Source=server;Initial Catalog=database;User ID=username;Password=password; encrypt=true;TrustServerCertificate=true" providerName="System.Data.SqlClient"/> </connectionStrings>

Sample code to connect to an MS SQL database using php

Fri, 04 Sep 2009 22:37:46 GMT

Below is a simple PHP script to demonstrate how to connect to a MS SQL database using the php MS SQL driver.

<?php
$serverName = "serverName";
$connectionInfo = array( "Database"=>"databaseName", "UID"=>"userName", "PWD"=>"password", "TrustServerCertificate"=>True);
$conn = sqlsrv_connect( $serverName, $connectionInfo);

if( $conn ) {
     echo "Connection established.<br />";
}else{
     echo "Connection could not be established.<br />";
     die( print_r( sqlsrv_errors(), true));
}
?>

How to query an Access 2007 database with ASP using a DSN-less connection

Fri, 04 Sep 2009 22:36:31 GMT

	
			<%  
		
			Dim cnnSimple ' ADO connection  
		
			Dim rstSimple ' ADO recordset  
		
			Set cnnSimple = Server.CreateObject("ADODB.Connection")  
		
			' DSNLess  
		
			cnnSimple.Open ("Provider= Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("\test.accdb"))  
		
			Set rstSimple = cnnSimple.Execute("SELECT * FROM tbltest")  
		
			%> 
		
			<P> Connecting to Access with Ole connection </P> 
		
			<table border="1">  
		
			<%  
		
			Do While Not rstSimple.EOF  
		
			%> 
		
			 <tr> 
		
			  <td><%= rstSimple.Fields(0).Value %></td>  
		
			  <td><%= rstSimple.Fields(1).Value %></td>  
		
			 </tr> 
		
			<%  
		
			rstSimple.MoveNext  
		
			Loop  
		
			%> 
		
			</table> 
		
			<%  
		
			rstSimple.Close  
		
			Set rstSimple = Nothing 
		
			cnnSimple.Close  
		
			Set cnnSimple = Nothing 
		
			%>

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.

Persits ASPEmail sample code

Tue, 25 Aug 2009 21:25:34 GMT

Persits ASPEmail sample code

<html> 
<head> 
</head> 
<body> 
<% 
 
Set Mailer = Server.CreateObject("Persits.MailSender") 
 
Mailer.Host = "m##.internetmailserver.net" 
Mailer.Username = "postmaster@domain.com" 
Mailer.Password = "password" 
Mailer.FromName   = "postmaster@domain.com" 
Mailer.From= "postmaster@domain.com" 
Mailer.AddAddress "postmaster@mydomain.com" 
Mailer.Subject    = "This is a sample email sent from Persits ASPEMail" 
Mailer.Body   = "Congratulation" & VbCrLf & "If you receive this is, your mail component works" 
 
' catch errors 
On Error Resume Next 
 
Mailer.Send 
 
If Err <> 0 Then ' error occurred 
      Response.Write "Mail send failure. Error was " & Err.Description 
else 
     Response.Write "Mail sent..." 
End If 
 
%> 
</body> 
</html> 

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.

Sample code to resize an image with ASPJpeg

Tue, 25 Aug 2009 21:22:10 GMT

Sample code to resize an image with ASPJpeg 2.9.0.0.

You will need to customize the imagePath and image_name variables. See comments in code.

	
			<HTML> 
		
			<HEAD> 
		
			<TITLE>AspJpeg - Simple.asp</TITLE> 
		
			</HEAD> 
		
			<BODY> 
		
			<% 
		
			 ' Path and name to the location of the image file 
		
			 imagePath = "/images" 
		
			 image_name = "images.jpg" 
		
			 ' Name of the resized image file 
		
			 new_image_filename = "clock_small.jpg" 
		
			 ' Create instance of AspJpeg 
		
			 Set Jpeg = Server.CreateObject("Persits.Jpeg") 
		
			 ' Compute path to source image 
		
			 Path = Server.MapPath(imagePath & "/" & image_name) 
		
			 ' Open source image 
		
			 Jpeg.Open Path 
		
			 ' Decrease image size by 50% 
		
			 JpegJpeg.Width = Jpeg.OriginalWidth / 2 
		
			 JpegJpeg.Height = Jpeg.OriginalHeight / 2 
		
			 ' Apply sharpening if necessary 
		
			 Jpeg.Sharpen 1, 130 
		
			 ' create thumbnail and save it to disk 
		
			 Jpeg.Save Server.MapPath(imagePath & "/" & new_image_filename) 
		
			%> 
		
			Original Image:<BR> 
		
			<IMG SRC="<%=imagePath & "/" & image_name%>"><P> 
		
			Thumbnail (50% reduction):<BR> 
		
			<IMG SRC="<%=imagePath & "/" & new_image_filename%>"><P> 
		
			<% 
		
			 Response.Write "<HR>AspJpeg expires on " & Jpeg.Expires 
		
			%> 
		
			</BODY> 
		
			</HTML>

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.

Persits ASPUpload sample code

Tue, 25 Aug 2009 21:19:07 GMT

Persits ASPUpload (version 3.1.0.2) sample code

Filename: aspupload1.asp

Please ensure that /aspupload directory exist on your site before trying to upload the files. You can also change it to any other directory in the code below.
(referred to by Form Upload Page below)

	
			<HTML> 
		
			<BODY> 
		
			<% 
		
			Set Upload = Server.CreateObject("Persits.Upload") 
		
			count = upload.savevirtual ("/aspupload") 
		
			Response.Write Count & " file(s) uploaded" 
		
			%> 
		
			</BODY> 
		
			</HTML>

Form Upload Page:

	
			<html> 
		
			<head> 
		
			</head> 
		
			<body bgcolor="#ffffff"> 
		
			    <form action="aspupload1.asp" method="post" enctype="multipart/form-data"> 
		
			        <input type="file" size="40" name="FILE1" /> 
		
			        <br /> 
		
			        <input type="submit" value="Upload!" /> 
		
			    </form> 
		
			</body> 
		
			</html>

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.

How to send email in ASP.NET

Sat, 15 Aug 2009 01:03:41 GMT

Basic examples of sending mail using System.Net.Mail in C# and VB.NET. Settings that require updating highlighted in red.

Trust Level and TLS Requirements

The scripting will require that the Trust Level is set to Full in a site's web.config, syntax example

<?xml version="1.0" encoding="UTF-8"?>
<configuration>
  <system.web>
    <trust level="Full"/>
  </system.web>
</configuration>

TLS 1.2 is also required in order to make an encrypted connection to the mail server. If TLS 1.2 is not already forced for a site / application, bootstrapping code needs to be added to the mail scripting with syntax differing slightly between C# and VB.NET. Highlighted in red in the below scripting examples.

System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12;

VB.NET

System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType)

C# Example

<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.Net.Mail" %>

<script language="C#" runat="server">
  protected void Page_Load(object sender, EventArgs e)
  {
    System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12;
    MailMessage mail = new MailMessage();

    mail.From = new MailAddress("postmaster@domain.com");
    mail.To.Add("postmaster@domain.com");

    mail.Subject = "Test email sent from System.Net.Mail";
    mail.Body = "Mail test";
    mail.Headers.Add("Message-Id",
                      String.Format("<{0}@{1}>",
                      Guid.NewGuid().ToString(),
                      "domain.com"));

    SmtpClient smtp = new SmtpClient("m0#.internetmailserver.net");

    NetworkCredential Credentials = new NetworkCredential("postmaster@domain.com", "password");
    smtp.Credentials = Credentials;
    smtp.EnableSsl = true;
    smtp.Port = 25;
    smtp.Send(mail);
    lblMessage.Text = "Mail Sent";
  }
</script>
<html>
<body>
  <form runat="server">
    <asp:Label id="lblMessage" runat="server"></asp:Label>
  </form>
</body>
</html>

VB.NET Example

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Net.Mail" %>
<script runat="server">
  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

    System.Net.ServicePointManager.SecurityProtocol = DirectCast(3072, System.Net.SecurityProtocolType)
    Dim strFrom = "postmaster@domain.com"
    Dim strTo = "postmaster@domain.com"
    Dim Mail As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(strTo))
    Mail.BodyEncoding = Encoding.Default
    Mail.Subject = "Test email sent from System.Net.Mail"
    Mail.Body = "Mail test"
    Mail.Headers.Add("Message-Id",
                      String.Format("<{0}@{1}>",
                      Guid.NewGuid().ToString(),
                      "domain.com"))
    Mail.Priority = MailPriority.High
    Mail.IsBodyHtml = True

    Dim SmtpMail As New SmtpClient
    Dim basicAuthenticationInfo As New System.Net.NetworkCredential("postmaster@domain.com", "password")

    SmtpMail.Host = "m0#.internetmailserver.net"
    SmtpMail.UseDefaultCredentials = False
    SmtpMail.Credentials = basicAuthenticationInfo
    SmtpMail.EnableSsl = true
    SmtpMail.Port = 25

    SmtpMail.Send(Mail)
    lblMessage.Text = "Mail Sent"
  End Sub
</script>
<html>
<body>
  <form runat="server">
    <asp:Label id="lblMessage" runat="server"></asp:Label>
  </form>
</body>
</html>

How to query an SQL database with .NET SQL Data Provider in ASP.NET

Sat, 15 Aug 2009 00:58:49 GMT

	
			<%@ import namespace="system.data.sqlclient" %> 
		
			<Script runat="server"> 
		
			Sub page_load 
		
			            Dim dbconn as sqlconnection 
		
			            Dim dbCMD as sqlCommand 
		
			            Dim dtr as sqldatareader 
		
			            dbConn = New SQLConnection ("Data Source=DBSERVERNAME;Initial Catalog=YOURDBNAME;User ID=YOURUSERID;Password=YOURPASSWORD") 
		
			            dbConn.open() 
		
			            dbCMD = new sqlcommand ("select * from tblTest",dbconn) 
		
			            dtr = dbCMD.executereader() 
		
			            While dtr.read() 
		
			                        response.write ("<li>") 
		
			                        response.write (dtr(0) & "---" & dtr(1)) 
		
			            End while 
		
			            dtr.close() 
		
			            dbConn.close() 
		
			End Sub 
		
			</Script>

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.