Imports Microsoft.Data.Odbc
Public Class specialeventinfo
Inherits System.Web.UI.Page
Protected WithEvents Text1 As System.Web.UI.HtmlControls.HtmlInputText
Protected WithEvents txtEventInfo As System.Web.UI.HtmlControls.HtmlTextArea
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Application("Connection") Is Nothing Then
Dim MySQLConn As OdbcConnection, ConString As String
Try
ConString = "Driver={MySQL ODBC 3.51 Driver};Server=11.11.11.11;Database=wild;uid=uid;pwd=pwd;option=3"
MySQLConn = New OdbcConnection(ConString)
MySQLConn.Open()
Catch ex As Exception
Response.Write("Connection Error")
End Try
End If
End Sub
End Class