© 2005 - 2024
Web and Database Design & Creation
- Ξ X

I specialise in web programming in HTML and ASP.net with integration to SQL and other API systems, see an example below

HTML / CSS / JAVASCRIPT
X
<!-- Don't worry, I understand all this code so you don't have to.
Contact me if you you have any enquiries webdesign@knash.uk -->

<html>
<head>
<title> webdesign . knash . uk </title>
<style>
body { font-family : courier; text-align : center; }
</style> <script>
function thankyou() {alert("Thank you for your interest")}
</script>
</head>
<body>
<h1>I have skills in creating the following</h1>

<h2>Please choose what you need</h2>

<asp:CheckBoxList runat="server" ID="cblChoose">
<asp:ListItem> Website </asp:ListItem>
<asp:ListItem> Database </asp:ListItem>
<asp:ListItem> Custom Designed Site </asp:ListItem>
<asp:ListItem> Integration With Other Services via API </asp:ListItem>
</asp:CheckBoxList>

<p>Details : <asp:TextBox runat="server" ID="tbDetails" TextMode="MultiLine" /></p>

<p> Please enter your details below : </p>

<p>Name : <asp:TextBox runat="server" ID="tbName" /></p>

<p>Email : <asp:TextBox runat="server" ID="tbEmailAddress" /></p>

<p><asp:Button runat="server" ID="btnSend" Text="Send" OnClick="btnSend_Click" /></p>
</body>
</html>

<!-- Click the i button below to see this page in action -->
ASP.NET / SQL / API
X
'Don't worry, I understand all this code so you don't have to.
Contact me if you you have any enquiries webdesign@knash.uk

Imports System.Data.SqlClient
Imports System.Net.Mail

Public Class Enquiry
Sub Page_Load () Handles Me.Load 'List My Skills
Using connection As New SqlConnection (SQL_Database)
connection.Open()
cblChoose.Items.Clear()

Dim command As New SqlCommand ("SELECT Name FROM Skills", connection)
Dim command As SqlDataReader = command.ExecuteReader()

While reader.Read
cblChoose.Items.Add( reader.GetValue(0) )
End While
reader.Close()

connection.Close()
End Using
End Sub

Sub btnSend_Click() 'Send an email with equiry details
Dim smtp As New SmtpClient
Dim mail As New MailMessage()
Dim interests As String = ""

mail.[To].Add("webdesign@knash.uk")
mail.Subject = "New Enquiry"

For Each item As ListItem In cblChoose.Items
If item.Selected Then
interests &= item.Text & vbCr
End If
Next

mail.Body = "New Enquiry From : " & tbName.Text & "(" & tbEmailAddress.Text & ")" & vbCr & "They are interested in : " & vbCr & interests & vbCr & vbCr & "Details : "tbDetails.text

smtp.Send(mail)

ClientScript . RegisterStartupScript (Me.GetType(), "script", "thankyou()", True)
End Sub

End Class

' Click the i button below to see this page in action
+
i
-
webdesign . knash . uk