• Howdy! Welcome to our community of more than 130.000 members devoted to web hosting. This is a great place to get special offers from web hosts and post your own requests or ads. To start posting sign up here. Cheers! /Peo, FreeWebSpace.net
managed wordpress hosting

Post your ctrl+v

CREATE TABLE schools (school_id int(10) NOT NULL auto_increment,school_name varchar(200) NOT NULL default '',school_email varchar(200) NOT NULL default '',school_phone varchar(200) NOT NULL default '',school_country varchar(200) NOT NULL default '',school_description text NOT NULL,PRIMARY KEY (school_id))
 
Every time we get 10 sign ups using this coupon from Now until March 8th we will have a draw for a brand new, IPod shuffle. The winners will get the IPod shipped to them FREE of cost
 
Code: 
Option Strict On
Option Explicit On
Public Class Lists
    Inherits System.Windows.Forms.Form
    Dim output, item As String
    Dim selected As Integer

    Public Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputBox.TextChanged
        output = InputBox.Text
    End Sub

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addButton.Click
        If (output Is Nothing Or output = "") Then
            MessageBox.Show("There was no item in the textbox.", "Error")
        Else
            Lister.Items.Add(output)
        End If

        InputBox.SelectAll()
        InputBox.Focus()
    End Sub

    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles removeButton.Click
        If (Lister.SelectedIndex > -1) Then
            selected = Lister.SelectedIndex
            item = CType(Lister.SelectedItem, String)
            Lister.Items.RemoveAt(Lister.SelectedIndex)
            InputBox.SelectAll()
            InputBox.Focus()
            MessageBox.Show("You removed " & item & " at index: " & selected, "Message")
        Else
            MessageBox.Show("There was a problem when removing the item.", "Error")
        End If
    End Sub

    Private Sub Lists_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Lister.Items.Add("Joe")
        Lister.Items.Add("Phil")
        Lister.Items.Add("Nancy")
    End Sub
End Class

Old VB stuff ><
 
Was screwing around with a CSS server on my dedi o_O

./srcds_run -game cstrike -console -secure -autoupdate -ip xx.xx.xx.xxx -rcon_port 27015 -tickrate 75 +maxplayers 20 +map de_aztec > /dev/null 2>&1 &
 
htm, html, xhtml, shtml, xml, css, txt, doc, pdf, php, php4, png, cgi, js, cfg, pl, py, pyo, pyc, jpg, gif, mp2, mp3, zip, rar, tar.gz, bmp, dib, tif, tiff, jpeg, jpe, jfif, HTM, HTML, XHTML, SHTML, XML, CSS, TXT, DOC, PDF, PHP, PHP4, PNG, CGI, JS, CFG, PL, PY, PYO, PYC, JPG, GIF, MP2, MP3, ZIP, RAR, TAR.GZ, BMP, DIB, TIF, TIFF, JPEG, JPE, JFIF
 
CREATE TABLE `cp_ipban` (
`ip` text NOT NULL,
`reason` text NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;
 
You must log in or register to reply here.
Back
Top